تعديل كود استدعاء بيانات بشروط

[saad abed]

كود استدعاء بيانات بشروط

توصلت لان يعمل الكود كما اريد

الا نقطة واحدة

الكود يستدعى البياانات بنفس رقم الصف من الورقة المرحل منه

بمعنى اختار فبراير من خلية b1

سياتى بطريقة صحيحة لان البيانات فى اول البيانات

اختار مارس يبدا من الخلية 71

واريد ان تكون بداية البيانات الصف السادس

ارجو ان يكزن الشرح واضح

acc.rar

[عبدالله باقشير]

السلام عليكم

 

حسب فهمي للموضوع انك تريد ان تستدعي حسب الشهر في الخلية  b1

 

اذا كان كذلك يكفي هذا

Sub saad2222()
Dim cc As Worksheet, ccc As Worksheet
Dim H As Long, G As Long
Set ccc = Sheets("يومية")
Set cc = Sheets("اليومية الامريكية")
RR = ccc.Range("b" & Rows.COUNT).End(xlUp).Row
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
cleardata
G = 6
For H = 4 To RR
    If ccc.Cells(H, 13).Value = cc.Range("b1").Value Then
        cc.Cells(G, 2) = ccc.Cells(H, 2)
        cc.Cells(G, 3) = ccc.Cells(H, 4)
        cc.Cells(G, 4) = ccc.Cells(H, 5)
        G = G + 1
    End If

Next
'========================================
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
End Sub

تحياتي

[saad abed]

استاذ عبدالله باقشير

كل الشكر والتقدير اخى عبدالله

الكود بعد الاختصار يعمل بكفاءة هو المطلوب

والغريب انى لم الاحظ تكرار الكود---------وان الكود القديم كان يجلب البيانات بنفس رقم الصف فى صفحة اليومية

اشكرك كل الشكر

بارك الله فيك وفى اولادك وجعلهم قرة عين لك

اللهم امين

الى اللقاء مع طلب اخر فهذا قدرك ان تتحملنا

[رجب جاويش]

أستاذى الحبيب / عبد الله باقشير

جزاك الله كل خير