Soru Aktarırken en üste alma

[sirkülasyon]

Set S1 = ThisWorkbook.Worksheets("ARŞİV")
S1.Range("AA2:AY65536").ClearContents
Sy = 1
For i = 2 To S1.Range("c65536").End(xlUp).Row
If S1.Cells(i, "c") = ListBox1.List(ListBox1.ListIndex, 1) And S1.Cells(i, "d") = ListBox1.List(ListBox1.ListIndex, 2) And S1.Cells(i, "e") = ListBox1.List(ListBox1.ListIndex, 3) And S1.Cells(i, "f") = ListBox1.List(ListBox1.ListIndex, 4) And S1.Cells(i, "g") = ListBox1.List(ListBox1.ListIndex, 5) And S1.Cells(i, "h") = ListBox1.List(ListBox1.ListIndex, 6) Then
S1.Cells(i, "AA") = S1.Cells(i, "B")
S1.Cells(i, "AB") = S1.Cells(i, "C")
S1.Cells(i, "AC") = S1.Cells(i, "D")
S1.Cells(i, "AD") = S1.Cells(i, "E")
S1.Cells(i, "AE") = S1.Cells(i, "F")
S1.Cells(i, "AF") = S1.Cells(i, "G")
S1.Cells(i, "AG") = S1.Cells(i, "H")
S1.Cells(i, "AH") = S1.Cells(i, "I")
S1.Cells(i, "AI") = S1.Cells(i, "J")
S1.Cells(i, "AJ") = S1.Cells(i, "K")
S1.Cells(i, "AK") = S1.Cells(i, "L")
S1.Cells(i, "AL") = S1.Cells(i, "M")
S1.Cells(i, "AM") = S1.Cells(i, "N")
S1.Cells(i, "AN") = S1.Cells(i, "O")
S1.Cells(i, "AO") = S1.Cells(i, "P")
S1.Cells(i, "AP") = S1.Cells(i, "Q")
S1.Cells(i, "AQ") = S1.Cells(i, "R")
S1.Cells(i, "AR") = S1.Cells(i, "S")
S1.Cells(i, "AS") = S1.Cells(i, "T")
S1.Cells(i, "AT") = S1.Cells(i, "U")
S1.Cells(i, "AU") = S1.Cells(i, "V")
S1.Cells(i, "AV") = S1.Cells(i, "W")
S1.Cells(i, "AW") = S1.Cells(i, "X")
S1.Cells(i, "AX") = Format(Date, "dd.mm.yyyy")
S1.Cells(i, "AY") = Sy
Sy = Sy + 1
End If
Next i

Yukarıdaki kod ile B:X aralığını aynı sayfada AA:AX aralığına aktarıyor. (Şu anda ki haliyle Listbox1 de seçilen satır hangi satırda ise o satırın karşısına aktarıyor.)
Sadece sizden ricam eğer mümkünse sürekli AA:AX aralığının 2. satırından itibaren alt alta aktarması için yardımcı olmanızı istiyorum.

 

[ÖmerFaruk]

If S1.Cells(i, "c") = ....
ile başlayan sorgu satırını iptal edersen olacaktır. (End if satırıyla beraber)

 

[sirkülasyon]

Ömer Bey
bahsettiğiniz satırı iptal ettiğimde A:X aralığının tamamı AA:AX aralığına aktarılıyor.

If S1.Cells(i, "c") = ListBox1.List(ListBox1.ListIndex, 1) And S1.Cells(i, "d") = ListBox1.List(ListBox1.ListIndex, 2) And S1.Cells(i, "e") = ListBox1.List(ListBox1.ListIndex, 3) And S1.Cells(i, "f") = ListBox1.List(ListBox1.ListIndex, 4) And S1.Cells(i, "g") = ListBox1.List(ListBox1.ListIndex, 5) And S1.Cells(i, "h") = ListBox1.List(ListBox1.ListIndex, 6) Then

filtreleme yapıyor. Başka bir şekli var ise yardımcı olabilir misiniz?

 

[sirkülasyon]

Listboxta en son satırı çift tık yaptığımız zaman ARŞİV sayfasında kendi satırının karşısına aktarılıyor.
Bu durum yerine listboxta hangi satırı seçersem seçeyim AA:AX sütununun 2. satırından itibaren önce temizlesin sonra aktarsın.
Teşekkür ederim.