makro m sütunun'da herhangi bir hücreye gelirse otomatik çalışsın

[CEMİL16]

arkadaşlar kolay gelsin

makro M sütunun'da herhangi bir hücreye gelirse otomatik çalışsın çalış sın

Bu konuda yardımcı olurmusunuz
Hepinize iyi çalışmalar

 

[muygun]

Merhaba;
Sayfanın kod bölümüne;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
süt = Target.Column
If süt = 13 Then
MsgBox ("makro çalıştı")
End If
End Sub

Kodlarını yerleştirip deneyin.
İyi çalışmalar.

 

[CEMİL16]

HOCAM MALESEF ÇALIŞMADI

 

[Kenantu]

Türkçe karakterleri kaldırıp deneyin birde kodların başında Option Explicit varsa silin ben denedim çalışıyor çünkü. ü harfinı u olarak değiştirin kodlardaki

 

[CEMİL16]

Sub Makro3()
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
sut = Target.Column
If sut = 13 Then
MsgBox ("makro ?al??t?")
End If
Application.Goto Reference:="R60000C2"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select

End Sub
ben bu kodu çalıştıramadım

 

[muygun]

HOCAM MALESEF ÇALIŞMADI

Çalışması gerekiyor...

 

[CEMİL16]

hocam linki açamadım

 

[muygun]

Sıkıştırılmamış hali

 

[CEMİL16]

Application.Goto Reference:="R60000C2"
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select

Hocam
Ben bu kodu control+shift+L ile çalıştırıyorum
benim işlemim L sütununda bitiyor
M sütununa geldiğinde kod otomatik çalışsın istiyorum
ilginize teşekkür ederim