Yardim Talebi:Toolbox seceneklerindeki Combobox i kullanimi?

[Griadam]

Merhaba
Cok iyi bir paylasim alanini ve ailesini olusturdugunuz icin oncelikle yurekten tebrik ederim .
Degerli Forum paylasimcilari,
benim sorum soyle ki ; Toolbox araclarinda yer alan combobox veya listbox a seceneklere bagli makrolar vermek istiyorum.Eger sadece iki secenek olsaydi toggle buton ile yapabiliyordum ama fazla olunca beceremedim. Ornek verip kolay anlasilir hale getirecek olursak
Combo box ta Turkce Ingilizce ve Rusca gibi dil secenekleri olsun ve Turkce secildiginde GrafikT, Ingilizce secildiginde GrafikE sheetinde herhangi bir hucreye atlasin. gibi bir kod yazmak istiyorum. Bu konuda yardiminiza ihtiyacim var.
Simdiden cok tesekkur ederim.

 

[Griadam]

Aciliyet konusu

Gondermis oldugum konu benim acimdan biraz acildir , degerli arkadaslarin ve site yoneticilerinin affina ve hosgorusune siginarak ricama cevap yazilmasi konusunda biraz ivedilikle yardimci olunabilir mi acaba ? Anlayisiniz icin simdiden tesekkur ederim.

 

[cako]

if combobox1.value="Türkçe" then
Worksheets("GrafikT").Range("A1").Select
Goto ATLA
End if
if combobox1.value="Ingilizce" then
worksheets("GrafikE").Range("A1").Select
Goto ATLA
End if
...
....
....
ATLA:
diğer kodlarınız

 

[isakarakus]

merhaba,
:hey:
hoşgeldiniz,
sorunuzun cevabı daha önce verilmişti, siz mesajı yazdığınızda aradım fakat bulamadım.
o örnekte makrolar toolbox ta listeleniyordu ve hangisi seçilirse bulunuyor du

tekrar bakayim umarım bulurum.

 

[Griadam]

Hosbulduk ilginize cok tesekkur ederim, bu konuda birsey daha soracagim combobox in icine bu degerleri nereden atayabilirim ? Yani Forms menusundeki combobox a mesela hucreler referans verildiginde ici o veriler ile doluyor ama Control Tool Box menusunde yer alan combo box icin bunu yapamadim.

 

[veyselemre]

Private Sub ComboBox1_Change()
Select Case ComboBox1.ListIndex
Case Is = 0: Sheets(ComboBox1.Text).Activate
Cells(3, 4).Activate
Case Is = 1: Sheets(ComboBox1.Text).Activate
Range("f1").Activate
Case Is = 2: Sheets(ComboBox1.Text).Activate
Range("b4") = "veysel"
End Select
End Sub
Private Sub UserForm_Activate()
ComboBox1.AddItem "sayfa1", 0
ComboBox1.AddItem "sayfa2", 1
ComboBox1.AddItem "sayfa3", 2
End Sub

 

[isakarakus]

merhaba,
önceki konuyu buldum.

Toolbox araclarinda yer alan combobox veya listbox a seceneklere bagli makrolar vermek istiyorum.

bu ifadeye göre sizin istediğiniz bunun gibi birşey olsa gerek.
http://www.excel.web.tr/viewtopic.php?t=3605&highlight=combobox

 

[Griadam]

Yardimlariniz icin cok tesekkur ederim ugrastim ama maalesef beceremedim , istedigimi iyi ifade edemedigim icin sizin de vaktiniz caldim sanirim ben yaptigim dosyayi attach ettim onun uzerinde gostermeye calisiyorum. Son kez yardiminizi rica edecegim , yine beceremezsem soz veriyorum basinizi agritmayacagim.

 

[isakarakus]

merhaba,
sevgili Raider2in verdiği örnek programa göre düzenledim.
umarım beğenirsin

araç kutusunda yeni bir bölüm açıyor...

 

[isakarakus]

bir de lütfen dosyalarımız sıkıştırarak gönderelim.

yine beceremezsem soz veriyorum basinizi agritmayacagim.

başımız ağrımaz bilakis mutlu oluruz.
yardıma ihtiyacız olduğunda çekinmeden yazabilirsiniz.

 

[Griadam]

Cok tesekkur ederim,