Hücre Kes-Yapıştır

[zafergur]

Merhaba,
Arama yaptım ama bana uygun bir çözümü bulamadım.

Ekteki resimde göreceğiniz gibi 1 yazan hücredeki veriyi bir sağ tarafa (2 numaralı hücre) kes-yapıştır yapıp 3 numaralı hücrenin bulunduğu yere geçmek istiyorum.

Bunu Makro ile yaptım bir tuşa atadım ama kes-yapıştırı hep aynı hücreye yapıyor. Nerede olursam olayım 2 numaralı alana yapıştırıyor.

VBA'da hücre adı vermek yerine bir sağ hücreye geç yapıştır diyebilir miyiz?

 

[bedri41]

Merhaba,
Arama yaptım ama bana uygun bir çözümü bulamadım.

Ekteki resimde göreceğiniz gibi 1 yazan hücredeki veriyi bir sağ tarafa (2 numaralı hücre) kes-yapıştır yapıp 3 numaralı hücrenin bulunduğu yere geçmek istiyorum.

Bunu Makro ile yaptım bir tuşa atadım ama kes-yapıştırı hep aynı hücreye yapıyor. Nerede olursam olayım 2 numaralı alana yapıştırıyor.

VBA'da hücre adı vermek yerine bir sağ hücreye geç yapıştır diyebilir miyiz?

Ekteki örneği inceleyin.
Kolay Gelsin

 

[zafergur]

Bedri Bey çok güzel bir örnek sağolun ama maalesef benim işimi görmedi. Niye derseniz üstteki ilk boş hücreye yapıştırıyor, benim istediğim tıkladığımız hücrenin bir sağındaki hücreye taşıması.

Bir de hücre içeriğini değil de satırı siliyor.

.ClearContents ile hücre içeriğini sildirmek istedim ama başarılı olamadım.

Sizin dosyadaki aşağıdaki kodda birkaç değişiklikle sanırım çözülebilir gibi ama ben başarılı olamadım.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

If Intersect(Target, Sheets("Sayfa1").[A1:A65536]) Is Nothing Then Exit Sub

Target.Rows.Select
Satır = Range("B65536").End(3).Row + 1
ActiveSheet.Cells(Satır, 2) = Target(1, 1).Value
Selection.EntireRow.Delete

End Sub

 

[zafergur]

Aktif hücre içeriğini silmek için Sheets("sayfa1").ActiveCell.ClearContents kullandım.

Şimdi sağ hücreye kes-yapıştır nasıl yaparım diye uğraşıyorum.

Son kod aşağıdaki gibi oldu.

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)

If Intersect(Target, Sheets("Sayfa1").[A1:A65536]) Is Nothing Then Exit Sub

Target.Rows.Select
Satır = Range("B65536").End(3).Row + 1
ActiveSheet.Cells(Satır, 2) = Target(1, 1).Value
Sheets("sayfa1").ActiveCell.ClearContents
End Sub

 

[zafergur]

Maalesef olmadı

 

[zafergur]

Aşağıdaki kodla aktif hücredeki veriyi 3 sağ sütuna taşıdım.

Belki bir faydam olabilir diğer arkadaşlara da. Aşağıda kodu paylaşıyorum.

Sub Taşı()
Application.CutCopyMode = False
Selection.Cut
ActiveCell.Offset(0, 3).Select
ActiveSheet.Paste
ActiveCell.Offset(1, -3).Range("A1").Select
End Sub