Seçilen hücreyi aktif yapmak

[Muhammet Okumuş]

Arkadaşlar Merhaba,

Dosyada, B sütunundaki hücrelere tıkladığımda veriler getiriliyor. Seçtiğim hücrenin aktif olması nasıl sağlanabilir?

 

[Korhan Ayhan]

Merhaba,

Verileri kopyalayarak aktarma zorunluluğunuz varsa aşağıdaki kodu kullanabilirsiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Range("B3:B7"), Target) Is Nothing Then Exit Sub
Application.EnableEvents = False
kac = WorksheetFunction.Match(ActiveCell, Range("F2:J2"), 0) + 5
Range(Cells(3, kac), Cells(8, kac)).Copy
Range("C3").PasteSpecial (xlPasteValues)
Application.CutCopyMode = False
Target.Activate
Application.EnableEvents = True
End Sub

Kopyalama zorunluluğunuz yoksa aşağıdaki kodu deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Range("B3:B7"), Target) Is Nothing Then Exit Sub
    Set BUL = Range("F2:J2").Find(Target, , , xlWhole)
    If Not BUL Is Nothing Then
        Range("C3:C8").Value = Range(Cells(3, BUL.Column), Cells(8, BUL.Column)).Value
    End If
    Set BUL = Nothing
End Sub

 

[Muhammet Okumuş]

Sn. Korhan Bey, ilginiz ve cevaplarınız için çok teşekkür ederim.