Koşullu güncellenen düşeyara hk.

[talebeyim]

' iki hafta Mevcut Stok
Set S1 = Sheets("iki")
Set S2 = Sheets("Ay")
With S1.Range("H2:H" & sayac2)
 .Formula = "=VLOOKUP(B2," & S2.Name & "!B:L,11,0)"
 .Value = .Value
End With

Arkadaşlar burada gördüğünüz gibi vlookup işlemi var, bu işlemin çalışmasını bir koşula bağlamak istiyorum.

Örnek.

"Ay" isimli Sheet'de "L" sütunundaki herhangi bir hücrede değişiklik yapıldığı takdirde bu kod çalışsın !.

ve bu kod sayfanının ilk açılışında aktif hale gelmesi gerekli yani bir butona bağlı kalmaksızın.

Böyle bir şey mümkünmüdür ?.

 

[talebeyim]

Private Sub Worksheet_Change(ByVal Target As Range)
  
  If Target.Address = "$A$1" <> Empty Then Deneme
End Sub

Sub Deneme()
  MsgBox "deneme"
End Sub

Bu kodu Tüm L sutununa nasıl uyarlarım Yardımcı olabilirmisiniz?

 

[talebeyim]

Konunun çözümünü bir makalede buldum, sizlerle paylaşmak istedim.

Soruma ek olarak kodlar Sütun ve Satır iç ayrı derlendi.

'Private Sub Worksheet_Change(ByVal Target As Excel.Range)

'If Target.Column = 3 Then Call Test '3. sütunda islem yapilirsa makro çalisir.

sub Test ()
MsgBox = "Deneme"
End Sub


'If Target.Row = 3 Then MsgBox "Deneme"    '3. satirda islem yapilirsa makro çalisir.
'End Sub