Listbox üzerinden işlem de yardım

[acolkesen1]

Merhaba arkadaşlar,
Ekli çalışmamda listbox üzerinden seçilen satırdaki verileri textboxlara alıp gerekli düzeltmeleri yaptıktan sonra aşağıdaki kod ile değişiklikleri kaydetmek istiyorum. Ancak ilk satırdaki değişiklikten sonrası kaydedilmiyor. Kodda nasıl bir değişiklik gerektiği konusunda yardımcı olacak arkadaşlara teşekkür ederim.
Kod;
Private Sub CommandButton2_Click()
Set c = [Sayfa1!C:C].Find(ListBox1.Column(1), lookat:=xlWhole)
c.Offset(0, 2) = MİK * 1
c.Offset(0, 5) = KDV * 1
c.Offset(0, 6) = İSK1 * 1
c.Offset(0, 9) = KDSF * 1

SN = ""
BAR = ""
STKA = ""
MİK = ""
BRM = ""
KDV = ""
KHAF = ""
Aİ1 = ""
KDAF = ""
KHSF = ""
KDSF = ""
TSG = ""
ASG = ""
ÖGK = ""
'ListBox1.ListIndex = ListBox1.ListIndex + 1
End Sub

 

[Excelmy]

Sayın acolkesen1

Aşağıdaki kodları uygulayınız.

Private Sub CommandButton2_Click()
On Error Resume Next
Dim bul As Range, a As Long
    With Sheets("Sayfa1")
        a = .Range("a65536").End(3).Row
            For Each bul In .Range("C2:C" & a)
                If bul.Value = BAR.Value Then
                    bul.Offset(0, 2).Value = BAR
                    '........... devamını tamamla
                    ListBox1.Clear
                    Call UserForm_Initialize
                        Exit For
                End If
            Next bul
    End With
Set bul = Nothing: a = Empty
End Sub

 

[acolkesen1]

Merhaba Sayın Excelmy,
ilginize teşekkür ederim. Önerinizi uyguladım ancak sonuç yine aynı. Miktarı değiştirdikten sonra diğerlerini değiştirmiyor. Kodlarınızın uygulandığı dosya ektedir.