Merhaba arkadaşlar;
Benim sorum aynı format ve sheetlere sahip toplam 16 dosyayı tek bir dosyada alt sheetleri ile birlikte yan yana birleştirmek.
Aşağıdaki makro örneğini buldum ama alt alta birleştiriyor bunu yan yana nasıl yapabiliriz?
Sub Birlestir()
Dim AktifDosya As Workbook
Dim Dosya As Workbook
Dim DosyaAdi
Set AktifDosya = ActiveWorkbook
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.Title = "Birleştirilecek Dosyaları Seçin"
If .Show Then
For Each DosyaAdi In .SelectedItems
Set Dosya = Workbooks.Open(DosyaAdi)
Dosya.Worksheets(1).UsedRange.Copy AktifDosya.Worksheets(1).Range("A65536").End(xlUp)(2, 1)
Dosya.Close False
Set Dosya = Nothing
Next
End If
End With
Set AktifDosya = Nothing
End Sub
Acil yardımlarınızı bekliyorum. Bunu ihale teklifi veren firmaların birim fiyatlarını yan yana dizip görmek istiyorum. Yoksa tek tek paste copy çok vakit alıyor.
Benim sorum aynı format ve sheetlere sahip toplam 16 dosyayı tek bir dosyada alt sheetleri ile birlikte yan yana birleştirmek.
Aşağıdaki makro örneğini buldum ama alt alta birleştiriyor bunu yan yana nasıl yapabiliriz?
Sub Birlestir()
Dim AktifDosya As Workbook
Dim Dosya As Workbook
Dim DosyaAdi
Set AktifDosya = ActiveWorkbook
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = True
.Title = "Birleştirilecek Dosyaları Seçin"
If .Show Then
For Each DosyaAdi In .SelectedItems
Set Dosya = Workbooks.Open(DosyaAdi)
Dosya.Worksheets(1).UsedRange.Copy AktifDosya.Worksheets(1).Range("A65536").End(xlUp)(2, 1)
Dosya.Close False
Set Dosya = Nothing
Next
End If
End With
Set AktifDosya = Nothing
End Sub
Acil yardımlarınızı bekliyorum. Bunu ihale teklifi veren firmaların birim fiyatlarını yan yana dizip görmek istiyorum. Yoksa tek tek paste copy çok vakit alıyor.