Listbox üzerinden değişiklik...

[acolkesen1]

Merhaba arkadaşlar,
Ekli dosyada da açıkladığım gibi, aşağıdaki kodlarla daha önce sayfaya kaydedilmiş verileri ListBox üzerinde tıklayarak textboxlara alıyorum ve textboxlarda gerekli düzenlemeleri yaparak tekrar sayfaya kaydetmek istiyorum. Ancak ilk satırdaki koddan sonrası çalışmıyor. İlk satıra hangisini alırsam o çalışıyor. İlgilenen arkadaşlara teşekkür ederim.
Kodlar aşağıdaki gibidir;

Private Sub CommandButton10_Click()

Set a = [SİPARİŞ!A10:A1000].Find(TB1 * 1, lookat:=xlWhole)

If TB1 <> "" Then a.Offset(0, 8) = TextBox4 * 1
a.Offset(0, 4) = TB3
a.Offset(0, 6) = TB5 * 1
a.Offset(0, 7) = TB6
If TB1 <> "" Then a.Offset(0, 9) = CB1

With ListBox1
.ColumnCount = 12
.ColumnWidths = "20;0;75;0;175;100;30;30;50;100;50;50"
.RowSource = "SİPARİŞ!A10:K" & Sheets("SİPARİŞ").Cells("65536", "A").End(xlUp).Row
End With

'ALTTPL = Format(WorksheetFunction.Sum([SİPARİŞ!K10:K1500]), "#,##0.00")
TB1 = ""
TB2 = ""
TB3 = ""
TB4 = ""
TB5 = ""
TB6 = ""
TextBox4 = ""
CB1 = ""
End Sub

 

[halit3]

Kodun başına bunu ekleyip denermisiniz.

ListBox1.RowSource = ""

 

[acolkesen1]

Vallahi oldu..
Nasıl aklıma gelmedi bu???? Çok teşekkür ederim Sayın Halit3...

 

[halit3]

Vallahi oldu..
Nasıl aklıma gelmedi bu???? Çok teşekkür ederim Sayın Halit3...

iyi çalışmalar