otomatik sildirme

Katılım
19 Mart 2006
Mesajlar
11
Merhaba,
Hücrede bulunan değerleri saat 18:00 itibari ile otomatik olarak nasıl sildirebiliriz.
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,058
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
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
 
Katılım
19 Mart 2006
Mesajlar
11
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
 

zafer

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
Merhaba

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

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

ilave edin
 
Katılım
19 Mart 2006
Mesajlar
11
selam

d5 hücresindekini c2 hücresine yazmıyor yardımcı olabilirmisin
 

zafer

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
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]
 
Katılım
19 Mart 2006
Mesajlar
11
merhaba

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

zafer

Super Moderator
Yönetici
Katılım
8 Mart 2005
Mesajlar
3,288
Excel Vers. ve Dili
OFFICE 2003 TÜRKÇE
OFFICE 2010 TÜRKÇE
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.
 
Katılım
19 Mart 2006
Mesajlar
11
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
 

Levent Menteşoğlu

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,058
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Çalışması gerekir. Kodu yanlış modüle kopyalamış olabilirsiniz. Bir normal modüle kopyalamanız gerekiyor.
 
Katılım
19 Mart 2006
Mesajlar
11
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.
 
Üst