Sütundaki verileri başka sayfaya kopyalamak

[zırzır]

Arkadaşlar,bir excel sayfasında satırlardaki verileri başka bir sayfaya makro ile kopyalamayı sayenizde öğrendim ancak örnek dosyadaki gibi bir sütundaki verileri başka bir sayfaya kopyalayamadım.A1 deki tarih değiştikçe kopyalanacak sayfadaki tarih yazılı sütunlara kopyalama yapılması gerekiyor.Kopyalama kaydet butonu ile yapılacak.Şimdiden teşekkürler.

 

[Necdet]

Merhaba,

Eğer Sayfa1 deki bilgiler A1 deki tarihe denk gelen Sayfa2 deki tarih kolonlarının altına aktarılacaksa, ekteki dosyayı inceleyiniz.

Yok öyle değilse, soruyu daha açık soralım derim ve boşuna uğraşmışım diye düşünürüm .

Public Sub Aktar()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
Sutun = Day(s1.[A1])
Satir = s2.Cells(65536, Sutun).End(3).Row + 1
For i = 2 To [B65536].End(3).Row
    s2.Cells(Satir, Sutun) = s1.Cells(i, "B")
    Satir = Satir + 1
Next i
MsgBox "Aktarım Tamamlanmaştır"
End Sub

 

[zırzır]

Sayın Necdet_Yesertener hızına hayran oldum.İyi çalışmalar

 

[zırzır]

Sayın Necdet_Yesertener tekrar yardıma ihtiyacım var,yolladığım excel sayfasında kopyalanacak olan "Hat 1 Tüketim" sayfasında tarihlerin sıralamaları C4 ten başlıyor,bunu nasıl ayarlayacağım.

 

[Orion1]

Merhaba.
İstediğiniz sütundan başlayabilirsiniz.Yalnız Başlıklar 4ncü satırda olmalı.
Ekli dosyayı inceleyiniz.

Sub Aktar()
Dim k As Integer
Sheets("Petkim").Select
If Range("F1").Value = "" Then
    MsgBox "F1 Hücresine bir veri girmelisiniz.!", vbCritical
    Exit Sub
End If
For k = 1 To 256
    If Sheets("Hat 1 Tüketim").Cells(4, k).Value = Range("F1").Value Then
        Application.ScreenUpdating = False
        Sheets("Hat 1 Tüketim").Select
        Range(Cells(5, k), Cells(65536, k)).ClearContents
        Sheets("Petkim").Select
        Range("B5:B" & Cells(65536, "B").End(xlUp).Row).Copy
        Sheets("Hat 1 Tüketim").Select
        Cells(5, k).PasteSpecial
        Sheets("Petkim").Select
        Application.CutCopyMode = False
        Application.ScreenUpdating = True
        MsgBox "Aktarım Tamamlanmıştır"
        Exit For
    End If
Next
End Sub

 

[zırzır]

Sayın Orion2,teşekkür ederim.Ellerine sağlık

 

[Orion1]

Sayın Orion2,teşekkür ederim.Ellerine sağlık

Rica ederim.
İyi çalışmalar.

 

[zırzır]

Arkadaşlar ,excel sayfasında 4 makroyu tek butonla çalıştırıyorum ancak makroları teker teker denediğim zaman hepside verileri kendi sayfalarına aktarıyor,hepsini kaydet butonuna bağladığımda "petkim" B sütunundan kopyalama yapan "Aktar"makrosu,veri aktaracağı sayfadaki sütunu seçili hale getiriyor ama kopyalamıyor.Öbür makrolar çalışıyor.Örnek dosyadaki hatayı nasıl düzelteceğim.

 

[zırzır]

Arkadaşlar,ilginizi bekliyorum.

 

[Orion1]

Arkadaşlar,ilginizi bekliyorum.

Merhaba .
Ekli dosyayı inceleyiniz.Sorun giderildi.
Sayfa isimini bir yerde hatalı yazmışsınız.

 

[zırzır]

Sayın Orion2,yardımlarınız işime yaradı ,teşekkür ederim.

 

[Orion1]

Sayın Orion2,yardımlarınız işime yaradı ,teşekkür ederim.

Rica ederim.
İyi çalışmalar.