Textboxtaki veriyi comboboxa göre belirlenen sütuna aktarma

[Erdinç FIRTINA]

Değerli forum üyeleri,
Texboxtaki veriyi, comboboxtaki değere göre aktarmak istiyorum. Örneğin, comboboxta "GELİR" seçilmiş ise, textbox2 deki tutarı(değeri) "H" sütununa, "GİDER" seçilmiş ise "I" sütununa aktarmak istiyorum.

Kodlarda nasıl bir değişiklik yapmalıyım?

Yardımlarınız için şimdiden teşekkürler!!!

 

[Recep İpek]

Aşağıdaki kodları deneyiniz.

say = WorksheetFunction.CountA(Range("b1:b65536")) + 1
Range("b" & say) = TextBox1.Value
[COLOR=blue]If ComboBox1.Value = "GELİR" Then
Range("h" & say) = TextBox2.Value
Else
Range("i" & say) = TextBox2.Value
End If
[/COLOR]Range("d" & say) = TextBox3.Value
Range("e" & say) = ComboBox1.Value
Range("F" & say) = ComboBox2.Value
Range("g" & say) = TextBox4.Value

 

[Erdinç FIRTINA]

Sayın Ripek,
Çok teşekkür ederim. Böyle bir uygulamayı becerebilmek için ne kadar çok uğraştığımı bir bilseydiniz, size ne kadar içtenlikle teşekkür ettiğimi daha iyi anlardınız zannediyorum. Tüm yüreğimle beyninize ve yüreğinize sağlık diyorum.

Bu forumun niçin çok düzeyli olduğunu da çok düşünmeye gerek yok sanırım. her şey için çok teşekkürler!!!