Tek bir düğme ile seçili hücre içeriğini diğer sayfaya aktarma yönetimi

[belosino]

Öyle bir düğme düşünün ki, düğmeye tıklandığında o an seçili olan hücrenin içindeki bilgi, bulunduğu yerden (sayfa1 de A2 sütunu) kesilip sayfa2 de A2 sütununa kesilme tarih ve saatiyle birlikte yapışsın ve sayfa1 deki sütunda silinen yerin altındaki hücreler içerikleriyle birlikte bir yukarı çıksın. Bu sırada Sayfa2 ye aktarılan bilgiler alt alta sıralansın.

Aranızda bu konuda bana yardımcı olabilecek biri var mı?

 

[hamitcan]

Aktif hücreyi diğer sayfaya aktarır.

Sub keskop()
son = Application.CountA(Sayfa2.Columns(1)) + 1
ActiveCell.Cut Destination:=Sayfa2.Cells(son, 1)
Rows(ActiveCell.Row).Delete Shift:=xlUp
Application.CutCopyMode = False
End Sub

 

[Recep İpek]

Ekteki örnek size fikir verebilir.Kendinize göre uyarlayabilirsiniz.

 

[veyselemre]

Sub aktar()
Set s2 = Sheets("sayfa2")
SonS2 = (s2.[a65536].End(xlUp).Row) + 1

[a2].Copy s2.Cells(SonS2, 1)
s2.Cells(SonS2, 2) = Now

[a2].Delete shift:=xlUp

End Sub

 

[belosino]

hepinize çok teşekkürler arkadaşlar.

iyi çalışmalar