İstenen sutuna kayıt yapma

[seddur]

1 adet combobox da - a, b, c, d , e değerleri var."d" yi seçtiğimde istediğim sutuna örneğin 3 no'lu sutuna yazsın."a" yı seçtiğimde 2 no'lu sutuna yazsın gibi....Eğer komutu ile bir şeyler yapmaya çalıştım ama beceremedim.Yardımlarınızı bekliyorum.Arşiv içinde güzel bir örnek olacak.

 

[YUSUF44]

Aşağıdaki mantıkla olur sanıyorum:

If combobox1.value = "d" then
cells(1,3) = "Ali"
ElseIf combobox1.value = "a" then
cells(1,2) = "Veli"
Else....
....

 

[seddur]

Evet oldu sağol.ilgilenirsen 2. aşamasıda var o da şu; Aynı anda iki sutuna değer girmem gerekiyor.Yani ürün cinsi A sutununa, Fiyatıda B sutununa kaydedilecek.A sutunu "Mezeler" C sutunu "Salatalar "E" sutunu "Anayemekler" ve yanlarında fiyatları olarak devam ediyor.

 

[YUSUF44]

Böyle çözmek zor. Örnek dosya paylaşırsanız iyi olur. İki aşama arasında bağlantı kuramadım. Eğer paylaşırsanız, örnek dosyanız asıl dosyanızla birebir aynı yapıda olsun lütfen, içinde gerçek veriler olmasına gerek yok.

 

[seddur]

Sağol aşağıdaki kodla yapmayı başardım.Gerek kalmadı.

Sonsatır = WorksheetFunction.CountA(Worksheets("Sayfa1").Range("A:A")) + 1


If ComboBox1.Value = "MEZELER" Then
Worksheets("Sayfa1").Cells(Sonsatır, 1) = TextBox2
Worksheets("Sayfa1").Cells(Sonsatır, 2) = TextBox3
ElseIf ComboBox1.Value = "ÇORBALAR" Then
Worksheets("Sayfa1").Cells(Sonsatır, 3) = TextBox2
Worksheets("Sayfa1").Cells(Sonsatır, 4) = TextBox3
ElseIf ComboBox1.Value = "SALATALAR" Then
Worksheets("Sayfa1").Cells(Sonsatır, 5) = TextBox2
Worksheets("Sayfa1").Cells(Sonsatır, 6) = TextBox3


End If

 

[Haluk]

Karnım acıktı ....

.