بحث مخصص من جوجل فى أوفيسنا
Custom Search
|
البحث في الموقع
Showing results for tags 'تعديل على كود نسخ'.
تم العثور علي 1 نتيجه
-
السلام عليكم هذا كود اخوتى الكرام يقوم بجلب بيانات من جدول فى ورقة DATA الى جدول أخر فى ورقة AS جدول DATA به صفوف فارغة فى أكثر من موضع لأن بياناته مجلوبه بمعادلات الكود يعمل جيداً .. والمراد تعديل فقط هو أن لاينقل الكود الصفوف الفارغة Sub SS() ' كود نسخ Dim ws As Worksheet Dim sh As Worksheet Dim lr As Long Set ws = Sheets("DATA") Set sh = Sheets("AS") Application.ScreenUpdating = False sh.Range("B7:U406").ClearContents lr = sh.Cells(Rows.Count, 4).End(xlUp).Row + 1 ws.Range("B7:U1026").SpecialCells(xlCellTypeVisible).Copy sh.Range("B" & lr).PasteSpecial xlPasteValues Application.CutCopyMode = False Application.ScreenUpdating = False End Sub
