Gecikmeli Makro

[recepkull]

Arkadaşlar makroya tıkladığımda sayfanın sol üstüne belirlediğim bir şekli eklesin istiyorum bunu yapabiliyorum yardımınızı istediğim konu o şeklin 5 saniye sonra geri kaybolmasını istiyorum. Teşekkür ederim.

 

[derisa963]

@recepkull Bu kodlar Tamamen Bir Hayel Ürünüdür. Test Edilmedi. Bilgisayarını 5 sn zorlayabilir

'kodun sonuna
dim zmn As Double, timer As Double, Zaman As Double
Zaman = timer
zmn = 0
eipk:
zmn = CDbl(Format(Timer - Zaman, "0.00"))
if zmn > 5 then
''
'Silecek kodlar buraya yazılır
''
exit sub
end if
goto eipk

 

[recepkull]

excel yanıt vermiyor diyor 3 dk oldu hala bekliyorum

 

[ÖmerBey]

Merhaba alternatif olarak aşağıdaki iki kod mantığından birini kullanabilirsiniz.

Sub ekle()
'ekleme kod
Application.OnTime Now + TimeValue("00:00:05"), "sil"
End Sub

Sub sil()
'silme kodları
End Sub

Sub kod()
'ekleme kodu
Application.Wait (Now + TimeValue("00:00:05"))
'silme kodu
End Sub

İyi çalışmalar...

 

[derisa963]

@recepkull Biliyordum k.bakma artık

 

[recepkull]

@recepkull Biliyordum k.bakma artık

Excel hala yanıt vermiyor dosyayı kaydetmemiştim bütün çalışmam boşa gidecek

 

[derisa963]

@recepkull Bu kodlar Tamamen Bir Hayel Ürünüdür. Test Edilmedi. Bilgisayarını 5 sn zorlayabilir

'kodun sonuna
dim zmn As Double, timer As Double, Zaman As Double
Zaman = timer
zmn = 0
eipk:
zmn = CDbl(Format(Timer - Zaman, "0.00"))
if zmn > 5 then
''
'Silecek kodlar buraya yazılır
''
exit sub
end if
goto eipk

@recepkull Burada Uyarmıştım ama

 

[ÖmerBey]

Excel hala yanıt vermiyor dosyayı kaydetmemiştim bütün çalışmam boşa gidecek

Ctrl+Break yaparak kodu durdurmayı deneyiniz (bazen hemen yanıt vermiyor birkaç kez deneyiniz). Olmazsa otomatik kurtarma, dosyanızın bir kısmını kurtaracaktır.

 

[recepkull]

Ctrl+Break yaparak kodu durdurmayı deneyiniz (bazen hemen yanıt vermiyor birkaç kez deneyiniz). Olmazsa otomatik kurtarma, dosyanızın bir kısmını kurtaracaktır.

vallahi işe yaradı be çok sağol ustam

 

[recepkull]

Merhaba alternatif olarak aşağıdaki iki kod mantığından birini kullanabilirsiniz.

Sub ekle()
'ekleme kod
Application.OnTime Now + TimeValue("00:00:05"), "sil"
End Sub

Sub sil()
'silme kodları
End Sub

Sub kod()
'ekleme kodu
Application.Wait (Now + TimeValue("00:00:05"))
'silme kodu
End Sub

İyi çalışmalar...

Hocam yapamadım benim kodum aşağıda. Düzenleyip verebilir misin bana.

 ActiveSheet.Shapes.Range(Array("Rectangle 7")).Select
    Selection.Copy
    Range("P7").Select
    ActiveSheet.Paste

Makroya tıklandığında şekli P7 ye yapıştırsın 5 saniye sonra geri silsin istiyorum.

 

[Ömer BARAN]

Merhaba.

Üşenmeyip, zaman/emek harcayarak cevap veren üyeye/üyelere daha fazla zahmet vermemek adına;
gerçek belgenizin, özel bilgi içermeyen küçük boyutlu bir kopyası (kullandığınız makro da belgede ve çalışır durumda olsun)
şeklinde hazırlaycağınız bir örnek belge yüklemenizde yarar var.
Böylece gereksiz mesajlaşmalar da olmadan ve verilen cevabı gerçek belgenize uyarlarken sorun da yaşamadan,
daha hızlı sonuca ulaşırsınız diye düşünüyorum.
.

 

[ÖmerBey]

Bir önceki mesaja tamamen katılıyorum.
Güncel kodunuz...

Sub ekle()
ActiveSheet.Shapes.Range(Array("Rectangle 7")).Select
Selection.Copy
Range("P7").Select
ActiveSheet.Paste
Selection.Name = "silinecek"
Application.OnTime Now + TimeValue("00:00:05"), "sil"
End Sub

Sub sil()
ActiveSheet.Shapes("silinecek").Delete
End Sub

 

[recepkull]

Teşekkür ederim