Günlük dataların gün sonunda aktarılması

[tamer42]

Merhabalar,
Elimde 2 adet sayfa var, 1. sayfa günlük siparişlerin tutulduğu, 2. sayfa ise geçmiş tüm siparişler (Genel)

siparişler önce Günlük sayfada tutulmakta, gün sonunda Genel sayfaya aktarılmakta ve Günlük sayfa boşaltılmaktadır.

Burada yapmak istediğim bu işin otomatik olarak; Günlük siparişler gün sonunda Genel sayfasına aktarılsın ve Günlük sayfası ertesi güne temiz olarak başlasın.

desteğiniz için şimdiden teşekkürler,

iyi haftalar, iyi çalışmalar.

 

[ÖmerFaruk]

Sub GünlükAktarTemizle()
    Sheets("Günlük").Range("A2:H" & Sheets("Günlük").Range("A2").End(xlDown).Row).Copy
    Sheets("Genel").Range("A" & Sheets("Genel").Range("A2").End(xlDown).Row).PasteSpecial Paste:=xlPasteValues
    Sheets("Genel").Range("A2:A3").AutoFill Destination:=Sheets("Genel").Range("A2:A" & Range("A2").End(xlDown).Row), Type:=xlFillDefault
    Application.CutCopyMode = False
    Sheets("Günlük").Range("A2:H" & Sheets("Günlük").Range("A2").End(xlDown).Row).Clear
End Sub

 

[tamer42]

Sub GünlükAktarTemizle()
    Sheets("Günlük").Range("A2:H" & Sheets("Günlük").Range("A2").End(xlDown).Row).Copy
    Sheets("Genel").Range("A" & Sheets("Genel").Range("A2").End(xlDown).Row).PasteSpecial Paste:=xlPasteValues
    Sheets("Genel").Range("A2:A3").AutoFill Destination:=Sheets("Genel").Range("A2:A" & Range("A2").End(xlDown).Row), Type:=xlFillDefault
    Application.CutCopyMode = False
    Sheets("Günlük").Range("A2:H" & Sheets("Günlük").Range("A2").End(xlDown).Row).Clear
End Sub

Sn. NextLevel ilginize teşekkürler,

ben başta söylemeyi unutmuşum, iki dosya arasındaki alanların bulunduğu sütunlar farklılık olabilmektedir. (Ekli dosya)
Bu nedenle sütun adresi vererek aktarmak daha yerinde olacaktır.

bu bağlamda yardımcı olursanız sevinirim.

iyi Çalışmalar.

 

[ÖmerFaruk]

Sub GünlükAktarTemizle()
    Set Sh1 = Sheets("Günlük")
    Set Sh2 = Sheets("Genel")
    Son1 = Sh1.Range("A2").End(xlDown).Row
    Son2 = Sh2.Range("A2").End(xlDown).Row + 1
    
    Sh1.Range("A2:C" & Son1).Copy
    Sh2.Range("A" & Son2).PasteSpecial Paste:=xlPasteValues
    Sh1.Range("D2:D" & Son1).Copy
    Sh2.Range("E" & Son2).PasteSpecial Paste:=xlPasteValues
    Sh1.Range("E2:G" & Son1).Copy
    Sh2.Range("G" & Son2).PasteSpecial Paste:=xlPasteValues
    Sh1.Range("H2:H" & Son1).Copy
    Sh2.Range("K" & Son2).PasteSpecial Paste:=xlPasteValues
    Sh2.Range("A2:A3").AutoFill Destination:=Sh2.Range("A2:A" & Range("A2").End(xlDown).Row), Type:=xlFillDefault
    Sh2.Activate
    Sh2.Range("A" & Son2 + Son1 - 2).Activate
    Application.CutCopyMode = False
    Sh1.Range("A2:H" & Son1).Clear
End Sub

 

[tamer42]

Sub GünlükAktarTemizle()
    Set Sh1 = Sheets("Günlük")
    Set Sh2 = Sheets("Genel")
    Son1 = Sh1.Range("A2").End(xlDown).Row
    Son2 = Sh2.Range("A2").End(xlDown).Row + 1
   
    Sh1.Range("A2:C" & Son1).Copy
    Sh2.Range("A" & Son2).PasteSpecial Paste:=xlPasteValues
    Sh1.Range("D2:D" & Son1).Copy
    Sh2.Range("E" & Son2).PasteSpecial Paste:=xlPasteValues
    Sh1.Range("E2:G" & Son1).Copy
    Sh2.Range("G" & Son2).PasteSpecial Paste:=xlPasteValues
    Sh1.Range("H2:H" & Son1).Copy
    Sh2.Range("K" & Son2).PasteSpecial Paste:=xlPasteValues
    Sh2.Range("A2:A3").AutoFill Destination:=Sh2.Range("A2:A" & Range("A2").End(xlDown).Row), Type:=xlFillDefault
    Sh2.Activate
    Sh2.Range("A" & Son2 + Son1 - 2).Activate
    Application.CutCopyMode = False
    Sh1.Range("A2:H" & Son1).Clear
End Sub

Çok teşekkürler,

 

[uGur_a]

Merhaba,

Elimdeki dosyada iki farklı sayfa bulunmaktadır. 1.sayfada siparişi verilecek ürün bilgileri girilerek mail atıldıktan sonra "Palet_Siparis" sayfasındaki bilgiler "Genel_Siparis_Listesi" sayfasına kayıt atmasını ve "Palet_Siparis" sayfasının temizlenmesini yapmaya çalıştım ancak hata alıyorum.

Desteğiniz için şimdiden teşekkür ederim.