seçili veriyi "A" sütunundaki son dolu hücrenin hizasına kopyalamak

[EKREM1661]

Selamlar..! Arkadaşlar..

veritabanı olarak kullandığım bir sayfam var.."A" sütunundan sıra numarası vererek, sütunların ilk satırdaki yazılı konu başlıklarına göre (sağa doğru) verileri girerek devam ediyorum.

Bazen yazılacak olan veri, bulunduğum sütunun önceki satırlarında mevcut ise, kopyala/yapıştır işini bir düğmeye atayarak yapmam gerekiyor.

Bunun için, kopyalama aktif hücreden başlayacak, sonra "A" sütununda en son dolu hücreyi esas alarak, hizasına düşen hücreye yapıştıracak. Böyle bir kodu oluşturabilecek bir kardeşimiz olursa çok makbule geçecek..

 

[tcexcel]

Bunu bir deneyin.

Sub yapistir()
Satir = Range("A65536").End(xlUp).Row
Sutun = ActiveCell.Column
Selection.Copy
Cells(Satir, Sutun).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

 

[EKREM1661]

Sayın tcexcel..!

gerçekten harikulade olmuş..çok teşekkür ediyorum ve hayırlı çalışmalar diliyorum..
Konu çözüldü, fakat şu ilaveyi de yapabilirmiyiz..Yukarıdaki kod ile, verinin yapıştırıldığı hücrede (her ihtimale karş&#305 veri var ise uyarı versin.. (gerçi işin asıl önemli kısmı bu idi, sizi fazla da rahatsız etmek istemem..) Elinize sağlık..

 

[tcexcel]

Sub yapistir()
Satir = Range("A65536").End(xlUp).Row
Sutun = ActiveCell.Column
Selection.Copy
If Cells(Satir, Sutun).Value = "" Then
Cells(Satir, Sutun).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Else
Cells(Satir, Sutun).Select
Application.CutCopyMode = False
MsgBox "Kopyalamaya çalıştığınız hücrede veri var"
End If
End Sub

 

[EKREM1661]

Sayın tcexcel..! internetim kesik olduğundan geç farkına vardım..
size tekrar teşekkür etmeyi borç biliyorum..bana iyi bir kolaylık sağlamış oldun..sen ve senin gibi forumda cevaplayan ekibimiz sayesinde hayal edip te yapamadıklarımızı öğrenmiş oluyoruz ve çalışma hayatımız kolaylaşıyor.
sağlıcakla kal..