Çözüldü Diğer Sayfada Alt Alta Kaydetmek

ysnozkn · 22 Tem 2018

Merhaba arkadaşlar ,

Sayfa1 de ekrandaki gibi bir sonuç alıyorum. amacım başlıkları almadan bütün hepsini başka bir sayfaya kopyalamak. Her yeni çıkan sonucu yine o sayfaya daha önceki verileri ezmeden altına doğru kayıt etmek istiyorum.

Yardımlarınız için şimdiden teşekkür ederim.

Evren · 22 Tem 2018

Örnek dosya eklerseniz sorunuza daha çabuk yanıt alabilirsiniz kanaatindeyim.

ysnozkn · 23 Tem 2018

Merhaba
Haklısınız , dosyayı ekledim.
Sayfa 1 deki satır sayısı değişebiliyor.
Teşekkür ederim.

Murat OSMA · 23 Tem 2018

Merhaba @ysnozkn,

Bu kodları kullanabilirsiniz..

PHP:

Sub ExcelTurkey()
    Dim son1&, son2&
    son1 = Sayfa1.Cells(Rows.Count, "A").End(3).Row
    son2 = Sayfa2.Cells(Rows.Count, "A").End(3).Row + 1
    Sayfa1.Range("A2:F" & son1).Copy Sayfa2.Cells(son2, "A")
    son1 = Empty: son2 = Empty
End Sub

ysnozkn · 23 Tem 2018

Sn. Admin ,

Kodları kullanarak istediğimi yaptım. Teşekkür ederim.

Murat OSMA · 23 Tem 2018

Rica ederim, iyi günler.

Çözüldü Diğer Sayfada Alt Alta Kaydetmek

Daha fazla seçenek

ysnozkn

Ekli dosyalar

Evren

ysnozkn

Ekli dosyalar

Murat OSMA

ysnozkn

Murat OSMA