Soru Dataların otomatik aktarılması

[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.

 

[Emir Hüseyin Çoban]

.

Sub kod()

    Set s1 = Sheets("Palet_Siparis")
    Set S2 = Sheets("Genel_Siparis_Listesi")

    sat = S2.Cells(Rows.Count, "A").End(3).Row + 1

    For i = 2 To s1.Cells(Rows.Count, "A").End(3).Row
        S2.Cells(sat, "A") = s1.Cells(i, "A")
        S2.Cells(sat, "B") = s1.Cells(i, "B")
        S2.Cells(sat, "C") = s1.Cells(i, "D")
        S2.Cells(sat, "D") = s1.Cells(i, "E")
        S2.Cells(sat, "E") = s1.Cells(i, "F")
        S2.Cells(sat, "F") = s1.Cells(i, "G")
        S2.Cells(sat, "G") = s1.Cells(i, "H")
        S2.Cells(sat, "H") = s1.Cells(i, "I")
        S2.Cells(sat, "I") = s1.Cells(i, "J")
        sat = sat + 1
    Next i

    s1.Range("A2:j" & Rows.Count).ClearContents

End Sub

.

 

[uGur_a]

çok teşekkür ederim Emir Hüseyin Çoban. Eline emeğine sağlık

 

[EKREM1661]

Emir Hüseyin Üstad.. aktarma yapılan verilerin, aktarıldığı sayfada..
A2 itibariyle değil de, örneğin A5 itibariyle olmuş olsa, ne gibi bir değişiklik gerekiyor..
Yani, Genel_Siparis_Listesi sayfasındaki tablonun, A5 ten başladığını kabul edelim..

 

[Emir Hüseyin Çoban]

.

Yukarıdaki kodlar bu işleme görede sonuç verecektir.
Tablonuzdan kopyala/yapıştır ile bir yedek alıp, test edin.

.

 

[EKREM1661]

.

Yukarıdaki kodlar bu işleme görede sonuç verecektir.
Tablonuzdan kopyala/yapıştır ile bir yedek alıp, test edin.

.

Emir Hüseyin hocam.. Öncelikle teşekkürler..Dediğiniz doğru sonuç verdi tamam..
Konuyu size, bir yönüyle eksik anlatmışım..41.nci satırdan sonrakileri de aktarıyor..
Aktarmak istediklerim belli bir aralığa ait..
Şu şekilde..
Sayfa1 B11:B41 aralığı-----Sayfa2 B9:B39 aralığına aktarılacak,
Sayfa1 D1141 aralığı-----Sayfa2 C9:C39 aralığına "
Sayfa1 P1141 aralığı-----Sayfa2 D939 aralığına "
Sayfa1 F11:G41 aralığı-----Sayfa2 F9:G39 aralığına "

 

[Emir Hüseyin Çoban]

.

Sayfa2' de 9-39 satır aralığın sabit mi yoksa tablonun altına enson dolu satırdan ilave ederek devam mı edecek.

.

 

[EKREM1661]

.

Sayfa2' de 9-39 satır aralığın sabit mi yoksa tablonun altına enson dolu satırdan ilave ederek devam mı edecek.

.

Emir hocam..! sabit..her iki sayfa aralıkları da sabit..

 

[Emir Hüseyin Çoban]

.

Sub kod()

Set s1 = Sheets("Palet_Siparis")
Set S2 = Sheets("Genel_Siparis_Listesi")

S2.Range("B9:B39") = s1.Range("B11:B41").Value
S2.Range("C9:C39") = s1.Range("D11:D41").Value
S2.Range("D9:D39")= s1.Range("P11:P41").Value
S2.Range("F9:G39") = s1.Range("F11:F41").Value

End Sub

.

 

[EKREM1661]

Üstad.. Çok çok teşekkürler.. Elinize sağlık..