Hücreye ComboBox

[muratgunay48]

Arkadaşlar, sayın hocalarım, örnek dosyada olduğu gibi, bir adet PDF sayfa yapmaya çalışıyorum.
Personel sayfasındaki listeyi combobox ile A1 hücresine nasıl getirebilirim.
Yalnız balık tutmayı öğretmek misali. Olayın içeriğini anlayabilirsem. Örneğin çalıştığı birim gibi daha sayfalar oluşturulacak.
Şimdiden teşekkür ederim.
Saygılarımla.

 

[muratgunay48]

Sayın hocalarım, yardımcı olursanız minnettar olurum.
Saygılarımla

 

[Korhan Ayhan]

Aşağıdaki adımları izleyebilirsiniz.

Öncelikle "Personel" sayfasını açınız.
A1 hücresini seçiniz.
EKLE-TABLO menüsünü kullanarak verileri tablo biçimine dönüştürünüz. Eklediğiniz tablonun adı büyük ihtimalle Tablo1 olacaktır. Bunu kod içinde kullanacağız.
Böylece listeniz dinamik hale gelmiş olacaktır. Personel eklediğinizde ya da sildiğinizde ComboBox listesi dinamik olacaktır.

Sonrasında aşağıdaki kodu ThisWorkbook (BuÇalışmaKitabı) bölümüne uygulayınız.

Option Explicit

Private Sub Workbook_Open()
    Sayfa1.ComboBox1.ListFillRange = Sheets("Personel").Range("Table1").Address(External:=True)
End Sub

Aşağıdaki kodları ise "Sayfa1" isimli sayfanızın kod bölümüne uygulayınız.

Option Explicit

Private Sub ComboBox1_Change()
    Range("A1").Value = ComboBox1.Value
End Sub

Private Sub Worksheet_Activate()
    Sayfa1.ComboBox1.ListFillRange = Sheets("Personel").Range("Table1").Address(External:=True)
End Sub

Diğer geliştirmeleri kendiniz uygularsınız.

 

[muratgunay48]

Aşağıdaki adımları izleyebilirsiniz.

Öncelikle "Personel" sayfasını açınız.
A1 hücresini seçiniz.
EKLE-TABLO menüsünü kullanarak verileri tablo biçimine dönüştürünüz. Eklediğiniz tablonun adı büyük ihtimalle Tablo1 olacaktır. Bunu kod içinde kullanacağız.
Böylece listeniz dinamik hale gelmiş olacaktır. Personel eklediğinizde ya da sildiğinizde ComboBox listesi dinamik olacaktır.

Sonrasında aşağıdaki kodu ThisWorkbook (BuÇalışmaKitabı) bölümüne uygulayınız.

Option Explicit

Private Sub Workbook_Open()
    Sayfa1.ComboBox1.ListFillRange = Sheets("Personel").Range("Table1").Address(External:=True)
End Sub

Aşağıdaki kodları ise "Sayfa1" isimli sayfanızın kod bölümüne uygulayınız.

Option Explicit

Private Sub ComboBox1_Change()
    Range("A1").Value = ComboBox1.Value
End Sub

Private Sub Worksheet_Activate()
    Sayfa1.ComboBox1.ListFillRange = Sheets("Personel").Range("Table1").Address(External:=True)
End Sub

Diğer geliştirmeleri kendiniz uygularsınız.

Hocam. Çok ama çok teşekkür ederim. Emeğinize sağlık.

Bir de, hocam olsa da olur olmasa da. Sadece soruyorum. ComboBox kısmının yazılan kısımda gözükmeme imkanı var mı?

 

[Korhan Ayhan]

Talebinizi tam olarak anlayamadım.

 

[muratgunay48]

Talebinizi tam olarak anlayamadım.

Hocam şöyle ki, ben sayfayı doldurduğum zaman PDF'e çevirip (hem kaydedip) yazdıracağım. Hani CTRL+P deyince çıkan ekranda ComboBox'larda gözüküyor. Onların çıkmamasının bir yolu var mı?
Saygılarımla.

 

[Korhan Ayhan]

Nesneyi yazdırma alanı dışına alıp kullanabilirsiniz.

Ya da farklı bir sayfaya alıp kullanabilirsiniz.

 

[muratgunay48]

Nesneyi yazdırma alanı dışına alıp kullanabilirsiniz.

Ya da farklı bir sayfaya alıp kullanabilirsiniz.

Çok teşekkür ederim hocam. Dediğim gibi çok elzem değildi. Zaten PDF'e çevirip arşivliyorum. 2. sayfayı kaydetmem. Sadece sormak istemiştim.