Kemal Demir
Özel Üye
- Katılım
- 29 Temmuz 2004
- Mesajlar
- 2,108
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
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