verileri aktarıyor ancak veriler uzadığı için boş hücreyi geç buluyor

[jambow]

SATIŞ A6 :H32 arasındaki verileri FULL sayfasına aktarıyor ancak liste uzadığı zaman aktarma işlemi çok uzuyor (en sondaki boş hücrezi bulması zaman alıyor) bu problemi nasıl çözeriz dosya ekte

problemi görmek için ürün ismi girerek satış düğmesine tıklayınız

 

[ozgretmen]

Aşağıdaki kodu dener misiniz ?

Sub aktarma()
boshücre = Sheets("FULL").[A65536].End(3).Row + 1
Sheets("SATIŞ").Range("a6:h32").Copy Sheets("FULL").Cells(boshücre, 1)
MsgBox " Aktarma işlemi  gerçekleşmiştir."
End Sub

 

[Necdet]

Merhaba,

Bir sürü kod gördüm aktarmak için pek anlamadım ama aşağıdaki kodu dener misiniz?

Sub AKTAR()
    Range("A6:G105").Copy Sheets("FULL").Range("A" & [A65536].End(3).Row + 1)
End Sub

 

[Necdet]

Geç kalmışım

 

[jambow]

ikinizede çok teşekkür ediyorum sn ozgretmen nin kodunu denedim oldu . nejdet bey size de ilginiz için çok teşekkür

 

[ozgretmen]

ikinizede çok teşekkür ediyorum sn ozgretmen nin kodunu denedim oldu . nejdet bey size de ilginiz için çok teşekkür

İyi çalışmalar...

 

[jambow]

HOCAM ŞİMDİ FARKETTİM BURADA FORMÜLLERİDE aktarıyor
sadece verileri aktarmamız mümkünmü

 

[ozgretmen]

Aşağıdaki şekilde dener misiniz ?

Sub aktarma()
boshücre = Sheets("FULL").[A65536].End(3).Row + 1
Sheets("SATIŞ").Range("a6:h32").Copy
Sheets("FULL").Activate
Cells(boshücre, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
Sheets("SATIŞ").Select
Application.CutCopyMode = False
MsgBox " Aktarma işlemi  gerçekleşmiştir."
End Sub

 

[jambow]

şimdi ok teşekkürler