• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

ComboBox verisi

  • Konbuyu başlatan Konbuyu başlatan RONIN1
  • Başlangıç tarihi Başlangıç tarihi
Katılım
30 Ağustos 2010
Mesajlar
249
Excel Vers. ve Dili
2003-2010 Ingilizce
Merhaba

Ayni UserForm içerisinde ComboBox1 e 3 adet değer atadım fakat ComboBox2 ye aynı değerleri tekrar nasıl tanımlayabilirim?

Yardımlerınız için teşekkürler

Private Sub UserForm_Initialize()
With ComboBox1
.AddItem " 8"
.AddItem "15"
.AddItem "18"
End With
End Sub
 
Merhaba,
Kod:
Private Sub UserForm_Initialize()
With ComboBox1
.AddItem " 8"
.AddItem "15"
.AddItem "18"
End With
With ComboBox2
.AddItem " 8"
.AddItem "15"
.AddItem "18"
End With
End Sub
 
Merhaba

VBA öğrenmeye çalışıyorum da bu yüzden başınızı çok ağrıtacağa benziyorum :)

Teşekkür ederim. Denedim ve oldu.
 
Merhaba
VBA öğrenmeye çalışıyorum da bu yüzden başınızı çok ağrıtacağa benziyorum :)
Teşekkür ederim. Denedim ve oldu.

Rica ederim.
Öğrenmeye çalıştığınıza göre, aşağıdaki kodu da incelemenizi öneririm.
Kod:
Private Sub UserForm_Initialize()
For i = 1 To 2
    With Controls("ComboBox" & i)
        .AddItem " 8"
        .AddItem "15"
        .AddItem "18"
    End With
Next
End Sub
 
Tekrar merhaba

İnternetten uygulamalı örnekler içeren bir dosya buldum. Dosya VB6 olduğundan dolayı olduğunu düşündüğüm hatalar veriyor. İlk sorum bununla ilgiliydi anladığım kadarı ile. Aşağıdaki sorunun da bununla ilgili olduğunu düşünuyorum.

Bana bu konuda basit örnekler içeren ve ufak tefek uygulamalar yapabileceğim başlangıç eğitimi ile ilgili döküman önerebilirmisiniz zahmet olmazsa.

Aşağıdaki komutta hata mesajı aldım.

Private Sub CommandButton1_click()
a = 2: b = 3.5
c = a + b
dugme = "CommandButton1->"
Print dugme, "a="; a, "b="; b, "c="; c
End Sub

Şimdiden teşekkürler.
 
Merhaba,
Ben VBA konusunu buradan öğrendim. Hala da öğrenmeye devam ediyorum.
Forumdaki Excel Dersanesi bölümünü incelemenizi öneririm. Yukarıdaki kodu da şöyle deneyiniz.
Kod:
Private Sub CommandButton1_Click()
a = 2: b = 3.5
c = a + b
dugme = "CommandButton1->"
MsgBox dugme & Chr(13) & "a= " & a & Chr(13) & "b= " & b & Chr(13) & "c= " & c
End Sub
 
Günaydın

Yararlı bilgileriniz için teşekkür ederim.

Dersleri inceleyeceğim. Umarım sizin ve diğer arkadaşların başını fazla ağrıtmadan vba hakkında birşeyler öğrenebilirim.

İyi çalışmalar
 
Geri
Üst