combobox yardımı

[sehriyar]

Herkese iyi günler.Belki benim sorunum ile ilgili forumda daha önce ele alınmış konular olabilir ama bir saattir bulamıyorum.Sorunum şu comboboxtaki veriye göre başka bir hücreye nasıl değer atayabilirim.saatlerdir if komutuyla deniyorum ama başaramadım.Yardımlarınızı bekliyorum.şimdiden teşekkürler.

 

[sehriyar]

yapmak istediğim şu if combobox1.value=250 then [c19]=faal

 

[Ayhan Ercan]

Merhaba denden("") kullanarak deneyiniz ;

if combobox1.value="250" then [c19]="faal"

gibi...

 

[ziya]

Ayhan hocam,
benzeri sorunu yaşıyorum

Private Sub MultiPage2_Click(ByVal Index As Long)
[COLOR=blue](Cmboboxtan seçim yapılmamışsa diyemedim bir türlü)[/COLOR]
Dim t32 As Integer
t32 = ((ComboBox2.ListIndex + 1) * 3) - 1
TextBox1 = Sheets(ComboBox1.Value).Range("H" & t32 + 2).Value
TextBox2 = Sheets(ComboBox1.Value).Range("G" & t32 + 2).Value
TextBox3 = Sheets(ComboBox1.Value).Range("F" & t32 + 2).Value

İki combobox kullandım 1 ve 2
İkisinden de seçim yapılmamışsa, uyarı, seçim yapılmışsa işleme devam.

Şimdiden teşekkür ederim.

 

[Ayhan Ercan]

Ayhan hocam,
benzeri sorunu yaşıyorum

Private Sub MultiPage2_Click(ByVal Index As Long)
[COLOR=blue](Cmboboxtan seçim yapılmamışsa diyemedim bir türlü)[/COLOR]
Dim t32 As Integer
t32 = ((ComboBox2.ListIndex + 1) * 3) - 1
TextBox1 = Sheets(ComboBox1.Value).Range("H" & t32 + 2).Value
TextBox2 = Sheets(ComboBox1.Value).Range("G" & t32 + 2).Value
TextBox3 = Sheets(ComboBox1.Value).Range("F" & t32 + 2).Value

İki combobox kullandım 1 ve 2
İkisinden de seçim yapılmamışsa, uyarı, seçim yapılmışsa işleme devam.

Şimdiden teşekkür ederim.

Merhaba,
Ne yapmak istediğinize ve comboboxun durumuna göre değişebilir bir soru.

Comboboxun seçilmediğini nasıl anlayabiliriz bunu bilirsek sorun yok. Mesela düşündümde eger combobox seçilmediği zamanda boş kalıyorsa;
if combobox1.value = "" denilebilir.

Dediğim gibi comboboxu seçtiğinizde neler oluyorsa, seçilmediğinde olan şey ne olur onu anlarsanız benim örneğime veya benzer bir sonuca gidebilirsiniz...

 

[ziya]

Ben de boş kalıyor düşünerek bir şeyler yapmaya çalıştım. Ama beceremedim.

Combobox1 veri alma kodu

 ComboBox1.RowSource = "VERİ!B2:B" & Sheets("VERİ").Range("B65536").End(xlUp).Row

Combobox'un aldığı verileri Son_Dolu_Satır kodu ile VERİ sayfasına kaydediyorum.

Combobox2 AddItem'lerle OCAK,ŞUBAT ... ay adları alıyor.

Ve her ikiside userform Initialize ile aktif oluyor.