پرسش انتقال اعدادی که در یک ستون به شیت های دیگر در جاهای مشخص

[popoli]

سلام من یک شیت مادر دارم که ستونی اطلاعات داره میخوام بصورت گروهی اطلاعات هر ستون را به شیت های مجاور شیت مادر انتقال بدم لطفا راهنمایی کنید.
مهم:
ستون زرد رنگ در شیت مادر تک تک سلول هاش باید به شیت 01 قسمت های زرد رنگ منتقل شود
و ستون دوم در شیت مادر به شیت 02 در همان جاهای قبلی منتقل شود
این فرایند تا اخرین ستون و اخرین شیت باید انجام شود

[iranweld]

با سلام


فایل پیوست را بررسی بفرمایید

Sub test()

k1 = Application.WorksheetFunction.CountA(Sheet1.Range("6:6"))

For i = 1 To Sheets.Count

For j = 1 To k1

If "0" & Cells(6, j) = Sheets(i).Name Then

Sheets(i).Range("r12") = Cells(3, j)
Sheets(i).Range("a16") = Cells(4, j)
Sheets(i).Range("a18") = Cells(5, j)
Sheets(i).Range("a20") = Cells(6, j)

End If

Next
Next

End Sub 

[popoli]

ممنون و عالی فقط من باید 1080 شیت با همین روش ایجاد کنم ممکنه بگید کد php v, ]',i fhdn h[vh ;kl

Sub test()

k1 = Application.WorksheetFunction.CountA(Sheet1.Range("6:6"))

For i = 1 To Sheets.Count

For j = 1 To k1

If "0" & Cells(6, j) = Sheets(i).Name Then

Sheets(i).Range("r12") = Cells(3, j)
Sheets(i).Range("a16") = Cells(4, j)
Sheets(i).Range("a18") = Cells(5, j)
Sheets(i).Range("a20") = Cells(6, j)

End If

Next
Next

End Sub 

[/QUOTE]

[iranweld]

ممنون و عالی فقط من باید 1080 شیت با همین روش ایجاد کنم ممکنه بگید کد php v, ]',i fhdn h[vh ;kl

sub test()

k1 = application.worksheetfunction.counta(sheet1.range("6:6"))

for i = 1 to sheets.count

for j = 1 to k1

if "0" & cells(6, j) = sheets(i).name then

sheets(i).range("r12") = cells(3, j)
sheets(i).range("a16") = cells(4, j)
sheets(i).range("a18") = cells(5, j)
sheets(i).range("a20") = cells(6, j)

end if

next
next

end sub 

[/quote]


با سلام

خواسته خود را بصورت دقیق بیان کنید این کد شیت ایجاد نمیکنه فقط اعدادی را در شیت های مورد نظر کپی میکنه