Hücre Sürükle Bırak!!!

[hopeful]

Merhaba

Bir hücreyi mousla seçip taşırken, o hücrenin bitişiğindeki(sağında) iki hücreyle birlikte taşınmasını nasıl sağlayabilirim.

Örneğin: F7 hücresi = 5
G7 hücresi = Ahmet
H7 hücresi = 80

Sadece F7 hücresini mousle tutup B14 hücresine sürükleyip bıraktığımda B14=5 C14=Ahmet H7=80 olarak otomatik taşınmasını istiyorum.
Örnek ektedir..

Bunu nasıl yapabiliriz??

Saygılar

 

[Levent Menteşoğlu]

Aşağıdaki gibi bir kod işinize yararmı? Bu kodu sheet1 in kod sayfasına kopyalayın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(ActiveCell, [f7:f9]) Is Nothing Then Exit Sub
Range(ActiveCell.Address, ActiveCell.Offset(0, 2).Address).Select
End Sub

 

[Seyit Tiken]

Makrosuz Alternatif:
Taşımak istenilen hücreleri seçili yapın. Seçili hücrelerin kenarı(etraf) kalın çizgili bir dikdörtgen oluştuğu farkedilecektir. Mausu(fare) kalın çerçeveye doğru götürüp üzerine getirmeye çalışın. Maus işaretçisi "OK" işareti şeklini aldığı zaman tutup istediğiniz yere bırakın. Hepsi bu kadar.

 

[hopeful]

Aşağıdaki gibi bir kod işinize yararmı? Bu kodu sheet1 in kod sayfasına kopyalayın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(ActiveCell, [f7:f9]) Is Nothing Then Exit Sub
Range(ActiveCell.Address, ActiveCell.Offset(0, 2).Address).Select
End Sub

teşekkürler. Ancak biraz daha komplike bir durum söz konusu. Hücredeki değerler daha önceden formulasyona göre(vlookup ile) data baseden oluşturulmuştur. f7,g7,h7 ve diğer sürüklecek hücreler, sürükleme işleminden sonra formullerini ve biçimini kaybediyorlar. Bunu nasıl engelleyebilirz?

 

[Seyit Tiken]

Bu kodu bir deneyin.

Sub Düğme1_Tıklat()
Range("F7:H7").Cut Destination:=Range("B14")
End Sub

 

[baydeniro]

Teşekkürler.