veri almak

[Ahmet TUNALI]

herkese iyi günler,
Bir excel dosyası içerisinde 1 den 15 e kadar sayfalar var.
farklı isimlerde
sorum a ismdeki safaya diğer tüm sayfalardaki a3:h3 deki değerleri
a sayfanın a3:h3 satırına alt alta getirmesini yapmak istiyorum.
umarım açık olmuştur.
ekde d örnek bir dosya var

 

[Orion1]

Aşağıdaki kodlar işinizi görür.

Sub aktar()
Dim i As Integer
Sheets("a").Select
Application.ScreenUpdating = False
For i = 2 To Worksheets.Count
    sat = Cells(65536, "A").End(xlUp).Row + 1
    Sheets(i).Range("A3:H3").Copy
    Range("A" & sat).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Next i
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "İşlem Tamam"
End Sub

 

[Ahmet TUNALI]

Evren bey yardımlarınız için teşekkürler.
herşey gönlünüzce olsun

 

[Orion1]

Evren bey yardımlarınız için teşekkürler.
herşey gönlünüzce olsun

Rica ederim.
İyi çalışmalar.