Hücreye değer girildiğinde makro tetiklemek?

[alidenizergun]

Evet dostlar bir soru daha

Belirli hücrelere (4-5 tane hücre) birşeyler yazıldığında (ne yazıldığı farketmez) bir makro tetiklemek istiyorum..

Nasıl yaparım?

Yanıtınız için şimdiden teşekkürler.

 

[İhsan Tank]

Evet dostlar bir soru daha

Belirli hücrelere (4-5 tane hücre) birşeyler yazıldığında (ne yazıldığı farketmez) bir makro tetiklemek istiyorum..

Nasıl yaparım?

Yanıtınız için şimdiden teşekkürler.

eki inceler misin
sadece a1 ve B1'e göre çalışır.
sayfanın kod bölümü B1'deki formül ve module'deki kodları inceleyiniz

 

[alidenizergun]

Yanıt için teşekkürler fakat burda B1 deki formul A1 hücresini kontrol ediyor. B1 i kontrol ettirmeye çalışınca da döngüsel hataya giriyor. Benim istediğim şey bir hücreye değer girince bi makro çalışıcak ve yine aynı hücreye işlemler yapıp bir değer girecek.

 

[alidenizergun]

sanırım tamamdır hocam sizin yöntemden yola çıkarak çözdüm. çok teşekkürler

 

[İhsan Tank]

sanırım tamamdır hocam sizin yöntemden yola çıkarak çözdüm. çok teşekkürler

rica ederim
iyi çalışmalar :mutlu:

 

[İhsan Tank]

sanırım tamamdır hocam sizin yöntemden yola çıkarak çözdüm. çok teşekkürler

merhaba
bir de şunu deneyin sayfanızın kod bölümüne

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then
If Intersect(Target, Range("[COLOR="Red"]A1:A10[/COLOR]")) Is Nothing Then Exit Sub
On Error Resume Next
MsgBox "Selamun Aleyküm", , "İhsan Tank"
Else
If Target.Column = 2 Then
If Intersect(Target, Range("[COLOR="red"]B1:B10[/COLOR]")) Is Nothing Then Exit Sub
On Error Resume Next
MsgBox "Aleyküm Selam", , "İhsan Tank"
End If
End If
End Sub

bu kodu yazın
makro sadece kırmızı olanlarda aktif olmaktadır.
değişikliği hemen tanır.
dosya ekte

 

[erdin06]

Kolay gelsin ağalar,

benim de cok önemli ve acil bir konum var. Aşağıdaki gibi bir Makrom var. Şimdi benim istediğim ; A5 hücresine bir değer girdiğimde, bu makro otomatikman çalışsın. Denedim bir kaç yöntem ama maalesef başarılı olamadım. Umarım yardımcı olabilecek biri vardır. Şimdiden sonsuz teşekkürler

Sub Macro1()
'
' Macro1 Macro
'

'
Dim i As Long

i = Sheets("Sayfa1").Cells(Rows.Count, "H").End(3).Row + 1
If i < 3 Then i = 3

Range("A2").Copy
Sheets("Sayfa1").Range("A" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("B2").Copy
Sheets("Sayfa1").Range("B" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("K3").Copy
Sheets("Sayfa1").Range("C" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("L3").Copy
Sheets("Sayfa1").Range("D" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("M3").Copy
Sheets("Sayfa1").Range("G" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("N4").Copy
Sheets("Sayfa1").Range("H" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False


Application.CutCopyMode = False

End Sub

 

[Resspect]

Farklı hücrelerde farklı makro tetiklemek.

Merhaba Arkadaşlar

yardımınızı rica ederim.

aşağıdaki makrom sadece A8 hücresi için çalışıyor A12 hücrem için çalışmıyor.

A8 hücresi için çalışan makroyu nasıl a12 hücresi içinde etkin kılabilirim.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A8]) Is Nothing Then Exit Sub
If Target.Value = 1 Then Call Macro1
If Intersect(Target, [A8]) Is Nothing Then Exit Sub
If Target.Value = 2 Then Call Macro2
If Intersect(Target, [A8]) Is Nothing Then Exit Sub
If Target.Value = 3 Then Call Macro3
If Intersect(Target, [A12]) Is Nothing Then Exit Sub
If Target.Value = 1 Then Call Macro4
If Intersect(Target, [A12]) Is Nothing Then Exit Sub
If Target.Value = 2 Then Call Macro5
If Intersect(Target, [A12]) Is Nothing Then Exit Sub
If Target.Value = 3 Then Call Macro6
End Sub