• Foruma hoş geldin 👋 Ziyaretçi

    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 tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü yapistrima

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
M

mustafa070707

Bronz Üye
Kullanıcı Bilgileri
Aktiflik
Çevrimdışı
Katılım
9 Ağu 2022
Mesajlar
258
Aldığı beğeni
15
Excel V
Office 2016 TR
Konuyu Başlatan
C#:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.

bu kod ile bir sayfadan diger sayfaya veri kopyalayip yapistiriyorum fakat yapistiracagim sutun belirtmeden en son dolu sutunu bulup bir sonraki sutuna yapistirsin

tesekkurler.
 
Çözüm
K
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)
Tarihe göre sırala Oylara göre sırala
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)
 
Olumlu oy 1 Negatif oyla
Çözüm
'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.Value
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst