بحث مخصص من جوجل فى أوفيسنا
![]()
Custom Search
|

fatma ali
-
Posts
8 -
تاريخ الانضمام
-
تاريخ اخر زياره
Community Answers
-
fatma ali's post in مساعده فى ترحيل بيانات من شيت لاخر was marked as the answer
السلام عليكم ورحمة الله وبركاته
اولا شكرا للعضو أبو حنين والعضو الـعيدروس على الاهتملم والمساعده
ثانيا لقد توصلت للحل بتغيير بسيط فى الكود
هذا هو الكود للافاده
Application.ScreenUpdating = False Dim i As Long, ii As Byte With Sheets("العملاء") LR = [A9999].End(xlUp).Row For i = 2 To LR If .Cells(i, 1) = Range("d4") Then For ii = 3 To 8 If IsEmpty(.Cells(i, ii)) Then .Cells(i, ii) = Range("h52").Value Exit For End If Next End If Next End With