çok sayfayı birleştirme

[igultekin2000]

iyi akşamlar, pdf'te excel çevirdiğim ekstreyi çok sayfalı olarak çeviriyor. diğer çalışma sayfalarını da birinci sayfanın altına eklemek istiyorum. Teşekkürler.

 

[işsiz123]

Aşağıdaki gibi deneyebilirsiniz.

Sub SayfalariBirlestir()
Dim i As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "genel"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For i = 2 To Sheets.Count
Sheets(i).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)
Next
Sheets("genel").Select
End Sub

 

[igultekin2000]

teşekkürler

Aşağıdaki gibi deneyebilirsiniz.

Sub SayfalariBirlestir()
Dim i As Integer
On Error Resume Next
Sheets(1).Select
Worksheets.Add
Sheets(1).Name = "genel"
Sheets(2).Activate
Range("A1").EntireRow.Select
Selection.Copy Destination:=Sheets(1).Range("A1")
For i = 2 To Sheets.Count
Sheets(i).Activate
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Select
Selection.Copy Destination:=Sheets(1).Range("A65536").End(xlUp)
Next
Sheets("genel").Select
End Sub

Teşekkürler, sorunsuz çalışıyor

 

[işsiz123]

Rica ederiz. İyi çalışmalar