[حل شده] اشتباه در کد فراخوانی داده ها از یک شیت به شیت دیگر

[jack007]

با سلام واحترام خدمت دوستان و اساتید

فایل پیوست بذین صورت عمل می کند که در ابتدا......................1- در شیت کاربر با زدن دکمه فراخوانی کلیه فایل های اکسل را در درایو d فراخوان نموده و زیر هم کپی می کند.............................................

2- در شیت دوم دستوری نوشته شده که با زدن دکمه می بایست تمام ردیف های بعضی از جداول شیت 1 که سلول اول آن ab است در زیر هم قرار گیرد.........دستورم اشتباه است اساتید

خواهشمندم آنرا اصلاح فرمایند......................(البته دستور شیت دوم مربوط به استاد iranweld است که اومدک تغییر بدم جور در نیومد) با سپاس ویژه از وستان


اینم کد:

k = 98




z1 = Sheet1.Cells(Sheet1.Rows.Count, "b").End(xlUp).Row


z2 = Sheet2.Cells(Sheet1.Rows.Count, "b").End(xlUp).Row


If z2 < 3 Then z2 = 3


Range("b98:M" & z2).ClearContents




For Each cell In Sheet1.Range("A2:A" & z1)


If Len(cell) = 1 And InStr(cell, "ab") > 0 Then


Sheet2.Range("b" & k) = cell.Offset(, 1)


Sheet2.Range("c" & k) = cell.Offset(, 2)


Sheet2.Range("d" & k) = cell.Offset(, 3)


Sheet2.Range("e" & k) = cell.Offset(, 4)


Sheet2.Range("F" & k) = cell.Offset(, 5)
Sheet2.Range("g" & k) = cell.Offset(, 6)
Sheet2.Range("h" & k) = cell.Offset(, 7)
Sheet2.Range("i" & k) = cell.Offset(, 8)
Sheet2.Range("j" & k) = cell.Offset(, 9)
Sheet2.Range("k" & k) = cell.Offset(, 10)
Sheet2.Range("l" & k) = cell.Offset(, 11)
Sheet2.Range("m" & k) = cell.Offset(, 12)




k = k + 1


End If


Next


End Sub