Bir önceki sayfadan veri kopyalama

[ASLAN7410]

Merhaba.

Ekte gönderdiğim excel dosyamın ana sayfa haricinde 1-2-3 diye devam eden sayfaları mevcut, sayfa üzerinde kopyala butonu var, butona bastığımda aktif olan sayfadan bir önceki sayfadaki veriyi kopyalamak istiyorum. Hangi sayfada olursam olayım bir önceki sayfadan veri kopyalamak istiyorum.
Aşağıdaki gibi kod uyguladığımda bir çok kod oluyor.
Yardımcı olur musunuz?

Sub Kopyala1()
    Sheets("1").Range("B4:B25").Copy
    Sheets("2").Range("B3").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    ActiveSheet.Range("B3").Select
End Sub
Sub Kopyala2()
    Sheets("2").Range("B4:B25").Copy
    Sheets("3").Range("B3").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    ActiveSheet.Range("B3").Select
End Sub
Sub Kopyala3()
    Sheets("3").Range("B4:B25").Copy
    Sheets("4").Range("B3").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    ActiveSheet.Range("B3").Select
End Sub

 

[numan şamil]

Merhaba.

Ekte gönderdiğim excel dosyamın ana sayfa haricinde 1-2-3 diye devam eden sayfaları mevcut, sayfa üzerinde kopyala butonu var, butona bastığımda aktif olan sayfadan bir önceki sayfadaki veriyi kopyalamak istiyorum. Hangi sayfada olursam olayım bir önceki sayfadan veri kopyalamak istiyorum.
Aşağıdaki gibi kod uyguladığımda bir çok kod oluyor.
Yardımcı olur musunuz?

Sub Kopyala1()
    Sheets("1").Range("B4:B25").Copy
    Sheets("2").Range("B3").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    ActiveSheet.Range("B3").Select
End Sub
Sub Kopyala2()
    Sheets("2").Range("B4:B25").Copy
    Sheets("3").Range("B3").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    ActiveSheet.Range("B3").Select
End Sub
Sub Kopyala3()
    Sheets("3").Range("B4:B25").Copy
    Sheets("4").Range("B3").PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
    ActiveSheet.Range("B3").Select
End Sub

Merhaba
Bütün sayfalardaki butonlara bu tek kodu atayıp
Denermisiniz
Sub Kopyala()
ActiveSheet.Previous.Range("B4:B25").Copy
Range("B3").PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
ActiveSheet.Range("B3").Select
End Sub

 

[Ziynettin]

Alternatif.

Sub veri_al()
    x = ActiveSheet.Index
    If x > 2 Then
        Set s1 = Sheets(x - 1)
        a = s1.Range("B3:B25")
        Set s2 = Sheets(x)
        s2.[B3:B25] = a
    End If
End Sub

 

[ASLAN7410]

Sayın Ziynettin Bey, ilginizi için çok teşekkür ediyorum. Ellerinize sağlık kod güzel çalışıyor.

Hayırlı günler diliyorum.

 

[ASLAN7410]

Sayın Numan Bey, ilginiz için çok teşekkür ediyorum, ellerinize sağlık.

Hayırlı günler diliyorum.

 

[Ziynettin]

Sheets(ActiveSheet.Index - 1).[B3:B25].Copy Sheets(ActiveSheet.Index).Range("B3")

 

[ASLAN7410]

Sayın Ziynettin Bey, böyle daha güzel oldu, çok teşekkür ediyorum. Ellerinize sağlık.

 

[ASLAN7410]

Bu mesaj silindi. Gerek kalmadı.

 

[numan şamil]

İyi çalışmalar