hücreyi tıkaladığında metin kutusu açılsın

[imdatsaral]

Sevgili arkadaşlar,

Excel dosyamda kullandığım sütün sayısı çok olduğundan ekte gönderdiğim dosyayı incelerseniz sevinirim. Ben yinede kısaca anlatmaya çalışayım B3 hücresine tıkladığımda U3 hücresinin içeriğini açılan metın kutusunda görmek
yardımcı olabilirmisiniz

 

[uzmanamele]

merhaba
veri doğrulamadan liste mi oluşturmak istiyorsunuz? sorunuzu biraz daha açarmısınız.

 

[hamitcan]

Sayfanın kod kısmına ekleyin.Not: Örnek, Veri doğrulama ile yapılmıştır.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address <> "$B$3" Then Exit Sub
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
        :=xlBetween
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = [b3]
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub

Alternatif:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address <> "$B$3" Then Exit Sub
    Shapes(2).Select
    Selection.Text = [b3]
End Sub

 

[ersoyalan]

Merhaba,

Bende bir örnek yaptım.Umarım işinize yarar.

İyi çalışmalar.

 

[Halit TÜRK]

Textbox gizli göster

Selamlar,

Alternatif olarak dosya eklidir. B3 hücresine çift tıklayın, sonra da diğer herhangi bir hücreye tıklayınız..

 

[imdatsaral]

hepinizden özür dilemek istiyorum sizleri yanlış yönlendirdim. Ekteki dosyayı incelermisiniz tekrar özür dilerim

Şöyle anlatayım B sütunuda herhanki bir hücreye tıkladığımda Usütununda karşılık gelen hücrenin değerini yazsın. örneğin b5 hücresine tıkladığımda u5 hücresinin değerini yazsın

 

[hamitcan]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column <> 2 Then Exit Sub
    ActiveSheet.Shapes("Text Box 2").Select
    Selection.Text = ActiveCell
End Sub

Alternatif:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Column <> 2 Then Exit Sub
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
        :=xlBetween
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ActiveCell
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub

 

[imdatsaral]

Sayın hamitcan,

" .InputMessage = ActiveCell " activeCell değilde U sütunundaki aynı sayılı hücrenin değeri yazılması gerekiyor.

örnek dosyayı incelermisiniz.

 

[hamitcan]

Aşağıdaki şekilde deneyin.

CELLS(ACTIVECELL.ROW,"U")

 

[Halit TÜRK]

Selamlar..

Alternatif olarak...

 

[imdatsaral]

teşekkür ederim elinize sağlık