msgboxta hücre değerini görmek

[zevki.sefali]

sayfa1 deki a1 hücresine tıklayınca sayfa2 deki d1 hücresindeki değeri
sayfa1 deki a2 hücresine tıklayınca sayfa2 deki d2 hücresindeki değeri
sayfa1 deki a3 hücresine tıklayınca sayfa2 deki d3 hücresindeki değeri
msgboxta görmek istiyorum. bu konuda yardımlarınızı bekliyorum arkadaşlar

 

[Emir Hüseyin Çoban]

Merhaba, sayfa1' in kod bölümüne aşağıdaki kodları yapıştırarak deneyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("a1")) Is Nothing Then
MsgBox Sheets("sayfa2").Range("d1")
End If

If Not Intersect(Target, Range("a2")) Is Nothing Then
MsgBox Sheets("sayfa2").Range("d2")
End If
If Not Intersect(Target, Range("a3")) Is Nothing Then
MsgBox Sheets("sayfa2").Range("d3")
End If
End Sub

 

[Ömer]

Merhaba,

Alternatif olsun.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    If Intersect(Target, [A1:A3]) Is Nothing Then Exit Sub
 
    MsgBox Sheets("Sayfa2").Cells(Target.Row, "D")
    
End Sub

.

 

[zevki.sefali]

Teşekkürler hüseyin kardeş eline emeğine sağlık

 

[zevki.sefali]

ömer kardeş sanada çok teşekkür ederim