otomatik cıktı alma

[nes432]

sayfa1 de b sütununda verilerim var (sayı sınırı olmadan). bu verileri sayfa2 de e5 hücresine tek tek girip her giriş sonrası otomatik cıktı almayı bi türlü ayarlayamadım. aşağıdaki kodu denedim ama hata veriyor. yardımcı olacak arkadaşlarıma şimdiden teşekkür ederim

Sub otomatik()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
son = s1.Cells(Rows.Count, "B").End(3).Row
For i = 2 To son
s2 [E5] = s1.Cells(i, "B")
s2.PrintOut
Next
End Sub

 

[askm]

Kodlarınız doğru.Yalnız bir noktayı unutmuşsunuz.

Sub otomatik()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
son = s1.Cells(Rows.Count, "B").End(3).Row
For i = 2 To son
s2.[E5] = s1.Cells(i, "B")
s2.PrintOut
Next
End Sub

 

[nes432]

waw tşk kırk defa da kontrol ettim bi farkedemedim tşk ederim.

 

[askm]

Rica ederim. Kolay gelsin.

 

[nes432]

bu makroya "cıktı almak için onay veriyor musunuz" uyarı penceresini nasıl eklerim peki

 

[askm]

Sub otomatik()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
son = s1.Cells(Rows.Count, "B").End(3).Row
cevap = MsgBox("Yazdırmak istiyor musunuz??", vbYesNo + vbQuestion, "Yazdırma")
If cevap = vbYes Then
For i = 2 To son

s2.[E5] = s1.Cells(i, "B")
s2.PrintOut
Next
Else
MsgBox "İşleminiz iptal edilmiştir...", vbInformation, "ASKM"
End If
End Sub

 

[nes432]

tşk ederim super olmuş

 

[askm]

Rica ederim. Teşekkür ederim.