Makro ile sıradaki boş satıra yapıştırma

[seranonet]

Sub Makro2()

'
Sheets("02-EFTAL").Select
Range("A12:K" & Range("A65536").End(xlUp).Row).Select
Selection.Copy
Sheets("Sayfa1").Select
ActiveSheet.Paste
Sheets("03-SAMET").Select
Range("A12:K" & Range("A65536").End(xlUp).Row).Select
Selection.Copy
Sheets("Sayfa1").Cells(s, 1).Value
ActiveSheet.Paste

End Sub



elimdeki bu makroda 02-eftal sayfasından aldığı verileri sayfa 1 e yapıştırıyor ve daha sonra 03-samet sayfasından aldıpı verileri ben sayfa1 deki yapıştırılınan diğer veririn tam altına yapıştırmasını istiyorum arada hiç boşluk olmadan bu konuda yardımcı olabilirmisiniz.

 

[Murat OSMA]

Bütün sayfalardaki verileri tek sayfada toplamak istiyorsunuz sanırım ? Kaç sayfanız var ? :dusun:

 

[seranonet]

EVET ESASINDA ELİMDE BU ŞEKİLDE Bİ MAKRODA MEVCUT

Sub ÖZET_RAPOR1()
Dim SAYFA As Worksheet, SATIR As Long, X As Long

Application.ScreenUpdating = False

With Sheets("Filtre")
.Range("A1:K65536").ClearContents

For Each SAYFA In ThisWorkbook.Worksheets


SATIR = Sheets("Filtre").Cells(65536, 1).End(3).Row + 0


If SAYFA.Name <> "Filtre" Then
For X = 12 To SAYFA.Range("A65536").End(3).Row
.Cells(SATIR, 1) = SAYFA.Cells(X, 1)
.Cells(SATIR, 2) = SAYFA.Cells(X, 2)
.Cells(SATIR, 3) = SAYFA.Cells(X, 3)
.Cells(SATIR, 4) = SAYFA.Cells(X, 4)
.Cells(SATIR, 5) = SAYFA.Cells(X, 5)
.Cells(SATIR, 6) = SAYFA.Cells(X, 6)
.Cells(SATIR, 7) = SAYFA.Cells(X, 7)
.Cells(SATIR, 8) = SAYFA.Cells(X, 8)
.Cells(SATIR, 9) = SAYFA.Cells(X, 9)
.Cells(SATIR, 10) = SAYFA.Cells(X, 10)
.Cells(SATIR, 11) = SAYFA.Cells(X, 11)

SATIR = SATIR + 1
Next
End If
Next

End With

Application.ScreenUpdating = True

MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub


BU OLURSA ÇOK DAHA GÜZEL OLUR EXCEL DOSYASINDAKİ TÜM SAYFALARI DEĞİLDE SADECE BENİM BELİRTTİĞİM SAYFALARI LİSTELESE HARİKA OLUR

 

[seranonet]

Sub ÖZET_RAPOR1()
Dim SAYFA As Worksheet, SATIR As Long, X As Long

Application.ScreenUpdating = False

With Sheets("Filtre")
.Range("A1:K65536").ClearContents

For Each SAYFA In ThisWorkbook.Worksheets


SATIR = Sheets("Filtre").Cells(65536, 2).End(3).Row + 0


If SAYFA.Name <> "Filtre" Then
For X = 12 To SAYFA.Range("A65536").End(3).Row
.Cells(SATIR, 1) = SAYFA.Cells(X, 4)
.Cells(SATIR, 2) = SAYFA.Cells(X, 1)
.Cells(SATIR, 3) = SAYFA.Cells(X, 45)
.Cells(SATIR, 4) = SAYFA.Cells(X, 3)
.Cells(SATIR, 5) = SAYFA.Cells(X, 8)
.Cells(SATIR, 6) = SAYFA.Cells(X, 9)
SATIR = SATIR + 1
Next
End If
Next

End With

Application.ScreenUpdating = True

MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub



ELİMDEKİ BU MAKROYA SAYFA SINIRI KOYMAM MÜMKÜN DEĞİLMİ İSTEDİĞİM SAYFALARI LİSTELEMESİNİ İSTİYORUM

 

[Murat OSMA]

If SAYFA.Name <> "Filtre" Then burada sayfa ismi Filtre değilse, yani diğer sayfalar baz alınır. Ona göre istediğiniz şekilde düzenleyebilirsiniz...

 

[seranonet]

tam olarak nasıl yazabilirim peki istemdiğim sayfalar ali ve mehmet die 2 sayfa örneğin

 

[Murat OSMA]

if sayfa.name = "ali" and sayfa.name ="mehmet" then istediğiniz sayfalar...
if sayfa.name <> "ali" and sayfa.name <>"mehmet" then istemediğiniz sayfalar...

 

[jetranger]

başka bir konu başlığı ile aynı soruyu sormuştum ... burda cevabımı buldum..Teşekkür ediyorum .