farlı sayfadan veri almak

[prodigy]

Sub verial()
Dim k As Workbook
Dim s As Worksheet
Dim i As Long
ThisWorkbook.Activate
For Each s In ActiveWorkbook.Worksheets
i = Range("A" & Rows.Count).End(xlUp).Row + 1
s.Range("a1:a3").Copy
Range("A" & i).Select
ActiveSheet.Paste link:=True
Next s
Application.CutCopyMode = False
End Sub
Bu makro ile farklı sayfalardan veri alıyorum.Ancak bulunduğum aktif sayfadaki veriyi de alıyor. Aktif sayfadaki veriyi almaması için ne yapabilirim.

 

[pys60]

ActiveWorkbook yerine ThisWorkbook kullanmalısınız.
Benzer örnekler forumda mevcut

 

[halit3]

kod :

Sub verial()

Dim s As Long
Dim i As Long

For s = 1 To ActiveWorkbook.Sheets.Count
If ActiveSheet.Name <> Sheets(s).Name Then

i = Range("A" & Rows.Count).End(xlUp).Row + 1
Worksheets(Sheets(s).Name).Range("a1:a3").Copy

Range("A" & i).PasteSpecial Paste:=3
'Range("A" & i).Select
'ActiveSheet.Paste link:=True
End If
Next s
Application.CutCopyMode = False
End Sub

 

[halit3]

Birde bu kod var.

Sub verial()
sayfa = ActiveSheet.Name

Dim wkbk As Workbook
For Each wkbk In Application.Workbooks
'If wkbk.Name <> ActiveWorkbook.Name Then
Windows(wkbk.Name).Activate
For j = 1 To ActiveWorkbook.Sheets.Count
If sayfa <> Sheets(j).Name Then
Worksheets(Sheets(j).Name).Range("a1:a3").Copy
i = ThisWorkbook.Worksheets(sayfa).Range("A" & Rows.Count).End(xlUp).Row + 1
ThisWorkbook.Worksheets(sayfa).Range("A" & i).PasteSpecial Paste:=3
End If
Next j
'End If
ThisWorkbook.Activate
Next
Application.CutCopyMode = False

End Sub