veri aktarma makrosu

[ahmetozbey]

sayfa1 de a7 ile g65536 arası veriler var. makroyu çalıştırdığımda sayfa1 deki verilerin sayfa2 ye, a7 hücresinden başlayarak aktarılmasını istiyorum.yanlız bi farkla, sayfa 1 in g hücresindeki değerlerin sayfa2 deki f hücresine kayıt etsin.

 

[Orion1]

Sub aktar()
Application.ScreenUpdating = False
Sheets("Sayfa2").Range("A1:G65536").Clear
Sheets("Sayfa1").Range("A7:E" & _
Sheets("Sayfa1").Cells(65536, "A").End(xlUp).Row). _
Copy Sheets("Sayfa2").Range("A7")
Sheets("Sayfa1").Range("F7:F" & Sheets("Sayfa1"). _
Cells(65536, "F").End(xlUp).Row).Copy _
Sheets("Sayfa2").Range("G7")
Sheets("Sayfa1").Range("G7:G" & Sheets("Sayfa1") _
.Cells(65536, "G").End(xlUp).Row).Copy _
Sheets("Sayfa2").Range("F7")
Application.ScreenUpdating = True
MsgBox "İşlem tamam"
End Sub

 

[ahmetozbey]

ilgilendiğiniz için teşekkür ederim verdiğiniz kodlar çalışıyor.ancak kopyalama yolu değilde verilerin aktarılması yöntemi ile olamazmı acaba? kenarlık çizgileride kopyalanıyor da o yüzden.

 

[Orion1]

ilgilendiğiniz için teşekkür ederim verdiğiniz kodlar çalışıyor.ancak kopyalama yolu değilde verilerin aktarılması yöntemi ile olamazmı acaba? kenarlık çizgileride kopyalanıyor da o yüzden.

Copy paste.
Yalnızca değerleri yapıştırır.

Sub aktar()
Application.ScreenUpdating = False
Sheets("Sayfa2").Range("A1:G65536").Clear
Sheets("Sayfa1").Range("A7:E" & _
Sheets("Sayfa1").Cells(65536, "A").End(xlUp).Row).Copy
Sheets("Sayfa2").Range("A7").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sayfa1").Range("F7:F" & Sheets("Sayfa1").Cells(65536, "F").End(xlUp).Row).Copy
Sheets("Sayfa2").Range("G7").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Sheets("Sayfa1").Range("G7:G" & Sheets("Sayfa1") _
.Cells(65536, "G").End(xlUp).Row).Copy
Sheets("Sayfa2").Range("F7").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "İşlem tamam"
End Sub

 

[Testere35]

Elinize sağlık güzel bir kod olmuş.
Bu kodu biraz değiştirerek bende kullanmak istiyorum ama benim bir sorunum var.
Dosyam ekdedir, yardımcı olursanız sevinirim.

 

[Testere35]

Üstadlar ya yoğun, yada yorgun... yardım gelmiyor...