InputMessage ile ilgili

[imdatsaral]

Arkadaşlar,

Benim aşağıdaki kodları kullanıyorum ama yeterli olmuyor.

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

Daha iyi anlatabilmem için örnek dosya hazırladım.
yardımcı olursanız sevinirim.

 

[halit3]

bu kodu denermisiniz.

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

 

[imdatsaral]

sayın halit3 yardımın için teşekkür ederim ama tam istediğim gibi olmadı. Benim istediğim gelen miktar üzerindeyken aktiv olan satırın t,u,v sutunlarındaki hücre değerlerini tek kutucukta yazsın.

 

[imdatsaral]

Halit3 arkadaştan gelen cevap yeterli olmadı arkadaşlar istediğim üç ayrı hücrenin bir mesaj kutusunda olması yardımlarınızı bekliyorum

 

[halit3]

siz neyi istemişseniz o konuda yardımcı oluyoruz önceki mesejında belirtseydin yapmaya çalışırdık.

bu kodu deneyiniz

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
a = Target.Row
b = Target.Column
If b >= 20 And b <= 22 Then
With Selection.Validation
.Delete
.Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _
:=xlBetween
.InputMessage = Cells(a, 20) & " _ " & Cells(a, 21) & " _ " & Cells(a, 22)
End With
End If
End Sub

 

[imdatsaral]

Sayın Halit3,
çok teşekkür ederim. elinize bilginize sağlık.