Süz Aktar

[ADER_34]

Selam değerli arkadaşlar, bir konuda yardıma ihtiyacım var, 2 sayfa arasında veri aktardığım kodlarıma ilave olarak 1.inci olarak ,tarihe göre aktar 2.inci olarak , sadece istediğim verilerileri süz aktar, kodların süzmesini istediğim sütun "GÜNLÜK AKTAR " sayfasında "G" sütunundaki veriler.kodlar Sub GÜNLÜK_AKTAR()

On Error Resume Next
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Dim s1, s2 As Worksheet, m As Long
Dim i As String
son = 2
Set s1 = Sheets("TABLET")
Set s2 = Sheets("GÜNLÜK AKTAR")
's2.[a2:j200000] = Empty
m = s1.Cells(Rows.Count, "e").End(3).Row + 2
s1.Range("A2:A" & m & "," & "D2" & m & "," & "H2:H" & m & "," & "I2:I" & m).Copy
s2.[a2].PasteSpecial Paste:=xlPasteValues
son = son + 2
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub


http://s6.dosya.tc/server4/1sweeq/SUZ_AKTAR.rar.html
Çok teşekkür ederim kolay gelsin.

 

[muygun]

Merhaba;
Eki deneyin.
İyi çalışmalar.

Link:
http://s3.dosya.tc/server6/1kbto7/ADER_34-SUZ_AKTAR.zip.html

 

[ADER_34]

Merhaba sayın muygun kodlar sorunsuz çalışıyor, çok çok teşekkür ederim kolay gelsin..iyi çalışmalar..