Makro çalıştırma

[igultekin2000]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("I2:I65536")) Is Nothing Then
son = Sheets("AKTAR").Range("A" & Rows.Count).End(3).Row + 1
Range(Cells(Target.Row, "H"), Cells(Target.Row, "I")).Copy
Sheets("AKTAR").Range("A" & son).PasteSpecial xlPasteValues
End If


If Intersect(Target, Range("L2:L65536")) Is Nothing Then Exit Sub
son = Sheets("AKTAR").Range("D" & Rows.Count).End(3).Row + 1
Range(Cells(Target.Row, "J"), Cells(Target.Row, "L")).Copy
Sheets("AKTAR").Range("D" & son).PasteSpecial xlPasteValues
End Sub

işlemim de kullandığım makro bu şekildedir. zaman zaman çalışma kitabını kapatıp tekrar açarak makroyu çalıştırabiliyor um. Dosyayı kapatıp açmadan makroyu çalıştırmanın bir yolu var mıdır? Teşekkür ederim.

 

[Muzaffer Ali]

Bu kod, bir hücreye çift tıklama eylemi olduğunda otomatik çalışır. "Worksheet_BeforeDoubleClick" Prosedür tanımı bu anlama geliyor.
Dosyayı kapatıp açmanıza gerek yok.
İsterseniz bir deneme yapın.

Siz kodun ne zaman çalışmasını istiyorsunuz?

 

[igultekin2000]

Bu kod, bir hücreye çift tıklama eylemi olduğunda otomatik çalışır. "Worksheet_BeforeDoubleClick" Prosedür tanımı bu anlama geliyor.
Dosyayı kapatıp açmanıza gerek yok.
İsterseniz bir deneme yapın.

Siz kodun ne zaman çalışmasını istiyorsunuz?

çift tıklamayla çalışıyor sorun yok. bazen çift tıklamayla çalışmıyor, kaydet deyip dosyayı kapatıp tekrar açtığımda sorunsuz çalışıyor. Kapatıp açmaya gerek kalmadan böyle durumda kodu aktif etmek gibi bir imkan olabiliyor mu?

 

[hımmmmmmmm]

çift tıklamayla çalışıyor sorun yok. bazen çift tıklamayla çalışmıyor, kaydet deyip dosyayı kapatıp tekrar açtığımda sorunsuz çalışıyor. Kapatıp açmaya gerek kalmadan böyle durumda kodu aktif etmek gibi bir imkan olabiliyor mu?

BeforeRightClick haricinde başkada bir double click olayı yok...
şunu deneyebilirsin...

Private Sub Worksheet_Change(ByVal Target As Range)

end sub


hücreye bir şey girilir veya yenilenmesi durumunda hücreden çıkılınca macro çalışır...
bunun haricindeki hareketlerede macro çalışmaz... belki işine yarar...

 

[igultekin2000]

BeforeRightClick haricinde başkada bir double click olayı yok...
şunu deneyebilirsin...

Private Sub Worksheet_Change(ByVal Target As Range)

end sub


hücreye bir şey girilir veya yenilenmesi durumunda hücreden çıkılınca macro çalışır...
bunun haricindeki hareketlerede macro çalışmaz... belki işine yarar...

Teşekkür ederim,