Soru Aktif hücre

[sirkülasyon]

sütunda C4:C150 arasında Çift click yaptığım zaman açılan userformda bulunan
Textbox4' e aktif hücreyi
Textbox5' e aktif hücrenin sağındaki ilk hücreyi
Textbox6' ya aktif hücrenin sağındaki ikinci hücreyi
Textbox7' ye aktif hücrenin sağındaki üçüncü hücreyi
aktaracağım kod için yardımcı olabilir misiniz?

 

[ÖmerFaruk]

Sayfanın Kod penceresine

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("C4:C150")) Is Nothing Then
    Module1.FormAç
End If
End Sub

Module 1 içine

Public Adresim As Range
Sub FormAç()
    Set Adresim = ActiveCell
    UserForm1.Show
End Sub

UserForm1 içine

Private Sub UserForm_Initialize()
    TextBox4 = Adresim.Offset(0, 0).Value
    TextBox5 = Adresim.Offset(1, 0).Value
    ' Diğer textboxlar ve sağ-sol-alt üst ne istiyorsanız
    ' siz ayarlayabilirsiniz
End Sub

 

[sirkülasyon]

Eyvallah ÖmerFaruk
Çok çok teşekkür ederim. Ellerine Sağlık.