Makro ÇaliŞsin

[EmirhanG]

Merhaba arkadaşlar a1 hüçresinin değeri 999 olduğunda makro çalışsınistiyorum teşekürler.......

 

[N.Ziya Hiçdurmaz]

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("a1") = "999" Then
MsgBox "makro kodlarınız"
End If
End Sub

 

[EmirhanG]

Üstat ilgilendiğin için teşekürler ama benmi yanlış yapıyorum bilmiyorum ama hata veriyor "a1" 999 ulunca yazdığım makro çalışma kitabını kopyalıyor, disk D'de "emir isimli " klasörü oluşturuyor ve çalışma dosyasını klasör içerisine "dosya1" ismiyle kaydediyor . Çalışma kitabına geri dönüyor "a1" ve (a5:j1000) hüçreleri temizliyor. (içerik temizliyor) sizin verdiğiniz kodun devamına yazdım ama kopyalayıp dosya kitleniyor beceremedim mümkünse yardımcı olurmusunuz? Teşekürler.....

 

[EmirhanG]

arkadaşlar yardımcı olurmusunuz......

 

[N.Ziya Hiçdurmaz]

Private Sub Worksheet_Change(ByVal Target As Range)
If Range("a1") = "999" Then
call yedek alma makronuzun başlığını yazınız.(örnek:makro1 gibi)
End If
End Sub

 

[N.Ziya Hiçdurmaz]

yanıt

Dosyayı inceleyiniz.

 

[EmirhanG]

teşekürler üstat sizede zahmet verdim ve yine vereceğim galiba müsadenizle excel' e yeni başlayanlara bi konu açtım ilgilenirseniz memnun olurum.Çok ama çok teşekürler,sabır ve ilginiz için ......