الرجاء المساعدة : استبدال شرطى بعد النسخ

[mmtronic]

الاخوة الافاضل

فى الملف المرفق هناك كود نسخ من sheet1 الى sheet2 مرتبط بزر تشغيل

كل مل اريدة هو استبدال الصفر الموجود فى sheet2 بخلية فارغة بعد عملية النسخ

Book11_test copy.rar

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

السلام عليكم

استخدام الكود التالي:

Sub Kh_Copy()

Dim R As Integer

Sheets("Sheet2").Range("A1:A6").ClearContents

With Sheets("Sheet1")

    For R = 1 To 6

        If .Cells(R, 1) = 0 Then GoTo 1

        Sheets("Sheet2").Cells(R, 1) = .Cells(R, 1)

1   Next

End With

End Sub

[mmtronic]

تسلم ايدك و ربنا يكرمك - هو المطلوب بالضبط