combobox makrosunda hata

A

Araştırıcı

Katılım
28 Haziran 2007
Mesajlar
206
Excel Vers. ve Dili
Excel 2003 İngilizce
Değerli Arkadaşlar,

Ekteki dosyada ComboBox için yapmaya çalıştığım Macrolarda bir hata ya da aksaklık var ama nedenini bilemiyorum. Bana yardımcı olur musunuz? 2. ve 3. Comboları oluştururken yazılımları nasıl birşetireceğim ya da tamamlayacağım.

İyi Çalışmalar
 
Son düzenleme:
Z

zafer

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
Merhaba

Hatanız aynı isimli iki adet makronuzun olmasından kaynaklanıyor

Tam olarak ne istediğinizi açıklarmısınız.

Bir çok ismi "additem" ile iki adet combobox'a almak istemişsiniz.
ne yapılacağını yazınız.
 
Orion1

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Merhaba.
Ekli dosyayı inceleyiniz.:cool:
Kod: 
Private Sub ComboBox2_Change()
Sheets("Saha Tarama Raporu").Range("I13") = ComboBox2
End Sub
Kod: 
Private Sub Worksheet_Activate()
Dim c
ComboBox2.Text = ""
With ComboBox2
.AddItem "Karar Aşaması"
.AddItem "Plan-Proje Aşaması"
.AddItem "Mobilizasyon"
.AddItem "Temel"
.AddItem "Kaba Yapı"
.AddItem "İnce Yapı"
.AddItem "İç Dekorasyon"
.AddItem "Tefriş"
.AddItem "Bitmiş"
.AddItem "Durmuş"
End With
ComboBox1.Text = ""
With ComboBox1
.AddItem ""
.AddItem "Metal"
.AddItem "Makina"
.AddItem "Maden"
.AddItem "Kimya"
.AddItem "Petro Kimya"
.AddItem "Plastik"
.AddItem "Enerji"
.AddItem "Elektrik Elektronik"
.AddItem "otomotiv"
.AddItem "Hayvancılık"
.AddItem "Tarım"
.AddItem "Gıda"
.AddItem "Ulaşım"
.AddItem "Telekominikasyon"
.AddItem "Eğitim"
.AddItem "Sağlık"
.AddItem "Turizm"
.AddItem "Bilişim"
.AddItem "Parakende"
.AddItem "Ağır Sanayi"
.AddItem "Sanayi"
.AddItem "İnşaat"
.AddItem "Gayrimenkul"
.AddItem "Çimento"
.AddItem "Finans"
.AddItem "Lojistik"
.AddItem "Orman Ürünleri"
End With
End Sub
 
kulomer46

kulomer46

Altın Üye
Katılım
23 Mart 2007
Mesajlar
1,514
Excel Vers. ve Dili
Microsoft Office LTSC Professional Plus 2021 - Türkçe
Altın Üyelik Bitiş Tarihi
08-06-2027
Excel sayfanda combobox yerine açılır kutu kullanmak daha mantıklı. İlgilenirsen veri girilmiş bir örnek ektedir. İstediğin gibi geliştirebilirsin. İyi Çalışmalar..
 
A

Araştırıcı

Katılım
28 Haziran 2007
Mesajlar
206
Excel Vers. ve Dili
Excel 2003 İngilizce
Ekli dosyadaki Makrolar çalışmıyor.

Sayın Sezar ve Kulomer,
Günaydınlar. Öncelikle paylaştığınız değerli bilgileriniz için size teşekkür ederim.
Sayın Sezarın önerisinden gittiğimde sorun şu oldu. Dosyayı kapattığımda Makro çalışmadı. Mesela Comboların içinde olması gereken sektör ya da benzeri değişkenler yoktu. Problem bu anlamda devam ediyor.
Sayın Kulomer'in önerisinde ise ilgili hücrelerin yanındaki küçük kutuları tıkladığımda sadece 3 adet veriyi görebildim. Bunları combo açıldığında daha fazla görebilmek ve arttırmak için ne yapabilirim.

Sayın Zafer Bey, yapmak istediğim ekli dosyadaki alanlarra Combo Boxlar koyarak değişkenlerimi yerleştirmek ve seçemek. 3 adet Combo olacak bunlar örneğin sektörler, Proje Durumu gibi...

Acil konu ile ilgili yardımlarınızı bekliyorum. iyi çalışmalar.
 
Orion1

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Merhaba.
Siz Combobox'lara Additem yöntemi ile verileri almışsınız.Aldığınz bu veriler combobox'ta gösteriliyor.
Eğer bunuların dışında başka yerlerdende veriler alınacaksa bunları bildirin ki combobox'a alalım.Alınacak sütun'u ve hücre aralığını bildirmeniz gerekiyor.
Bunları bilemeden ben ComboBox'a verileri nasıl alabilirim.:cool:
 
A

Araştırıcı

Katılım
28 Haziran 2007
Mesajlar
206
Excel Vers. ve Dili
Excel 2003 İngilizce
Sayın Sezar,

Ayırdığınız zamandan dolayı çok teşekkür ederim, konunun daha rahat anlaşılması bakımından sizin istekleriniz doğrultusunda ilgili dosyaya bir ""Veriler" Sheet'i ekledim. Burada yapmak istediğimide yazmaya çalıştım. Cevabınızı bekliyor iyi çalışmalar diliyorum.

Dosya ektedir
Saygılar
 
Orion1

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Merhaba.
Dosyanız hazır.
Ekli dosyayı inceleyiniz.:cool:
Kod: 
Sub liste()
Dim i As Long, k As Long, cmb1veri As String, cmb2veri As String
cmb1veri = Sheets("Saha Tarama Raporu").Range("I10").Value
cmb2veri = Sheets("Saha Tarama Raporu").Range("I13").Value
Sheets("Saha Tarama Raporu").ComboBox1.Clear: Sheets("Saha Tarama Raporu").ComboBox2.Clear
For i = 2 To Sheets("Veriler").Cells(65536, "B").End(xlUp).Row
    Sheets("Saha Tarama Raporu").ComboBox1.AddItem Sheets("Veriler").Cells(i, "B").Value
Next
Sheets("Saha Tarama Raporu").ComboBox1.Value = cmb1veri
For k = 2 To Sheets("Veriler").Cells(65536, "A").End(xlUp).Row
    Sheets("Saha Tarama Raporu").ComboBox2.AddItem Sheets("Veriler").Cells(k, "A").Value
Next
Sheets("Saha Tarama Raporu").ComboBox2.Value = cmb2veri
End Sub
 
A

Araştırıcı

Katılım
28 Haziran 2007
Mesajlar
206
Excel Vers. ve Dili
Excel 2003 İngilizce
Çok güzel Bir çalışma

Merhaba,

Güzel çalışmanız ve zahmetleriniz için çok teşekkür ediyorum. İşiniz hep rast gitmesini diliyorum.

Merak ettiğim <<Add Item>> yöntemi ile bunu bu şekilde yapmak imkansızmıydı Add Item yöntemi daha çok ne zaman uygulanabilir?

İyi Çalışmalar kolay gelsin.
 
Orion1

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Merhaba.
Kodları incelerseniz,veriler döngüye girilerek additem metotu ile alınıyor.
İyi çalışmalar.:cool:
 
A

Araştırıcı

Katılım
28 Haziran 2007
Mesajlar
206
Excel Vers. ve Dili
Excel 2003 İngilizce
Say&#305;n Sezar G&#252;nayd&#305;n,

Ben AddItem y&#246;ntemini uygulam&#305;n&#305;z&#305; inceledim, kendim devam&#305; olu&#351;turmak istedim ve ekteki dosyadaki duruma getirdim. Ancak saatlerce &#252;zerinde &#231;al&#305;&#351;mama ra&#287;men bir ayr&#305;nt&#305;y&#305; g&#246;remiyorum. &#350;imdi burada yeni ekledi&#287;im Combo3 ve Combo 4 &#252;n i&#231;ersine verileri aktarabildim ama I4 ve 116 H&#252;crelerine bu verileri aktarmay&#305; halledemedi. Yaz&#305;l&#305;ma bir hata vermiyor ama son combolar&#305;n de&#287;erleri istedi&#287;im h&#252;creye ge&#231;miyor. Nerede hata yap&#305;yorum? Bana a&#231;&#305;klarsan&#305;z san&#305;r&#305;m bu &#231;al&#305;&#351;malar&#305;n mant&#305;&#287;&#305;n&#305; kavray&#305;p bu yolda sayenizde kendi ba&#351;&#305;ma y&#252;remeye ba&#351;layabilece&#287;im. Yard&#305;m&#305;n&#305;z&#305; bekliyor iyi &#231;al&#305;&#351;malar diliyorum.
 
Son düzenleme:
Orion1

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Merhaba.
çalışma sayfasındaki ilgili combobox'ların Change olayı aşağıdaki gibi olmalı.:cool:
Kod: 
Private Sub ComboBox4_Change()
Range("I4").Value = ComboBox4.Value
End Sub
Kod: 
Private Sub ComboBox3_Change()
Range("I16").Value = ComboBox3.Value
End Sub
 
A

Araştırıcı

Katılım
28 Haziran 2007
Mesajlar
206
Excel Vers. ve Dili
Excel 2003 İngilizce
Say&#305;n Sezar,

Yard&#305;m&#305;n&#305;z i&#231;in te&#351;ekk&#252;rler. &#199;ok faydal&#305; oldu. Elinize bilginize, sa&#287;l&#305;k.
Kendi ba&#351;&#305;ma bundan b&#246;yle bir&#351;eyler yapabilmemde bana &#231;ok &#246;nemli bir yol g&#246;sterdiniz.
Tekrar g&#246;r&#252;&#351;mek &#252;zere..:mutlu:
 
Orion1

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Araştırıcı' Alıntı:
Sayın Sezar,

Yardımınız için teşekkürler. Çok faydalı oldu. Elinize bilginize, sağlık.
Kendi başıma bundan böyle birşeyler yapabilmemde bana çok önemli bir yol gösterdiniz.
Tekrar görüşmek üzere..:mutlu:
Genişletmek için tıkla ...
Rica ederim.
İyi çalışmalar.:cool:
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst