makrolu bir sayfaya veri aktarmak için makro

[abbasonline]

Excel kitabında (sayfa 1) deki verileri başka bir excel kitabı sayfası (sayfa 2) ye olduğu gibi almak istiyorum, ancak almak istediğim sayfada makrolar mevcut bu makrolarıda bozmadan nasıl bir makro yazabilirim, sayfadaki makrolar aşağıdaki gibi teşekkürler.


Option Explicit

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim alan As Byte, sh As Worksheet
If Intersect(Target, Range("A2:B2,C2,D2")) Is Nothing Then Exit Sub
Cancel = True
If Target.Address = "$A$2" Then
alan = 3
Set sh = Sheets("RAPOR")
ElseIf Target.Address = "$B$2" Then
alan = 8
Set sh = Sheets("RAPOR1")
ElseIf Target.Address = "$D$2" Then
alan = 5
Set sh = Sheets("RAPOR3")
Else
alan = 6
Set sh = Sheets("RAPOR2")

End If

If Target <> "" Then
sh.Columns("A:T").ClearContents
Range("A2").AutoFilter Field:=alan, Criteria1:="=*" & Target & "*"
Range("A2").CurrentRegion.Copy sh.Range("A2")
Range("A1").AutoFilter
sh.Select
sh.Cells.EntireColumn.AutoFit
MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End If
Set sh = Nothing
End Sub

 

[Mx@Raid]

Sn abbasonline dosyanız ekte. Korhan Ayhan beyin yardımlarıyla çözüldü. eğer Kullandığınız dosya bu değilse dosyanıza göre uyarlayabilirsiniz.