veri aktarmadaki sorun nerede anlamadım.

[karakaçan]

sayfa 1 de A2: C4 arasındaki verileri kopyalayıp Sayfa2 deki a sütünunun ilk boş satırındaki hücreden itibaren kopyalamak istiyorum.Aşağıdaki makronun neresi hatalı yardımcı olabilir misiniz acep ?

Sub Makro1()
'
' Makro1 Makro
'

'
Range("A2:C4").Select
Selection.Copy
Sheets("SAYFA2").Select
son_dolu_satır = Sheets("SAYFA2").Range("A65536").End(xlUp).Row
bos_satır = son_dolu_satır + 1
Range("A" & bos_satır).Select
ActiveSheet.Paste

 

[uzmanamele]

merhaba

kod istediğinizi yapar, sorun başka bir yerde olsa gerek.
sayfa2'de birleştirilmiş hücre olabilir mi?

 

[Vedat Özer]

Selamlar,


Makrolardan fazla anlamam ama aşagıdaki kodlar işinize yarar ?

Option Explicit

Sub Makro1()
Dim son_dolu_satır, bos_satır As Integer
Range("A2:C4").Select
Selection.Copy
Sheets("SAYFA2").Select
son_dolu_satır = Sheets("SAYFA2").Range("A65536").End(xlUp).Row
bos_satır = son_dolu_satır + 1
Range("A" & bos_satır).Select
ActiveSheet.Paste
End Sub

 

[karakaçan]

arkadaşlar ilginize teşekkürler yukarıda yazdığım makro sadece sayfa 2 deki A sütünundaki ilk boş satırı seçmeye kadar çalışıyor yapıştır işlemini yapmıyor. Ayrıca bu kodu sayfa1 e mi yapıştıracağım yoksa başka bir yere mi ?

 

[uzmanamele]

merhaba
kod standart modülde olmalı ve hangi sayfadaki verileri aktaracaksanız o sayfa aktifken çalıştırılmalı.

zahmet olmazsa örnek dosya ekleseniz!

 

[karakaçan]

Arkadaşlar çok sağ olun problemi çözdüm. Dosya ekleyemedim çünkü bilgisayarımızda kısıtlama var dosya paylaşımına izin verilmiyor.Ama işyerinden bağımsız bir bilgisayardan eklemeye çalışacağım. Belki başka arkadaşlara faydası olur.

 

[karakaçan]

arkadaşlar dosyayı ekliyorum ilginize teşekkür.