Onay kutuları ile sayfa yazdırma

[SwainTR]

Herkese Merhaba,

Forum da yeni olduğum için bir hatam olursa af ola.

Benim yapmak istediğim "Yazdır" düğmesine bastığımda "Sayfa1" de bulunan onay kutularını seçince yanında ki hücrelerde beliren "Doğru", "Yanlış" ları kontrol edicek ve "Doğru" ise "SayfaX" i Print edecek "Yanlış" ise hiç bir şey yapmayacak. Bunu bilen biri bana öğretebilir mi acaba ? Şimdiden herkese teşekür ederim.

Not: Örnek dosya ektedir.

 

[Ferhat Pazarçevirdi]

Aşağıdaki gibi olabilir.

Sub Sayfalari_Yazdir()
Dim sp As Shape
Dim x As Integer
Dim y As String
For Each sp In ActiveSheet.Shapes
      If sp.Type = msoFormControl Then
              If sp.FormControlType = xlCheckBox Then
                    x = x + 1
                    If sp.ControlFormat.Value = xlOn Then
                          y = "" & x
                          Sheets(y).PrintOut
                    End If
              End If
      End If
Next
End Sub

 

[SwainTR]

Pardon ama bana biraz karış geldi.
"x" ve "y" değerlerine ne koymalıyım.
Çok zor değil ise benim örnek olarak koyduğum dosyadan yapabilir misiniz?
Teşekkürler.

 

[Seyit Tiken]

Aşağıdaki kodu Onay düğmelerine bağlayarak deneyiniz.

Sub yaz()
If Not [d5] = YANLIŞ Then Sheets("1").PrintOut
End Sub

 

[SwainTR]

Seyit Tiken nin kodu işe yaradı. Tahminim Ferhat bey'inde kodu işe yarıyor ama ben beceremedim. herkese çok teşekkür ederim. Saygılar ve Sevgiler.

 

[Ferhat Pazarçevirdi]

Seyit Tiken nin kodu işe yaradı. Tahminim Ferhat bey'inde kodu işe yarıyor ama ben beceremedim. herkese çok teşekkür ederim. Saygılar ve Sevgiler.

Seyit bey, Checkbox'ları düşünerek kod geliştirmiş. Ben de Buton'a göre bir kod geliştirmişim.

Verdiğim kodları, bir modül sayfasına kopyalayınız. Sonra da, sayfanız üzerindeki butona atayınız. Checkboxları işaretledikten sonra (Doğru veya yanlış) makroyu atadığınız düğmeye bastığınızda; işaretli olan chekboxlar'a uygun sayfalar yazdırılır.