tıkladığım hücreye textbox1 taşınsın

[snx111]

sayfada bir adet textbox var boyu eni hücre genişliginde.
sayfada b sütununda nerye tıklarsam bu textbox1 nesnesi o hücreye yerleşşsin.

diyelim b12 ye tıklarsam textboxun kendisi ; "b12" hücresine taşınsın ; value değil objenin kendisi ?

 

[Emir Hüseyin Çoban]

. . .

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
TextBox1.Top = ActiveCell.Rows(1).Top
End Sub

. . .

 

[Ömer]

Merhaba,

Seçilen hücrenin boyutuna göre;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    Dim a As Double, b As Double, c As Double, d As Double
 
    With ActiveCell
        a = .Top
        b = .Left
        c = .Width
        d = .Height
    End With
 
    With TextBox1
        .Top = a
        .Left = b
        .Width = c
        .Height = d
    End With
 
End Sub

.

 

[snx111]

İkiside çok güzel çalışıyor Ömer beye ayrıca hüseyin beye Teşekkür ederim ;