liste içindeki verileri otomatik yazdırma

[hulya35]

merhabalar,

excel çalışma kitabı içinde çalışanların listelendiği bir dosyam var. ben sıra ile listedeki tüm isimlerin bir sonraki sayfanın a6 hücresine yazdırmak istiyorum.
konu ile ilgili yardımcı olursanız sevinirim.
Teşekkürler

 

[Recep İpek]

İsimlerin A2 hücresinden başladığını ve her isme ait bir sayfanın olduğunu düşünürsek aşağıdaki kodları kullanabilirsiniz.

Sub Button1_Click()
Range("a2").Select
a = Cells(65536, 1).End(3).Row
b = Worksheets.Count

If a <> b Then
MsgBox "İsim ile Sayfa Sayısı Birbirlerini Tutmuyor"
Exit Sub
End If

For i = 2 To a
Sheets(i).Range("A6").Value = ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Next i
MsgBox "Bitti"
Range("a2").Select
End Sub

 

[omyuga]

Lİste

isim listesi sayf a1 de yer alacak.
liste içindeki tüm isimler sırası ile sayfa 2ye , sayfa 3e , sayfa 4 e atacak

 

[hulya35]

Teşekkürler sayın Ripek..