Hücreden Textbox'a veri gönderme

[iaydin20]

Arkadaşlar sayfa1'e ait d10 ile d20 aralıgındaki herhangi bir hücreye tıkladığımda hücre içindeki yazıların sayfa2 deki textbox1 e yazılmasını ve sayfa2 nin açılmasını sağlayacak bir makroya ihtiyacım var yardımcı olan herkeze şimdiden teşekkürü bir borç bilirim...

 

[Ömer]

Merhaba,

Sayfa1 in kod bölümüne kopyalayın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
    If Intersect(Target, [D10:D20]) Is Nothing Then Exit Sub
    
    If Selection.Count > 1 Then Exit Sub
    
    With Sheets("Sayfa2")
        .Select
        .TextBox1.Text = Target
    End With
 
End Sub

.

 

[iaydin20]

Cok tesekkur ederim ustadim emegine saglik