Seçilen adresi textboxa almak

[merakli_72]

Arkadaşlar selam,
Bir form ve üzerinde bir text box var excelin kendi dialog kutularında olduğu gibi
çalışma sayfasında seçilen alanın adresini bu text boxa alabilirmiyiz
NOT: Bu modül eklenti olarak kullanılacağından kodun sanırım çalışma sayfası değiştiğinde kısmına yazılması olmaz

 

[Korhan Ayhan]

Selamlar,

Bunun için RefEdit nesnesini kullanabilirsiniz. Ekteki örnek dosyayı incelermisiniz. Formu açın ve mouse ile sayfadan alan seçin.

 

[merakli_72]

Korhan Bey teşekkür ederim,
Peki seçilen alanın sutun nolarını nasıl alabilirim

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki dosyayı güncelledim. İncelermisiniz.

Kullanılan kod;

Option Explicit
 
Private Sub CommandButton1_Click()
    Dim VERİ As String, AYIR() As String
    
    If RefEdit1.Value <> Empty Then
    VERİ = Replace(RefEdit1.Value, ActiveSheet.Name & "!", "")
    AYIR = Split(VERİ, ":")
    If UBound(AYIR) = 1 Then
    MsgBox "İlk sütun no : " & Range(AYIR(0)).Column & vbCrLf & _
    "Son sütun no : " & Range(AYIR(1)).Column
    Else
    MsgBox "Sütun no : " & Range(AYIR(0)).Column
    End If
    Else
    MsgBox "Lütfen seçim yapınız !"
    End If
End Sub

 

[merakli_72]

korhan bey,
ilginiz vede yardımlarınız için teşekkür ederim

 

[Korhan Ayhan]

Selamlar,

Örnek dosyada tek hücre seçiminde hata mesajı veriyordu. Bu hata giderilmiştir. Dosya ve kod güncellenmiştir. Lütfen son halini kullanınız.