• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

otomatik sildirme

  • Konbuyu başlatan Konbuyu başlatan seiko
  • Başlangıç tarihi Başlangıç tarihi
Katılım
19 Mart 2006
Mesajlar
11
Merhaba,
Hücrede bulunan değerleri saat 18:00 itibari ile otomatik olarak nasıl sildirebiliriz.
 
Bunun için aşağıdaki kodu deneyin. dosyayı kapatırken saat 18:00 den büyükse verileri silecektir. (Sadece A1 hücresini siler)

Kod:
Sub auto_close()
If Time >= "18:00" Then [a1].ClearContents
End Sub
 
merhaba

Merhaba,

Tamam verdiğiniz makro çalışmaktadır.Fakat birde aynı yine saat 18:00'ten sonra c2 hücresindeki değeri d5 hücresine nasıl yazıdırırız. teşekkürler
 
Merhaba

Sn.Leventm'nin kodlarının altına

If Time >= "18:00" Then [d5]=[c2]

ilave edin
 
Merhaba,

Tamam verdiğiniz makro çalışmaktadır.Fakat birde aynı yine saat 18:00'ten sonra c2 hücresindeki değeri d5 hücresine nasıl yazıdırırız. teşekkürler


Sorunuzu ters sormuşsunuz.

If Time >= "18:00" Then [c2]=[d5]
 
merhaba

Exceli actığımda makro otomatik çalışmıyor.neden acaba teşekkürler
 
Merhaba

Verilen cevapları tam okumuyorsunuz herhalde

Makro excel dosyası kapanırken çalışıyor.

Auto_Close kapanırken
Auto_Open excel dosyası açılırken çalışır.
 
merhaba

Merhaba
Tamam dediğiniz gibi sayfa acılınca makroyu çalıştırmıyor veya kapatınca da makroyu çalıştırmıyor
makroyu göderiyorum.size

Sub auto_open()
If Time >= "08:00" Then [D5] = [N5]
If Time >= "08:00" Then [D6] = [N6]
If Time >= "08:00" Then [D7] = [N7]
If Time >= "08:00" Then [D8] = [N8]
If Time >= "08:00" Then [D9] = [N9]
If Time >= "08:01" Then [e5,e6,e7,e9,f5,f6,f7,f8,f9,g5,g6,g7,g8,g9,ı5,ı6,ı7,ı8,ı9,j5,j6,j7,j8,j9].ClearContents
If Time >= "08:01" Then [k5,k6,k7,k8,k9,l5,l6,l7,l8,l9].ClearContents
End Sub
 
Çalışması gerekir. Kodu yanlış modüle kopyalamış olabilirsiniz. Bir normal modüle kopyalamanız gerekiyor.
 
Merhaba

dediğiniz gibi yanlış yapmışım çalıştı.Bir şey daha soracam başka sheetteki hücrelerin içinide aynı anda sildirebilirmiyim o nasıl yapabilirim.
 
Geri
Üst