Süz ve Aktar kodunda nasıl bir değişiklik gerekli?

[assenucler]

Değerli dostlarım merhabalar.


Sayın Necdet Yeşertener tarafından "Süz ve Sayfaya Aktar" konusunda bir forumdaşa verilen yanıta ekli dosyayı kullanırken, sütun başlıklarının aktarılan sayfanın 1. satırına değil, 3. satıra kopyalanması ve verilerin 4. satırdan itibaren listelenmesini istiyorum.

Bunu sağlamak için aşağıdaki kodlarda nasıl bir değişiklik gerekmektedir?

Sub Suz_ve_Aktar()

Dim SonSat As Long, _
Olcut As String, _
s2 As Worksheet

Sheets("GENEL").Select
With Sheets("GENEL")
If .AutoFilterMode Then
With .AutoFilter.Filters(1)
If .On Then Olcut = .Criteria1
End With
End If
End With

If Olcut = "" Then Exit Sub
Olcut = Replace(Olcut, "=", "")

If Not SayfaVarMi(Olcut) Then
Sheets.Add After:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Olcut
Sheets("GENEL").Select
End If

Range("A1").Activate

Set s2 = Sheets(Olcut)
On Error Resume Next
SonSat = s2.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
If SonSat = 0 Then SonSat = 1
Range("A1").CurrentRegion.Copy s2.Range("A" & SonSat)
If SonSat > 1 Then s2.Rows(SonSat).Delete
MsgBox "İşlem Tamam..."

End Sub


Değerli yardımınızı rica ediyorum.

Katkılarınız için önceden teşekkürler.

 

[assenucler]

Evet dostlar yanıtınızı bekliyorum...

 

[lark]

Mesajınızda, başlıklar 3.satırda olsun; dosyanızda, 4.satırda olsun demişsiniz.
4.Satır kabul edildi.
Bu arada dosyanızı değiştirmişsiniz. Ekteki dosya, bir önceki dosyanıza göre yapıldı.

 

[assenucler]

Teşekkür

Sayın lark,


Günaydın ve hayırlı işler.

Forum dostları çoğunlukla Office 2003 kullanıyor diye sonradan değiştirdim.

İlginiz ve katkınız için teşekkürler. Her şey gönlünüzce olsun.

Bu arada, sayın Necdet Yeşertener üstadıma bu çalışma dosyasına verdiği emek ve katkıdan, şahsım da yararlandığı için bir kez daha teşekkürlerimi sunarım.


Sevgi ve saygılar.