Hücre kopyalama makrosu

[s.savas]

İyi akşamlar arkadaşlar.
Aşağıdaki kod, sayfa5 deki A3:G aralığını Sayfa3'e A10 hücresinden itibaren kopyalamaktadır. Ancak yeni verileri kopyalarken sürekli aynı aralığa kopyalamaktadır.

Sayfa5.Range("a3:g" & Sayfa5.Range("g65536").End(3).Row).Copy Sayfa3.Range("a10")

Bu makroyu yeni verileri silmeden son dolu satırdan kopyalamaya devam edecek şekilde düzenleme yapabilirmiyiz.

 

[leumruk]

Merhaba,
İsteğinizin cevabı bu:

Sayfa5.Range("a3:g" & Sayfa5.Range("b65536").End(3).Row).Copy Sayfa3.Cells(Sayfa3.[a65536].end(3).Row+1,"a")

Daha kesin cevap için örnek dosya ekleyiniz.

 

[f_desat]

proje

çalışma dosyanı atar isen yardımcı olabilirim,

 

[s.savas]

Merhaba arkadaşlar, kod ekli dosyada CheckBox1 de tanımlıdır. İlgilerinize teşekkür ederim.

 

[s.savas]

Merhaba,
İsteğinizin cevabı bu:

Sayfa5.Range("a3:g" & Sayfa5.Range("g65536").End(3).Row).Copy Sayfa3.Cells(Sayfa3.[a65536].end(3).Row+1,"a")

Daha kesin cevap için örnek dosya ekleyiniz.

Mustafa hocam yazdığınız kod, arzu edilen işlevi tam anlamı ile karşılıyor.
Teşekkür ederim.
Aşağıdaki CommandButton1 için tanımlanan kod içinde çözüm önerisi getirirseniz memnun olurum.

If sh.Range("A3").Value <> ComboBox1.Text Then sh.Range("A5:G65536").[COLOR="Red"][U]ClearContents[/U][/COLOR]

Altı çizili kod A5:G aralığındaki verileri temizliyor, ancak hücrelerdeki çerçeve çizgilerini temizlemiyor.
Yukarıdaki kodu çerçeve çizgilerini de temizleyecek şekilde düzenleyebilirmisiniz.

 

[leumruk]

Merhaba,

If sh.Range("A3").Value <> ComboBox1.Text Then sh.Range("A5:G65536").[COLOR="DarkRed"]Clear[/COLOR]

Bu arada bir önceki kodu güncelledim. [g65536] yerine [b65536] yaptım. Önceki toplamları da aktarıyordu.

 

[s.savas]

Merhaba,

If sh.Range("A3").Value <> ComboBox1.Text Then sh.Range("A5:G65536").[COLOR="DarkRed"]Clear[/COLOR]

Bu arada bir önceki kodu güncelledim. [g65536] yerine [b65536] yaptım. Önceki toplamları da aktarıyordu.

Hocam teşekkür ederim.
Aslında önceki toplamlarında aktarılması gerekiyor.

Kodu tekrar

Sayfa5.Range("a3:g" & Sayfa5.Range("g65536").End(3).Row).Copy Sayfa3.Cells(Sayfa3.[a65536].end(3).Row+1,"a")

yapıyorum, fakat sayfa3'e kopyalanırken bir önceki kopyalanan verinin son satırında E:G aralığında bulunan TOPLAM satırı siliniyor.Yani kopyalanan veri olduğu gibi korunup, yeni veri son satırdan itibaren kopyalanması gerekiyor.

 

[leumruk]

Hocam teşekkür ederim.
Aslında önceki toplamlarında aktarılması gerekiyor.

O zaman aşağıdaki gibi kullanmalısınız.

Sayfa5.Range("a3:g" & Sayfa5.Range("g65536").End(3).Row).Copy Sayfa3.Cells(Sayfa3.[g65536].end(3).Row+1,"a")

 

[s.savas]

Hocam Sayfa3'e kopyalanan verileri 10.satırdan itibaren kopyalanmasını sabitleyemedim.

 

[leumruk]

Hocam Sayfa3'e kopyalanan verileri 10.satırdan itibaren kopyalanmasını sabitleyemedim.

Kodu aşağıdaki gibi kullanın.

Sat = Sayfa3.[g65536].end(3).Row+1
If Sat < 10 Then Sat = 10
Sayfa5.Range("a3:g" & Sayfa5.Range("g65536").End(3).Row).Copy Sayfa3.Cells(Sat,"a")

 

[s.savas]

Kodu aşağıdaki gibi kullanın.

Sat = Sayfa3.[g65536].end(3).Row+1
If Sat < 10 Then Sat = 10
Sayfa5.Range("a3:g" & Sayfa5.Range("g65536").End(3).Row).Copy Sayfa3.Cells(Sat,"a")

Çok teşekkür ederim hocam, iyi akşamlar diliyorum.

 

[leumruk]

Çok teşekkür ederim hocam, iyi akşamlar diliyorum.

Rica ederim. İyi geceler.