değiştir butonu doğru çalışmıyor.

[kan-nas]

Değiştir butonu sadece 1 kere hücre(2,2) için çalışıyor. Sonra çalışmıyor. Yardımlarnız için..

Nasıl bir kod yazabilirim.

 

[İhsan Tank]

Değiştir butonu sadece 1 kere hücre(2,2) için çalışıyor. Sonra çalışmıyor. Yardımlarnız için..

Nasıl bir kod yazabilirim.

merhaba
değiştir kodunu bununla değiştirin

Private Sub CommandButton2_Click()
ts = ListBox1.ListIndex + 2
Sheets("1").Select
ListBox1.RowSource = ""
Cells(ts, "B") = TextBox1.Value
Cells(ts, "C") = TextBox2.Value
Cells(ts, "D") = TextBox3.Value
Cells(ts, "E") = TextBox4.Value
End Sub

 

[kan-nas]

ListBox1.RowSource = ""

hocam kod çalışıyor ama yukarıdaki kodla niçin Listboxu boşalttık.
Engin bilginizi paylasır mısınız.?

 

[İhsan Tank]

ListBox1.RowSource = ""

hocam kod çalışıyor ama yukarıdaki kodla niçin Listboxu boşalttık.
Engin bilginizi paylasır mısınız.?

onu boşalttı çünkü satır'ı bulmasını istediğimiz kod'u sıfırlıyordu başa dönerek bu şekilde bu sorunu atladık.

 

[halit3]

Değiştir butonu sadece 1 kere hücre(2,2) için çalışıyor. Sonra çalışmıyor. Yardımlarnız için..

Nasıl bir kod yazabilirim.

Kodun hemen altına aşağıdaki kırmızı yeri ekleyiniz.

Private Sub CommandButton2_Click()
ts = ListBox1.ListIndex + 2
ListBox1.RowSource = ""
Cells(ts, "B") = TextBox1.Value
Cells(ts, "C") = TextBox2.Value
Cells(ts, "D") = TextBox3.Value
Cells(ts, "E") = TextBox4.Value
[COLOR=red]ListBox1.RowSource = "1!a2:e" & Range("e65536").End(3).Row[/COLOR]
End Sub