ComboBox İle Kağıt Boyutu Seçimi

[ormann]

İyi günler ekteki örnek dosyada ana sayfadaki ComboBox.1'den kağıt boyutlarını seçip zarf sayfasına uyarlayabilirmiyiz.Örneğin ComboBox.1'den Zarf C5'i seçtiğimde zarf sayfasının ebatları bu seçime göre olabilir mi?

 

[Seyit Tiken]

Kod mantığı bu şekildedir, diğerlerini yaparsınız diye düşünüyorum.

If Sayfa1.ComboBox1 = "Zarf5" Then
ActiveSheet.PageSetup.PaperSize = xlPaperEnvelope9
End If

 

[ormann]

Sayın Seyit bey formülü şu şekilde yaptım fakat olmadı.rica etsem siz yapabilirmisiniz?

Private Sub ComboBox1_Change()
If Sayfa1.ComboBox1 = "Zarf5" Then
ActiveSheet.PageSetup.PaperSize = xlPaperEnvelope9
End If
End Sub

 

[ormann]

Sayın Seyit bey formülü şu şekilde yaptım fakat olmadı.rica etsem siz yapabilirmisiniz?

Private Sub ComboBox1_Change()
If Sayfa1.ComboBox1 = "Zarf5" Then
ActiveSheet.PageSetup.PaperSize = xlPaperEnvelope9
End If
End Sub

 

[Seyit Tiken]

Kodunuzu bu olaya atıp deneyin. Size kullanışlı olan olay ve nesneyi seçin.

Private Sub ComboBox1_Click()

End Sub

 

[ormann]

Seyit bey dediğiniz şekilde yapmama rağmen kodu çalıştıramadım