Kemal Demir
Özel Üye
- Katılım
- 29 Temmuz 2004
- Mesajlar
- 2,108
Arkadaslar merhaba
Private Sub TextBox1_Change()
Set s1 = Sheets("DATA")
sat = s1.Columns(1).Find(TextBox1.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
s1.Cells(sat, 1).Select
End Sub
yukarıdaki kodda ıd olarak belirtilen bir sutun mevcut
yalnız ben bunda bir değişiklik yapmak istiyorum
excel'ın solunda durun satır nosuna göre değişiklik yapmak istiyorum .
Ama Bilgim yetersiz kullanılacak terimin ne olduğunu bilmiyorum yardımcı olursanız sevinirim.
Saygılar.
Private Sub TextBox1_Change()
Set s1 = Sheets("DATA")
sat = s1.Columns(1).Find(TextBox1.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
s1.Cells(sat, 1).Select
End Sub
yukarıdaki kodda ıd olarak belirtilen bir sutun mevcut
yalnız ben bunda bir değişiklik yapmak istiyorum
excel'ın solunda durun satır nosuna göre değişiklik yapmak istiyorum .
Ama Bilgim yetersiz kullanılacak terimin ne olduğunu bilmiyorum yardımcı olursanız sevinirim.
Saygılar.