UserForma Sayfa Görüntüsü Almak

[Hsn55]

İyi akşamlar;
Ekli dosyada Userform1 üzerinde OptionButton1 ' seçtiğimde Bedel Cetveli sayfasında B2:K58 hücre aralığının ekran görüntüsünü ve OptionButton2 seçtiğimde ise Tahakkuk Fişi sayfasında C3:G36 hücre aralığının ekran görüntüsünü buton ile Image1 nesnesine aldırabilir miyiz?. Yardımlarınız için şimdiden teşekkürlerimi sunarım

İndir Ekran Görünütüsü

Dosyayı indir Ekran Görünütüsü

dosya.co

 

[Mustafa MUTLU]

En güzeli Formunuza bir ListBox ekleyin ve aşağıdaki kodları formunuza ekleyin.
UserForm1.ListBox1.ColumnWidths Bu kod listboxtaki listelemede sütun genişliğini ayarlar.
Sayfa İsimlerinizi BEDEL_CETVELİ ve TAHAKKUK_FİŞİ olarak değiştiriniz.

Private Sub OptionButton1_Click()
UserForm1.ListBox1.ColumnCount = 10
UserForm1.ListBox1.ColumnWidths = "50;50;50;50;50;50;50;50;50;50;50"
UserForm1.ListBox1.RowSource = "BEDEL_CETVELİ!B2:K58"
End Sub

Private Sub OptionButton2_Click()
UserForm1.ListBox1.ColumnCount = 5
UserForm1.ListBox1.ColumnWidths = "50;50;50;50;50"
UserForm1.ListBox1.RowSource = "TAHAKKUK_FİŞİ!C3:G36"
End Sub

 

[Hsn55]

Mustafa bey yapmış olduğunuz makroyu çalıştıramadım

 

[Mustafa MUTLU]

Sayfa isimlerini değiştirdiniz mi ?

 

[Hsn55]

Evet .

 

[Mustafa MUTLU]

Formunuza ListBox ta eklediniz mi?

 

[Hsn55]

Ekledim. Fakat hata veriyor

Private Sub OptionButton1_Click()
UserForm1.ListBox1.ColumnCount = 10
UserForm1.ListBox1.ColumnWidths = "50;50;50;50;50;50;50;50;50;50;50"
UserForm1.ListBox1.RowSource = "BEDEL!B2:K58"
End Sub

Private Sub OptionButton2_Click()
UserForm1.ListBox1.ColumnCount = 5
UserForm1.ListBox1.ColumnWidths = "50;50;50;50;50"
UserForm1.ListBox1.RowSource = "TAHAKKUK!C3:G36"
End Sub

 

[Mustafa MUTLU]

mustafamutlux@hotmail.com
bu adrese gönderin dosyanızı
Düzenleyip e-postanıza göndereyim.

 

[Hsn55]

Gönderdim

 

[Mustafa MUTLU]

Kontrol ediniz.

 

[Hsn55]

Mustafa bey ekran görüntüsü şeklinde olabilir mi?. Yani belirtilen alanın görüldüğü şekilde

 

[Haluk]

Ekli dosyayı deneyebilirsiniz...

.

 

[Hsn55]

Hocam link ekleyebilir misiniz?

 

[Haluk]

Google Drive: Sign-in

Access Google Drive with a Google account (for personal use) or Google Workspace account (for business use).

drive.google.com

.

 

[Hsn55]

Teşekkür ederim Haluk bey ve Mustafa bey