Barkod uygulaması

[sonererim]

Selam arkadaşlar. Ekli dosyada tambur sayfasındaki yazdır tuşuna basıldıktan sonra, yazdırma işleminden hemen sonra a2 ve b2 hücreleri boşaltılıp, kursörün a2 hücresine gitmesini nasıl sağlayabilirim. Ilgilenen arkadaşlara şimdiden teşekkürler

 

[Orion1]

Kırmızı satırları ekledim.

Private Sub CommandButton1_Click()
Sheets("TAMBUR ETİKET").Range("a1:C10").PrintPreview
[B][COLOR="Red"]Range("A2:B2").ClearContents
Range("A2").Select[/COLOR][/B]
End Sub

 

[sonererim]

Teşekkürler. Ellerinize sağlık

 

[Orion1]

Teşekkürler. Ellerinize sağlık

Rica ederim.
İyi çalışmalar.