aktardığım sayfa her kayıtta güncellensin

[Emine Şahin]

Merhaba arkadaşlar.
Aşağıdaki kodlarımla "satış" sayfasından listboxtan seçtiğim verileri "adetkontrol" sayfasına aktarıyorum. Lakin her aktardığım altalta kaydediyor. Ben her kayıtta silbaştan kayıt yapmasını istiyorum. Bu kodlara ne eklemem gerekirki, her butonu bastığımda sayfa yeniden verileri alsın. Alt alta ekleyip gitmesin?

Private Sub CommandButton14_Click()

sor = MsgBox("Seçilen kayıtlar adet kontrol sayfasına aktarılacak!", vbYesNo)
If sor = vbNo Then Exit Sub

    Dim i As Long, a As Long
        For i = 0 To ListBox1.ListCount - 1
            If ListBox1.Selected(i) = True Then
                With Sheets("adetkontrol")


                    .Range("A65536").End(3)(2, 1).Value = ListBox1.List(i, 0)
                    .Range("A65536").End(3)(1, 2).Value = ListBox1.List(i, 1)
                    .Range("A65536").End(3)(1, 3).Value = ListBox1.List(i, 2)
                    .Range("A65536").End(3)(1, 4).Value = ListBox1.List(i, 4)
                    .Range("A65536").End(3)(1, 5).Value = ListBox1.List(i, 5)
                    .Range("A65536").End(3)(1, 6).Value = ListBox1.List(i, 8)
                    .Range("A65536").End(3)(1, 7).Value = ListBox1.List(i, 11)
                    

                End With
            End If
    Next i
    a = Empty: i = Empty
    MsgBox "Seçtiğiniz veriler aktarılmıştır.", vbInformation, "............"

    Unload satış
    Sheets("adetkontrol").Select
    Call aktar
End Sub

 

[Murat OSMA]

Aktarmadan önce adetkontrol sayfasınndaki silinmesini istediğiniz alanları silin...

Örnek;

sheets("adetkontrol").range("a2:z300").clearcontents

 

[Emine Şahin]

Aktarmadan önce adetkontrol sayfasınndaki silinmesini istediğiniz alanları silin...

Örnek;

sheets("adetkontrol").range("a2:z300").clearcontents

Teşekkür ederim. Hatırlarsınız, M:O sütunlarını silen bir kod vardı.
Çok uğraştım ama... Allah razı olsun.

 

[Murat OSMA]

Evet hatırladım ama adetkontrol sayfasında başlıkların olabileceğini düşündüğüm için tüm kolonları sildirmedim...

İlk önce bunları öğrenmeye çalışın. Temeli bilirsiniz...