نسورالجو قام بنشر أكتوبر 4, 2021 مشاركة قام بنشر أكتوبر 4, 2021 السلام عليكم المطلوب عند اختيار اسم صنف 1 في الفورم بتاريخ 01-09-2021 يأتي بقراءة الحالية بتاريخ01-08-2021 وليس قراة حالية بتاريخ 01-07-2021 وهكذا مع الشهر الي قبله wor.xlsm رابط هذا التعليق شارك More sharing options...
أفضل إجابة أ / محمد صالح قام بنشر أكتوبر 5, 2021 أفضل إجابة مشاركة قام بنشر أكتوبر 5, 2021 يمكنك استعمال هذا الكود عند تغيير كومبوكس2 Private Sub ComboBox2_Change() Dim i As Long, lastrow As Long, ws As Worksheet Set ws = Sheets("بيان") lastrow = ws.Range("e" & Rows.Count).End(xlUp).Row Me.TextBox1.Value = "" For i = 2 To lastrow If Me.ComboBox2.Value = ws.Cells(i, "e") And Evaluate("=EDATE(" & CDbl(CDate(Me.ComboBox1.Value)) & ",-1)") = CDate(ws.Cells(i, "d")) Then Me.TextBox1.Value = ws.Cells(i, "g").Value End If Next i End Sub ولا تنس أن تحذف الخلايا التي بها الشرح في الصف 12 و 13 بالتوفيق 2 1 رابط هذا التعليق شارك More sharing options...
نسورالجو قام بنشر أكتوبر 6, 2021 الكاتب مشاركة قام بنشر أكتوبر 6, 2021 جزاك الله خيرا استاذ محمد 1 رابط هذا التعليق شارك More sharing options...
أ / محمد صالح قام بنشر أكتوبر 6, 2021 مشاركة قام بنشر أكتوبر 6, 2021 جميعا بإذن الله رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.