Combobox 'a veri alma

Katılım
19 Nisan 2007
Mesajlar
337
Excel Vers. ve Dili
Excel 2003 Türkçe
Herkese merhabalar.
Arkadaşlar forumda arama yaptım bir çok hazır örneğe rastladım.
İlgili arkadaşa teşekkürler.

Ancak dedimya arkadaşlar bir örnek dosyayı alıp hazırlayıp göndermişler.( Tekrar ellerine sağlık)
Bu hazır örneklerden yola çıkarak kendime uyarlamak istedim ancak nasıl yapıldığını bilmediğim için başarılı olamadam.

Şöyle bir sıkıntım var:

personel işlemlerinde kullandıım 40 civarında sayfası olan bir kitabım var. Sayfa isimlerini 1..... 40 diye adlandırdım.
1 nolu sayfam ana sayfam ve Combobox1 bu sayfada. Personel bilgilerim 20 nolu sayfada
Ad= B2 den B100 e kadar olan sütunda
Soyad C2 den C100 e kadan olan sütunda

Öncelikle Excel sayfasına yerleştirdiğim combobox1 ( Karma Kutu )'e Adı ve soyadı kısmının sayfayı açtığımda listelenmesini başaramadım.
Combobox'un kod bölümüne
Kod:
Private Sub ComboBox1_Change()
ComboBox1.RowSource = "20!B2:B100"
End Sub
yazdım olmadı.

Tabi başarabilirsem buna bağlı olarak seçtiğim isme göre 1 nolu sayfamdaki ilgili hücrelere diger verilerin ve personele ait resmide getirmek istiyorum
Durum bilgilerinize.
Teşekkürler
Aşağıdaki linkte yapmaya çalıştığımla ilgili bir dosya var. Ancak hazır yapıp değilde mantığını ve izlenilen yolu anlamaya çalışıyorum
http://www.2shared.com/file/1901215/78d9139e/Personel.html
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Bu şekilde deneyiniz.

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "Sayfa3!a1:a20"
End Sub
 
Katılım
19 Nisan 2007
Mesajlar
337
Excel Vers. ve Dili
Excel 2003 Türkçe
Sayın Seyit Tiken ;
User Forum değil
Excel Sayfasına eklediğim bir combobox'a getirip buna bağlı olan resmin gelmesini sağlamaya çalışıyorum İlginize teşekkürler
 
Katılım
19 Nisan 2007
Mesajlar
337
Excel Vers. ve Dili
Excel 2003 Türkçe
Sayın yurttas :
Combobox'a veri listelenmesi tamam. Sıra Resimlerde. Teşekkürler
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Aşağıdaki kodu deneyiniz.

Private Sub Worksheet_Activate()
ComboBox1.ListFillRange = "Sayfa3!a1:a20"
End Sub

Resim getirme olayı için, sayın Yurttaş'ın eklediği dosyaları ayrıntılı bir şekilde incelemenizde fayda var.
 

Merhum İdris SERDAR

Moderatör
Yönetici
Katılım
21 Ekim 2005
Mesajlar
17,094
Excel Vers. ve Dili
Excel, 365 - İngilizce

Merhum İdris SERDAR

Moderatör
Yönetici
Katılım
21 Ekim 2005
Mesajlar
17,094
Excel Vers. ve Dili
Excel, 365 - İngilizce
Dosyanız ekte.

..

NOT: Formülde küçük bir hata vardı. Düzeltilidi.
 
Son düzenleme:
Katılım
18 Nisan 2007
Mesajlar
8
Excel Vers. ve Dili
excell2003 Türkçe
Bir de buna bakarmısınız!
Affına sığınarak sayın Yurttaş' ın çalışmasında küçük bi değişiklik yaptım.
sanırım isme karşılık gelen bilgiler gözden kaçmış... Farklı şahıs bilgileri geliyor.
 
Üst