hücrenin hizasını bulmak

[cdroy1]

herkeze selamlar
j3:n50 tablosunda değişen bi hücre aradığımda (misal bu gün k5 ise bana b5 ü verecek ,yarın L3 ise b3 ü verecek ) bana o hücrenin bulunduğu satır hizasındaki B:B içindeki değeri versin böyle bişey mümkünmü şimdiden teşekkürler
başlık için özür dilerim aklıma sadece bu geldi

şimdiden kolay gelsin

 

[Korhan Ayhan]

Selamlar,

Hücreler değiştiğinde B sütunundaki değeri nerde görmek istiyorsunuz.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu ilgili sayfanın kod bölümüne uygularmısınız. Belirttiğiniz alanda bir değişiklik olduğunda MSGBOX ile size o satıra denk gelen B sütunundaki veriyi bildirecektir.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [J3:N50]) Is Nothing Then Exit Sub
    If Target <> "" Then MsgBox "B S&#220;TUNUNDAK&#304; DE&#286;ER : " & Cells(Target.Row, 2)
End Sub

 

[cdroy1]

kusura bakma arkadaşım mesajlarına cevap veremedim işlerim dolayısı ile sışarı çıkmıştım öncelikle alakandan dolayı çok teşekkür ederim sorduğun soruya gelince ben B.B deki değeri sayfa2 a1 hücresinde görmek istiyorum kodu bu şekilde düzenlersen çok menmun olurum

iyi çalışmalar


kendiliniz mübarek olsun

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [J3:N50]) Is Nothing Then Exit Sub
    If Target <> "" Then Sheets("Sayfa2").Range("A1") = Cells(Target.Row, 2)
End Sub

 

[cdroy1]

sayın cost_control verdiğin bilgi için teşekkür ederim

elki listeye bakabilirrsen ne yapmak istediğimi göreceksin onun üzerinden bi fikir yada çalışma yapabilirsen çok sevinirim vaktini bana ayırdığın için minnettarım iyi çalışmalar kolay gelsin

 

[Korhan Ayhan]

Selamlar,

Ekte örnek dosyanız üzerinde gerekli düzenlemeleri yaptım. İncelermisiniz. Umarım faydası olur.

 

[cdroy1]

abicim bu kadar olağanüstü olamazdı
sana ne kadar teşekkür etsem azdır tek kelime ile muhteşem ellerine kollarına emeğine sağlık bu mübarek günde dualarım seninle olacak çok çok teşekkür ederim saygılarımla