sayfa birleştirme

[Kemal Demir]

Selam
Arkadaslar aşağıdaki makroda

Sub SayfaBirleştir()
Dim YeniSayfa As Worksheet
Dim SayfaSay
SayfaSay = Worksheets.Count
Set YeniSayfa = Worksheets.Add(After:=Worksheets(SayfaSay))
With YeniSayfa
For i = 1 To SayfaSay
Worksheets(i).UsedRange.Copy .Range("A" & IIf(i = 1, 1, .UsedRange.Rows.Count + 1))
Next
End With
End Sub


burada sadece "A,B,C,D,veE"kolonlarının sadece alınmasını ıstiyorum
tıkandım yapamadım yardımcı olursanız sevinirim

Saygılar

 

[Levent Menteşoğlu]

Aşağıdaki satırı

[vb:1:6a5436695c]Worksheets(i).UsedRange.Copy .Range("A" & IIf(i = 1, 1, .UsedRange.Rows.Count + 1))[/vb:1:6a5436695c]

Bu satır ile değiştirerek deneyin.

[vb:1:6a5436695c]Worksheets(i).Range("A:E").Copy .Range("A:A")[/vb:1:6a5436695c]

 

[danersin]

Yada ;

Sub SayfaBirleştir()
Dim YeniSayfa As Worksheet
Dim SayfaSay

SayfaSay = Worksheets.Count
Set YeniSayfa = Worksheets.Add(After:=Worksheets(SayfaSay))
With YeniSayfa
For i = 1 To SayfaSay
B = Worksheets(i).UsedRange.Row
A = Worksheets(i).UsedRange.Rows.Count
Worksheets(i).Range("a" & B & ":e" & A + B).Copy .Range("A" & IIf(i = 1, 1, .UsedRange.Rows.Count + 1))
Next
End With
End Sub

 

[Kemal Demir]

Yerimde Yoktum Suan geldim yardımlarınız için teşekkür ederim
İşime yaradı saolun