Aktif sütun ve satır değerini almak ve macro tetiklemek.

[a_self_lion]

Selam Sevgili arkadaşlar sizlerin sayesinde artık işlerim daha kolay. Şimdi sizden iki önemli bilgi daha rica ediceğim.
1- Ben bir satırda iken B stunu üzerine geldiğim zaman aktif satır ve sutun olarak Örneğin B10 ye geldiğim zaman bir macroyu tetiklemesini isityorum. Bunu nasıl yaparım yani B11 de tetiklesin C11 de tetiklemesin gib... Dikkat etmem gereken Şayet B stunundaki değer yoksa ve B10 dan küçükse yani B9 B8 ise tetiklemesin

2- ve bu tetiklemeden hemen önce MLZKODNO değişkenine O aktif olan B stunundaki B10 daki veya B11 deki veya b12 de ki hangi satırda b stunu üzerine gelmişsem oradaki değeri Vba da MLZKODNO değişkenine almam lazım
MLZKODNO = Range("B10") ' böyle yapınca oluyorda fakat burda sabit değil değer sayfada ayni B11 de olabilir B12 de veya B13 de B14 de olabilir. B stunu üzerinde iken hangi satırda aktifsem o değeri almam lazım ama nasıl.
Umarım anlatabilmişimdir. Şimdiden Teşekkür ederim.

 

[uzmanamele]

merhaba

böyle bir şey mi istemiştiniz?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 2 Then Exit Sub
If Target = "" Then Exit Sub
MLZKODNO = Target.Text
MsgBox "MLZKODNO :" & MLZKODNO
End Sub

 

[a_self_lion]

Sevgili kardeşim;

Burda anladığım kadarıyla seçim 1 den fazla ile ise çık
eğer ikici sutun değilse çık
eğer seçim boşsa çık. değilse yani ihtimal column 2 ise herhangi bir gölümünde değerini mlzkodno ya ata denmiş anladığım kadarıyla

benim esas istediğim burda B10 ile B20 arasında bir stunda seçim yapılırsa değerini mlzkodno ya atasın artı birde macroyu tetiklesin istemişim ama sanırım sizin bu örneğiniz üzerinde biraz çalışırsam yapabilirim. İlginiz için çok teşekkür ederim.

 

[uzmanamele]

merhaba

bu işinizi görür mü?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Intersect(Target, [B10:B20]) Is Nothing Then Exit Sub
If Target = "" Then Exit Sub
MLZKODNO = Target.Text
MsgBox "MLZKODNO :" & MLZKODNO
End Sub

burada kod no msgbox olarak gösteriliyor, siz bu satırın yerine ne yapmak istiyorsanız onu yazabilirsiniz.

 

[a_self_lion]

Teşekkür ederim cuk diye oturdu valla tam istediğim bu...)