- Katılım
- 15 Temmuz 2012
- Mesajlar
- 2,790
- Excel Vers. ve Dili
- Ofis 2021 TR 64 Bit
- Altın Üyelik Bitiş Tarihi
- 29.03.2025
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?
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?
Kod:
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
Ekli dosyalar
-
32.1 KB Görüntüleme: 5