Comboboxda seçilen veriye göre activecell yapma

[enes2000eren]

SLM.ARKADAŞLAR COMBOBOXDA (VERİLERİ A SÜTUNUNDAN ALIYOR) BİR VERİYİ SEÇİNCE COMBOBOXA GELEN VERİNİN AİT OLDUĞU SATIRIN A SÜTUNUNDAKİ O HÜCRENİN SEÇİLİ OLMASINI İSTİYORUM.YANİ ACTİVECELL
AMA BİR TÜRLÜ BECEREMEDİM KODLARIM AŞAĞIDAKİ GİBİDİR.

Private Sub FİRMA_Change()
'Range("FİRMA.Value").Select
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
TextBox7 = ""
TextBox8 = ""
TextBox9 = ""
TextBox10 = ""
TextBox11 = ""
TextBox12 = ""
TextBox13 = ""
TextBox14 = ""
TextBox15 = ""
TextBox16 = ""
TextBox17 = ""
TextBox18 = ""
TextBox19 = ""
TextBox20 = ""


On Error Resume Next
FİRMA.RowSource = "KAYIT!A2:A10000"
Set s1 = Sheets("KAYIT")
sat = s1.Columns(1).Find(FİRMA.Value).Row
TextBox2.Value = s1.Cells(sat, 2).Value
TextBox3.Value = s1.Cells(sat, 3).Value
TextBox4.Value = s1.Cells(sat, 4).Value
TextBox5.Value = s1.Cells(sat, 5).Value
TextBox6.Value = s1.Cells(sat, 6).Value
TextBox7.Value = s1.Cells(sat, 7).Value
TextBox8.Value = s1.Cells(sat, 8).Value
TextBox9.Value = s1.Cells(sat, 9).Value
TextBox10.Value = s1.Cells(sat, 10).Value
'TextBox11.Value = s1.Cells(sat, 11).Value
TextBox12.Value = s1.Cells(sat, 12).Value
TextBox13.Value = s1.Cells(sat, 13).Value
TextBox14.Value = s1.Cells(sat, 14).Value
TextBox15.Value = s1.Cells(sat, 15).Value
TextBox16.Value = s1.Cells(sat, 16).Value
'TextBox17.Value = s1.Cells(sat, 17).Value
'TextBox18.Value = s1.Cells(sat, 18).Value
TextBox19.Value = s1.Cells(sat, 19).Value
'TextBox20.Value = s1.Cells(sat, 20).Value
TextBox21.Value = s1.Cells(sat, 21).Value


TextBox11.Value = (TextBox9.Value * TextBox10.Value / 10000)
TextBox17.Value = TextBox11.Value * TextBox12.Value / 100
TextBox18.Value = TextBox17.Value + TextBox17.Value * 18 / 100
TextBox20.Value = TextBox18.Value - TextBox19.Value
End Sub

 

[enes2000eren]

Textleri anında değiştirme

DOSYA EKLEMEYİ UNUTMUŞUM.Textbox 9,textbox 10,textbox 12,textbox 19 değişken .değiştir butonunu kullandığımda buna bağımlı diğer textboxların değişmesi lazım.daha bu hücreler veri girdiğimde diğer texlerin otomatik değişmesi lazım.nasıl yapabilirim.