A sütunu hücresini A1 hücresine atama

[EKREM1661]

Değerli Arkadaşlar..! (iyi çalışmalar dileğiyle)
Aşağıdaki kod ile, çift tıklanan satırın A sütunundaki sayıyı A1'e aktarıyor..

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'ComboBox Yükleme
On Error Resume Next
If Intersect(ActiveCell, [A1]) Is Nothing And actiivecell.Value <> "" Then
    Range("A1").Value = Cells(ActiveCell.Row, "A").Value
End If

Ancak, bu makro A15 aralığında çalışmasın, 5.nci satırdan itibaren A,B,C,D sütunlarında çalışsın.. Böyle bir düzenleme gerekiyor..

 

[merakli_72]

Selam,
Aşağıdaki şekilde denermisiniz 6.satırdan itibarenki tıklamaları A1 hücresine alır

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'ComboBox Yükleme
On Error Resume Next
If (Intersect(ActiveCell, [A1:A5]) Is Nothing) And ActiveCell.Value <> "" Then
    Range("A1").Value = Cells(ActiveCell.Row, "A").Value
    Application.SendKeys ("{ESC}")
End If
End Sub

 

[EKREM1661]

Sn.merakli_72 hocam, teşekkür ederim ve elinize sağlık..Güzel olmuş, fakat birde 6.satırdan itibaren tıklamaları A1 hücresine alma görevini, D sütununa kadar genişletebilirsek çok daha iyi olacak.. Yani diyelim ki D10 hücresine tıklamış isek, A10 hücresindeki veriyi A1'e taşısın.. Verinin alınacağı sütun her zaman A6 dan itibaren A sütunu olacak, bundaki mantık değişmeyecek. Fakat, B, C, D sütunlarına da tıklamış olsak, A sütununa tıklamış gibi A sütunundaki veriyi taşısın.. Bu şekil yapabilir miyiz?

 

[merakli_72]

Buyrun;

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) 'ComboBox Yükleme
On Error Resume Next
If Not (Intersect(Target, [A6:D65536]) Is Nothing) And Cells(Target.Row, "A") <> "" Then
    Range("A1").Value = Cells(Target.Row, "A").Value
    Application.SendKeys ("{ESC}")
End If
End Sub

 

[EKREM1661]

Mesele halledildi, Sn.merakli_72 elinize sağlık, çok teşekkürler ve iyi çalışmalar..

 

[Murat OSMA]

Application.SendKeys ("{ESC}") yerine End Sub'tan önce Cancel = True yazılabilir.​

 

[EKREM1661]

Murat bey Teşekkürler.. Sanırım, her iki kod'da her halükarda aynı görevi görüyor..