mustafa070707
Yeni Üye
- Katılım
- 9 Ağu 2022
- Mesajlar
- 307
- Aldığı beğeni
- 22
- Excel V
- Office 2016 TR
Konu Sahibi
-
DİKKAT !
Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.
Giriş yap veya Şimdi kayıt olÇözüldü yapistrima
- Konuyu Başlatan mustafa070707
- Başlangıç tarihi
- 273
-
- Etiketler
- yapıştırma
Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.Çözüm
Kuşdili
Excel Dostu- Katılım
- 7 Eyl 2022
- Mesajlar
- 235
- Çözümler
- 77
- Aldığı beğeni
- 287
- Excel V
- Office 2007 TR
son sütunu tesbit etmek:
sonsutun = Cells(1, 1).SpecialCells(xlCellTypeLastCell).Column +1
Yapıştırma noktasını belirlemek:
Set ToRange = Worksheets("PERVERI").Cells(1, sonsutun)Çözümexcelcan
Destek Ekibi- Katılım
- 26 Eyl 2021
- Mesajlar
- 786
- Çözümler
- 186
- Aldığı beğeni
- 1,059
- Excel V
- Office 2010 TR
'YAPISTIRILACAK SAYFA
FromRange.Copy
son_suT = S2.Cells(1, 16384).End(1).Column
Worksheets("PERVERI").Paste Worksheets("PERVERI").Cells(1, son_suT + 1)
'Eğer FromRange alanındaki biçimlendirmeler PERVERI sayfasında gerekli değilse
'bu işlemi yapmanın bir kaç yolu daha var.
'
Dim S1 As Worksheet, S2 As Worksheet
Dim copyalaN()
Dim son_suT As Integer
Set S1 = Sheets("Veri"): Set S2 = Sheets("PERVERI")
'1) Diziye alıp PERVERI sayfasına aktarabilirsiniz.
copyalaN = S1.Range("G1:G100").Value
S2.Cells(1, son_suT + 1).Resize(UBound(copyalaN, 1), UBound(copyalaN, 2)).Value = copyalaN
'2) FromRange nesnesinin değerlerini aktarabilirsiniz.
S2.Cells(1, son_suT + 1).Resize(FromRange.Rows.Count, 1).Value = FromRange.Valuemustafa070707
Yeni Üye- Katılım
- 9 Ağu 2022
- Mesajlar
- 307
- Aldığı beğeni
- 22
- Excel V
- Office 2016 TR
Konu Sahibikonu kapatılabilir ilgilenenlere teşekkür ederim.- Durum
