تعديل في كود جلب قراءة السابقة

[نسورالجو]

السلام عليكم المطلوب عند اختيار اسم صنف 1 في الفورم بتاريخ 01-09-2021 يأتي بقراءة الحالية بتاريخ01-08-2021 وليس قراة حالية بتاريخ 01-07-2021 وهكذا مع الشهر الي قبله

wor.xlsm

[أ / محمد صالح]

يمكنك استعمال هذا الكود عند تغيير كومبوكس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

بالتوفيق

[نسورالجو]

جزاك الله خيرا استاذ محمد

[أ / محمد صالح]

جميعا بإذن الله