[حل شده] توضیح کدهای اشاره شده

[jack007]

با سلام و درود
خواهشمند است یکی از دوستان و اساتید کد زیر رو که از همین انجمن گرفتم توضیح بده با سپاس ویژه
((کد مربوط به فراخوانی بعضی ردیف ها در بعضی جداول sheet 1 و فراخوانی آنها در sheet2 است)) باز هم متشکرم...

k=3
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("b3:e" & 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)


k = k + 1


End If


Next


End Sub

[amir_ts]

با سلام
توضیح راحت هست ولی یادگیری صحیح اون منوط به آشنایی حداقلی از توابع ساده vba هست...

[jack007]

با سلام
توضیح راحت هست ولی یادگیری صحیح اون منوط به آشنایی حداقلی از توابع ساده vba هست...

ممنونم ... تا اندازه کمی بله اما در خصوص این ماژول با لاین های زیر مشکل دارم و اونا رو نمی فهمم

If z2 < 3 Then z2 = 3



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

[amir_ts]

خط اول یک شرط ساده است که چنانچه z2 کوچکتر از 3 بود z2 رو 3 قرار بده...در حقسقت تنظیم ردیف های ستون b بین دو شیت اطلاعات است....
خط دوم با توجه به عدد k یک رنج رو مساوی رنج cell کرده با یک شیفت جزیی...
مثلا رنج b3 رو مساوی رنج cell کرده بعد یک ستون رنج cell رو شیفت داده یعنی اگر cell مثلا سلول a5 بود با یک شیفت ستون میشه b5
عدد اول بابت شیفت ردیف هست که نداره و خالی هست عدد بعد ستون که 1 هست...