Aktar Makrosu

[1Al2Ver]

Merhaba,

Modül1'de kayıtlı aşağıdaki makro ile ;

Sub Makro1()
SonSatır = [H65536].End(3).Row
Range("A2:H" & SonSatır).SpecialCells(xlCellTypeVisible).Copy Sheets(3).[A2]
MsgBox ("Veriler Sayfa3'e Aktarıldı")
End Sub

Sayfa1'deki A2:H arasındaki süzülmüş verileri, Sayfa3 A2:H arasına aktarabiliyorum,

İsteğim; Sayfa1'de A2:H aralığındaki verileri süzdüğümde, "Aktar" butonuna her bastığımda, süzülmüş verileri, Sayfa3; A2:H aralığına ilk boş satırdan itibaren peş peşe aktarmak,

Örneklersek ;

1 nci süzde aktarılan Sayfa3; A2:H15'e aktarılmış ise
2 nci süzde aktarılan Sayfa3; A16:H20'ye aktarılmalı
3 ncü süzde aktarılan Sayfa3; A21:Hx'e aktarılmalı

Teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub Makro1()
SonSatır = [H65536].End(3).Row
Range("A2:H" & SonSatır).SpecialCells(xlCellTypeVisible).Copy Sheets(3).[A65536].End(3).Offset(1)
MsgBox ("Veriler Sayfa3'e Aktarıldı")
End Sub

 

[1Al2Ver]

Selamlar,

Aşağıdaki kodu denermisiniz.

Sub Makro1()
SonSatır = [H65536].End(3).Row
Range("A2:H" & SonSatır).SpecialCells(xlCellTypeVisible).Copy Sheets(3).[A65536].End(3).Offset(1)
MsgBox ("Veriler Sayfa3'e Aktarıldı")
End Sub

Sayın Korhan Ayhan, merhaba

Çok teşekkür ederim, saygılar sunarım.