Düğme görevini yapmıyor

[Mdemir63]

Arkadaşlar günaydın

kodları ilgili düğmeye atadım ama çalıştıramadım ilgilenirseniz çok sevinirim

Saygılar

Dosya ekte


Not: Dosyamda Anasayfadaki butona bastığımda hem işaretlediğim sayfayı yazacak hemde SONUÇ sayfasına memur listesi sayfasını yazdırdıysam VAR İşçi sayfasını yazdırdıysam yok yazacak

 

[xxrt]

Günaydın
Belki işinize yarar

 

[Mdemir63]

Hocam ilginize teşekkürler ama ben bahsettiğim gibi yazdır dediğimde sonuç sayfasına hangi listeyi seçtiysem onunla ilgili VAR veya YOK yazacak aslında benim kodlarım doğru ayrı ayrı çalışıyor fakat ben onları yazdır düğmesine atayamadım sıkıntı ondan kaynaklanıyor

saygılar

 

[xxrt]

O zaman tüm kodalrı silin
Sizin kodlarınıza ilave edilen şu kodlar ı yazın

Private Sub CommandButton1_Click()
If OptionButton1 = True Then
Worksheets("Sonuç").Cells(65536, 1).End(xlUp).Offset(1, 0).Value = "VAR"
Sheets("Memur Listesi").Select
Application.Dialogs(xlDialogPrint).Show
Sheets("ANA SAYFA").Select
End If
If OptionButton2 = True Then
Worksheets("Sonuç").Cells(65536, 1).End(xlUp).Offset(1, 0).Value = "YOK"
Sheets("İşçi Listesi").Select
Application.Dialogs(xlDialogPrint).Show
Sheets("ANA SAYFA").Select
End If
End Sub

 

[Mdemir63]

Sn: xxrt

Hocam elinize sağlık istediğim buydu sağolun iyi çalışmalar