ترحيل متعدد للصفوف و الشعب
السلام عليكم
ارجو المساعدة في ترحيل متعدد و اختيار الصفوف من صف واحد و لغاية 24 من خلال شيت data من الخلايا b4, b5,b6...........b27
ثم الضغط على زر ترحيل الى شيت book حسب الترقيم اسفل الجدول
الكود التالي كنب بمساعدة الاخ @hassona229 , و له جزيل الشكر و يقوم بترحيل صف واحد
Sub Test()
Const nRows As Long = 25
Const sCells As String = "b39,b103,b167,b231,b295,b359,b423,b487,b551,b615,b679,b6,b71,b135,b199,b263,b327,b391,b455,b519,b583,b647"
Dim x, a, t, ws As Work
تفضل أخي
عسى يكون المطلوب
Sub Test()
Dim a, b, x
Dim i, ii
Dim nmsht, dt, bk
Dim p As Long
Dim ar As Long
Const c As Integer = 25
Set nmsht = Sheets("name")
Set dt = Sheets("data")
Set bk = Sheets("Book")
b = Application.Transpose(dt.Range(dt.Range("B4"), dt.Range("B4").End(xlDown)))
p = 4:
For i = 1 To UBound(b)
With nmsht.Range("b2:AX400")
x = .Find(What:=b(i), After:=Range("B2"), lookat:=xlWhole, SearchDirection:=xlN
