Aktif Hücreye göre düşeyara

[yakup70]

Örnek tabloda M sütununda hangi hücreyi seçersem o hücrenin satırının 2. sütunundaki stok kodunu A1 hücresine getirebilir miyiz? Bunları M sütununun tanındaki sütuna x değeri verip soldan düşeyara ile yapıyorum.Ama yaz sil zor oluyor.

 

[Ziynettin]

Merhaba,
Aşağıdaki kodu Grafik sayfasının kod bölümüne yapıştırıp denermisiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim son As Integer
son = Cells(Rows.Count, 13).End(3).Row
If Intersect(Target, Range("M15:M" & son)) Is Nothing Then Exit Sub
[A1] = Target.Offset(0, -11)
End Sub

 

[yakup70]

Çok teşekkür ederim.Elinize sağlık çok güzel oldu.