hedef hücre seçme

[bebar]

Merhaba;

Bir dosyamda aşağıda kodu kullanarak B sütununda bir hücreye tıkladığımda h2,ı2 ve j2 hücrelerine tıklamış olduğum hücrenin yanındaki verileri getirebiliyorum ama aynı sayfa içinde H sütunu için aynı işlemi yapıp h3,ı3 ve j3 hücrelerine veri getiremiyorum yardımcı olursanız memnun olurum

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub
Range("a7:e1000").Interior.ColorIndex = xlNone

If Intersect(Target, [B7:b1000]) Is Nothing Then Exit Sub

Range(Cells(Target.Row, 1), Cells(Target.Row, 5)).Interior.ColorIndex = 14
Range("H2").Value = Cells(Target.Row, 2).Value
Range("I2").Value = Cells(Target.Row, 3).Value
Range("J2").Value = Cells(Target.Row, 4).Value

End Sub

Teşekkür Ederim

 

[muygun]

Merhaba;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub
Range("a7:e1000").Interior.ColorIndex = xlNone
If Intersect(Target, [B7:b1000]) Is Nothing Then Exit Sub
sat = Target.Row
Range(Cells(Target.Row, 1), Cells(Target.Row, 5)).Interior.ColorIndex = 14
Cells(sat, "h").Value = Cells(Target.Row, 2).Value
Cells(sat, "ı").Value = Cells(Target.Row, 3).Value
Cells(sat, "j").Value = Cells(Target.Row, 4).Value
End Sub

Şeklinde deneyin.
İyi çalışmalar.

 

[bebar]

hocam teşekkür ederim ama işe yaramadı daha iyi anlaşılması için bir örnek dosya ekledim.

 

[muygun]

Merhaba;
Sanırım sağ taraftaki tablonun bir işlevi yok. (Aynı satırda H,I,J sütunlarına veri yazdırmayı iptal ettim.)
Eki tekrar deneyin.
İyi çalışmalar.

 

[bebar]

Çok teşekkür ederim hocam istediğim tam olarak buydu.