- Katılım
- 26 Aralık 2011
- Mesajlar
- 18
- Excel Vers. ve Dili
- 2010
merhaba
aşağıdaki çalışan makrom çalışma sayfalarımda ki verileri kopyalayıp yapıştırıyor.
fakat buradaki sıkıntım şu ben bu verileri "RAPOR" adlı çalışma sayfama değer olarak kopyalamasını istiyorum.
yardımlarınızı rica derim.
değer olarak kopyaladığı sayfaaki satıraların yanına o sayfanın ismini yazabilme ihtimali varmı?
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("C" & IIf(i = 1, 1, .UsedRange.Rows.Count + 1))
Next
MsgBox ("KOPYALA YAPIŞTIR İŞLEMİ BİTTİ ADIM 2 YE GEÇİNİZ")
End With
End Sub
aşağıdaki çalışan makrom çalışma sayfalarımda ki verileri kopyalayıp yapıştırıyor.
fakat buradaki sıkıntım şu ben bu verileri "RAPOR" adlı çalışma sayfama değer olarak kopyalamasını istiyorum.
yardımlarınızı rica derim.
değer olarak kopyaladığı sayfaaki satıraların yanına o sayfanın ismini yazabilme ihtimali varmı?
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("C" & IIf(i = 1, 1, .UsedRange.Rows.Count + 1))
Next
MsgBox ("KOPYALA YAPIŞTIR İŞLEMİ BİTTİ ADIM 2 YE GEÇİNİZ")
End With
End Sub
