Hücreyi otomatik temizleme...

[muratgunay48]

Arkadaşlar...
Vereceğiniz cevap için şimdiden teşekkür ederim...
Çok acil bilgisayar başında bekliyorum şu an...

Biz işyerinde hazırladığım çizelgeyi (tek sayfa) gün içersinde full dolduruyoruz...
Biz gece işe gittiğimizde (0:30 işbaşı) o girdiler dününmü yoksa başka arkadaşlar bugünmü yazdı hep karışıklık oluyor...Müdür de benden şey istedi...

Gün bitiminde (0:00) girdi yaptığımız hücreler otomatik silinsin...

Beceremedim ben...mümkünmü böyle bişey...


Sağolun...

 

[hamitcan]

Bence dosya ilk açıldığında, dosyanın son değişiklik tarihi ile cari günün tarihi karşılaştırılmalı.

 

[muratgunay48]

Hocam cevap için teşekkür ederim...
Fakat bizim bilgisayarlar asla kapanmaz o sayfada kapanmaz...
Benim istediğim...! Şu şekil anlatayım; hani tarih değişiyorya -otomatik- bir ertesi güne geçiyor otomatik. =bugün() yazınca...aynı onun gibi tarih değişince... Mesela 10, 11, 12, 13,14 satırlar temizlenecek (ordaki rakamlar) yani satır tümden değil...hani çerçeve falan kalacak...

 

[Merhum İdris SERDAR]

.

1. Boş bir dosya oluşturun ve bunu şablon olarak;

Excel Template (*.xltx) ---- Excel 2007 ---- Excel 2010
Excel Temlate (*.xlt) ----Excel97 --- Excel 2003)

Excel sürümünüz her neyse, kaydedin.

2. Şablon dosyayı kim açarsa kayıtlarını yapar. Sonra ister kaydeder isterse kaydetmeden çıkar.


Böylece şablon dosya size hep boş gelir.

.

 

[muratgunay48]

Hocam ben anlatamadım tam olarak...
Şimdi biz Ankara'dayız...bu dosya İstanbul'da...Biz şirket ağıyla bağlıyız...
Bizim burada arkadaşlar yapılan mizanpaj hatalarını yazıyor (basın sektörü) İstanbul merkez şube düzeltiyor o hataları...herkesin bilgisayarında excel klasörünün kısayolu var...Şimdi gün değişince, silme unutulmuşsa ertesi gün İstanbul açıyor klasörü bakıyor ve aynı mizanpajları tekrar yapıyor...

Benim istediğim...Gün değişince yani pazartesiden salıya geçince saat 00:00 da klasördeki hücre girdileri temizlensin otomatik olarak...
Yani yazan arkadaşın kaydetmeme gibi bir lüksü yok...Ama yazan arkadaş bozuk mizanpajı düzeltilmiş olarak tekrar geldiğinde girdiği yazıyı silmeyi unutuyor...bunun önüne geçemedik...

Lütfen yardım...

 

[hamitcan]

Aşağıdaki kodu dener misiniz ?

Sub AUTO_OPEN()
    If ActiveWorkbook.BuiltinDocumentProperties("LAST SAVE TIME") < Date Then
        [a2:c2].ClearContents
        ActiveWorkbook.Save
    End If
End Sub

 

[Merhum İdris SERDAR]

.

Aşağıdaki kodları kullanabilirsiniz.

Kurmak için:

Public dTime As Date

Sub Zsil()
    dTime = TimeValue("23:59:50") + TimeSerial(0, 0, 10)
    Application.OnTime dTime, "Zsil"
    
    Call sil
    
End Sub

Bu kurulduktan sonra her zamanı geldiğinde;

Sub sil()

    Cells.Select
    Selection.ClearContents
    Range("C2").Select

End Sub

Makrosunu çalıştırır.

Kurulmayı devre dışı bırakmak için:

Sub Ziptal()

    Application.OnTime dTime, "Zsil", , False

End Sub

makrosunu çalıştırmak gerekir.


Dosyaya işlenmiş hali ektedir.

Kodda yer alan TimeValue("23:59:50") değerini değiştirerek denemeler yapabilirsiniz.


.

 

[muratgunay48]

Yapamadım ben hocam ya...

 

[Merhum İdris SERDAR]

Yapamadım ben hocam ya...

,

1. Çalıştığınız dosyada ALT ve F11 tuşlarına birlikte basın.

2. Geldiğiniz yerde menüden Insert > Module ile bir modül açmış oluyorsunuz.

3. Verdiğim bu kodları kopyalayıp bu modülün içine yapıştırın.

4. Dosyayı kaydedin. Kapatın ve Tekrar açın.

5. Makroları aktif hale getirin.

6. Belirttiğim şekilde makroları çalıştırn.

.

 

[muratgunay48]

Hocam bu dediğiniz 2007'de olmuyor...

 

[Merhum İdris SERDAR]

Hocam bu dediğiniz 2007'de olmuyor...

.

Ben 2010'da yaptım ve çalışıyor. 2010'da oluyorsa, 2007'de olur.

.

 

[*Freeman*]

Sayın yurttas, öncelikle paylaşımız için teşekkür ederim, benim şöyle bir sorum olacak, eklemiş olduğunuz dosyada sil modülü kullandığımızda mevcut tüm hücrelerdeki verileri otomatik olarak siliyor, ancak belli hücre aralıkları ile sınırlamak istediğimizde kod nasıl olmalı, örnediğim A1 - A10 arasında konu başlıklarımızın olduğunu düşünelim. Bu başlıkların silinmemesi gerekiyor gibi. yada sadece c1 - d8 ve f1 - g8 arası hücrelerin içlerinin silinmesi gibi. Yardımlarınız için şimdiden teşekkürler iyi çalışmalar...

 

[fireman64]

Sayın yurttas, öncelikle paylaşımız için teşekkür ederim, benim şöyle bir sorum olacak, eklemiş olduğunuz dosyada sil modülü kullandığımızda mevcut tüm hücrelerdeki verileri otomatik olarak siliyor, ancak belli hücre aralıkları ile sınırlamak istediğimizde kod nasıl olmalı, örnediğim A1 - A10 arasında konu başlıklarımızın olduğunu düşünelim. Bu başlıkların silinmemesi gerekiyor gibi. yada sadece c1 - d8 ve f1 - g8 arası hücrelerin içlerinin silinmesi gibi. Yardımlarınız için şimdiden teşekkürler iyi çalışmalar...

Sub sil()

    range("c1:d8").select
    Selection.ClearContents
    range("f1:g8").select
    Selection.ClearContents

End Sub

 

[ahmet altan]

konuyla ilgili değil ama, gelir vergisi matrahı brüt ücretten mi hesaplanır yoksa ssk matrahından mı
örneğin 5000,00 tl net maaş alan birinin brüt ücreti 7.634,00 tl sgk matrahıda 6.360,00 tl

hangisinden alınmalı %14 lük ve %1 lik kesintiler _?

 

[fireman64]

konuyla ilgili değil ama, gelir vergisi matrahı brüt ücretten mi hesaplanır yoksa ssk matrahından mı
örneğin 5000,00 tl net maaş alan birinin brüt ücreti 7.634,00 tl sgk matrahıda 6.360,00 tl

hangisinden alınmalı %14 lük ve %1 lik kesintiler _?

http://www.forumdas.net/muhasebe-dersleri/aylik-vergi-matrahi-nasil-hesaplanir-175478/

 

[*Freeman*]

Sayın fireman64, bilgilendirmeniz ve yardımınız için çok teşekkürler, vermiş olduğunuz kod tam istediğim gibi oldu, iyi çalışmalar...

 

[cataron]

Kolay gelsin üstadlar,
Benim belirli hücreleri silmek ile ilgili bir sorum olacak ekli excel çalışma sayfamda A3:A21 ile A22:A31 arasında kalan hücreleri çalışma sayfasının en yukarısında olan temizle hücresiyle silmem mümkünmüdür.

Yardımlarınızı bekliyorum.

 

[cataron]

Yardımlarınızı bekliyorum.

 

[Civan Jack]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address(0, 0) <> "F1" Then Exit Sub
    Range("A3:A21", "A23:A31").ClearContents
End Sub

 

[cataron]

Teşekkürler yanlış yere kopyalamışım çalışıyor, yalnız arada a22 hücresini de siliyor ama olsun bu bile kafii çok teşekkür ederim