3 Seçenekli Onay

[sbayyigit]

Arkadaşlar 3 seçenekli bir onay kutusuna ihtiyacım var. oluşturduğum bir form üzerinde işlemlerimi gerçekleştirme aşamasında.

Elimdeki kodlar ile "Evet" veya "Hayır" diye işlem yapabiliyorum.Ama

"Evet" Dersem Sıradaki veriyi
"Hayır" Dersen sıradakini yazdırmayacak
"Tümünü" dersen artık soru sormadan listedeki tüm verileri yazdıracak bir onay kutusu istiyorum.

Elimdeki Öevcut kodlar:


Private Sub CommandButton1_Click()
If baslamadegeri = "" Then
baslamadegeri = 0
End If
If bitisdegeri = "" Then
bitisdegeri = 0
End If

Dim a As Integer
Dim b As Integer
sat = Sheets("sayfa1").Cells(65536, "A").End(xlUp).Row

Sheets("sayfa1").Select
a = baslamadegeri
b = bitisdegeri

If a < 2 Or a = 0 Then
MsgBox ("Başlama Değeri 2 veya 2'den Büyük Olmalıdır.")
Exit Sub
End If
If a > b Then
MsgBox ("Başlama Değeri, Bitiş Değerinden Büyük Olamaz.")
Exit Sub
End If

If a > sat Or b > sat Then
MsgBox ("Başlama Değeri ve Bitiş Değeri " & sat & " 'den Büyük Olamaz.")
Exit Sub
End If
For sira = a To b

Range("j2").Value = Range("b" & sira).Value
Range("j3").Value = Range("c" & sira).Value
Range("j4").Value = Range("d" & sira).Value
Range("j4").Value = Range("e" & sira).Value
Range("j5").Value = Range("g" & sira).Value

Onay = MsgBox(Range("b" & sira).Value & " Bilgileri Yazdırılsın mı?", _
vbCritical + vbYesNo, "Dikkat !")
If Onay = vbYes Then
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End If

Next

End Sub

 

[NBATMAN]

Merhaba,

bunu ekteki gibi kendiniz bir user form kullanarak onay kutusu oluşturarak yapabilirsiniz. Buradaki butonlara yapmak istediğiniz iş ile ilgili kodları yazarsınız. Userformun kodlarınıda ( yazdırma onay kutusunun kodlarını ) bir alt sub şeklinde hazırlarsınız yani nerede bu onay kutusunu açacaksanız bu alt subı ana sub içerisinde uygun yerde çağırarak ( call ) bu işlemi yapacaksınız.Kolay gelsin...

 

[sbayyigit]

ustam bir benzerini yaptım. çok teşekkürler