veri aktarma

[maltinkaya]

slm üstadlar kolay gelsin sorum veri aktarmayla bir sayfadaki verileri diğerine aktarmak istiyorum

 

[Recep İpek]

Ekli dosyanızı inceleyiniz.

Sub aktar()
Set s1 = Sheets("GÜNLÜK KASA")
Set s2 = Sheets("KASA ARŞİV")
For i = 12 To s1.[c29].End(3).Row
    sat = s2.[c65536].End(3).Row + 1
    Range(s2.Cells(sat, "c"), s2.Cells(sat, "g")).Value = Range(s1.Cells(i, "c"), s1.Cells(i, "g")).Value
Next i
MsgBox "Bitti"
s2.Select
Set s1 = Nothing
Set s2 = Nothing
End Sub

 

[maltinkaya]

teşekkürler aktarma işlemi tamam çok güzel ama aktardığımız veri yi günlük kasadan silebilirmiyiz bu katar butonu ile önce aktarma işlemini yapsın sonra aktardığı veriyi günlük kasadan temizlesin yapabilirmiyiz ilgin ve emeğin için çok teşekkürler

 

[Recep İpek]

Pardon bu noktayı atlamışım.

Kodlara aşağıdaki satırı ilave ediniz.

Sub aktar()
Set s1 = Sheets("GÜNLÜK KASA")
Set s2 = Sheets("KASA ARŞİV")
For i = 12 To s1.[c29].End(3).Row
    sat = s2.[c65536].End(3).Row + 1
    Range(s2.Cells(sat, "c"), s2.Cells(sat, "g")).Value = Range(s1.Cells(i, "c"), s1.Cells(i, "g")).Value
Next i
[B]s1.[c12:g29].ClearContents
[/B]MsgBox "Bitti"
s2.Select
Set s1 = Nothing
Set s2 = Nothing
End Sub

 

[maltinkaya]

EmeĞİne SaĞlik KardeŞİm TeŞekkÜrler Çok Yardimci Oldun Saolasin