اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

fatma ali

عضو جديد 01
  • Posts

    8
  • تاريخ الانضمام

  • تاريخ اخر زياره

Community Answers

  1. 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
×
×
  • اضف...

Important Information