Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 28-01-2011, 13:27   #1
Erhan Köseoğlu
 
Erhan Köseoğlu kullanıcısının avatarı
 
Giriş: 30/12/2007
Şehir: Malatya
Mesaj: 223
Excel Vers. ve Dili:
Office 2007 Türkçe
Varsayılan Combobox2 değerleri combobox1 e göre belirlensin

Combobox 1 de Kitap Gurubu bilgileri var, Combobox 2 de ise sadece o Kitap gurubuna ait kitap türlerinin görünmesini sağlayabilirmiyim.

örneğin combobox1 de Çocuk Kitapları gurubu seçildiğinde,
combobox2 de sadece bu guruba ait olan
12 yaş üzeri
7-12 yaş
100 temel eser den oluşan sadece 3 tür bilgisi görünsün istiyorum

parametreler sayfasında bilgiler mevcut.

(Sn. Korhan Ayhan 'ın Personel Kayıt çalışmasından faydalanarak hazırladım. İleride bir takım bilgiler ve öğretmenler için en önemlisi e-okula kitap bilgilerini kayıt yapma özellikleri de eklemek istiyorum, bakalım nasıl olacak.)
__________________
[SIZE=4][COLOR=red][FONT=Comic Sans MS][B][U]
[/U][/B][/FONT][/COLOR][/SIZE]

Bu mesaj en son " 29-01-2011 " tarihinde saat 23:29 itibariyle Erhan Köseoğlu tarafından düzenlenmiştir....
Erhan Köseoğlu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 28-01-2011, 19:42   #2
Erhan Köseoğlu
 
Erhan Köseoğlu kullanıcısının avatarı
 
Giriş: 30/12/2007
Şehir: Malatya
Mesaj: 223
Excel Vers. ve Dili:
Office 2007 Türkçe
Varsayılan

Yardımlarınızı bekliyorum.
__________________
[SIZE=4][COLOR=red][FONT=Comic Sans MS][B][U]
[/U][/B][/FONT][/COLOR][/SIZE]
Erhan Köseoğlu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 28-01-2011, 22:53   #3
Erhan Köseoğlu
 
Erhan Köseoğlu kullanıcısının avatarı
 
Giriş: 30/12/2007
Şehir: Malatya
Mesaj: 223
Excel Vers. ve Dili:
Office 2007 Türkçe
Varsayılan

Forumda ve başka forumlarda da araştırdım bazı kodlar buldum, denedim ama olmadı.
__________________
[SIZE=4][COLOR=red][FONT=Comic Sans MS][B][U]
[/U][/B][/FONT][/COLOR][/SIZE]

Bu mesaj en son " 29-01-2011 " tarihinde saat 00:12 itibariyle Erhan Köseoğlu tarafından düzenlenmiştir....
Erhan Köseoğlu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 29-01-2011, 12:12   #4
Erhan Köseoğlu
 
Erhan Köseoğlu kullanıcısının avatarı
 
Giriş: 30/12/2007
Şehir: Malatya
Mesaj: 223
Excel Vers. ve Dili:
Office 2007 Türkçe
Varsayılan

Forumda combobox ile çok konu açtım, baktım ama olmadı, ya da ben bulamıyorum. Kimi konularda siteye saldırı sonrası görüntülenemiyor, Aradığım şey ile ilgili örnek çok mesela il ve ilçe uygulamaları. Ama bir türlü ulaşamadım.
__________________
[SIZE=4][COLOR=red][FONT=Comic Sans MS][B][U]
[/U][/B][/FONT][/COLOR][/SIZE]
Erhan Köseoğlu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 29-01-2011, 12:48   #5
Erhan Köseoğlu
 
Erhan Köseoğlu kullanıcısının avatarı
 
Giriş: 30/12/2007
Şehir: Malatya
Mesaj: 223
Excel Vers. ve Dili:
Office 2007 Türkçe
Varsayılan

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
private sub userform_initialize()
ComboBox1.RowSource = "PARAMETRELER!a2:q" & Range("a65000").End(xlUp).Row
End Sub



Private Sub ComboBox1_Change()
Dim a As Integer, i As Long
With Sheets("PARAMETRELER")
a = .Range("a1:a" & .Range("a65536").End(3).Row).Find(ComboBox1.Value, , , 1).Row
ComboBox2.Clear
For i = 2 To .Range("ıv" & a).End(1).Column
ComboBox2.AddItem .Cells(a, i).Value
Next i
End With
a = Empty: i = Empty
End Sub
ile combobox2 1 e bağlı ancak bilgileri kaydet deyince
a = .Range("a1:a" & .Range("a65536").End(3).Row).Find(ComboBox1.Value, , , 1).Row
satırı hatalı diyor birde bilgileri veri sayfasına değil parametreler sayfasına yazıyor
üzerinde oynamalar yapıp denedim ancak hata verdi bende ilk bulduğum hali ile koydum.
Kod alıntıdır dememe gerek yok herhalde.
__________________
[SIZE=4][COLOR=red][FONT=Comic Sans MS][B][U]
[/U][/B][/FONT][/COLOR][/SIZE]
Erhan Köseoğlu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 29-01-2011, 13:01   #6
Orion1
Uzman
 
Orion1 kullanıcısının avatarı
 
Giriş: 01/03/2005
Mesaj: 19,611
Excel Vers. ve Dili:
Win7 Home Basic TR 64 Bit Ofis-2010-TR 32 Bit
Varsayılan

Dosyanız ektedir.
Eklenmiş Dosyalar
Dosya Türü: rar Sınıf Kitaplığı Programı_59.rar (24.1 KB, 38 Görüntülenme)
__________________
evrengizlen@hotmail.com

KOD ANLATILMAZ,YAZILIR!
Bir sümer atasözü;
Madem biliyorsun neden öğretmiyorsun.Boşa vakit geçirdin neye yaradı.
Orion1 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 29-01-2011, 23:35   #7
Erhan Köseoğlu
 
Erhan Köseoğlu kullanıcısının avatarı
 
Giriş: 30/12/2007
Şehir: Malatya
Mesaj: 223
Excel Vers. ve Dili:
Office 2007 Türkçe
Varsayılan

Yazdığınız kodları ekledim ancak hata veriyor, daha önceden de bazı şeyler eklemiştim son haliyle tekrar yükledim.
Eklenmiş Dosyalar
Dosya Türü: rar Sınıf Kitaplığı Programı.rar (33.5 KB, 24 Görüntülenme)
__________________
[SIZE=4][COLOR=red][FONT=Comic Sans MS][B][U]
[/U][/B][/FONT][/COLOR][/SIZE]
Erhan Köseoğlu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 30-01-2011, 12:37   #8
Erhan Köseoğlu
 
Erhan Köseoğlu kullanıcısının avatarı
 
Giriş: 30/12/2007
Şehir: Malatya
Mesaj: 223
Excel Vers. ve Dili:
Office 2007 Türkçe
Varsayılan

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private sub İnitialize()
Dim satir As Byte
    For satir = 2 To 18
        ComboBox1.AddItem Sheets("PARAMETRELER").Cells(satir, 1)
    Next satir
        ComboBox1.ListIndex = 0
End sub

Diğer kod da
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub ComboBox1_Change()
    'combobox1'in içeriği değişince çalışacak prosedür
   
    'satir isimli değişkeni tanımla
    'combobox1'in ilk satırı 0, ancak parametrelerde ilk satır 2
    'combobox1'de hangi satır seçili ise 2 fazlasını değişkene aktar
    Dim satir As Byte
    satir = ComboBox1.ListIndex + 2
   
    'sutun isimli değişkeni tanımla
    'ilk sütuna eşitle
    Dim sutun As Byte
    sutun = 2
       
    'combobox2 seçilen içeriğe göre değişeceği için ilk temizlemek lazım
    ComboBox2.Clear
       
    'Döngü ile ilgili satırdaki boş hücreye gelene kadar tüm içeriği combobox2'ye doldur
    Do Until Sheets("PARAMETRELER").Cells(satir, sutun) = ""
        ComboBox2.AddItem Sheets("PARAMETRELER").Cells(satir, sutun)
        sutun = sutun + 1
    Loop
       
    'combobox2'de ilk elemanı seç
    ComboBox2.ListIndex = 0
End Sub

Yazılınca combobox2 combobox1 e göre çalıştı.
İlginize teşekkürler.
__________________
[SIZE=4][COLOR=red][FONT=Comic Sans MS][B][U]
[/U][/B][/FONT][/COLOR][/SIZE]
Erhan Köseoğlu Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 14:20


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden