Excel sayfasındaki formülleri belirli tarihte sil

[EXTRANET]

günaydın

üstatlar

aşağıdaki makro yu nasıl kullanabilirm yardımcı olurmusunuz

stok sayfasına nasıl yerleştirebilirm.
Excel sayfasındaki formülleri belirli tarihte sil



Private Sub Workbook_Open()
If Format(Date, "dd.mm.yyyy") = CDate("08.09.2007") Then
For Each sayfa In Worksheets
Sheets(sayfa.Name).Cells.Copy
Sheets(sayfa.Name).Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
Next sayfa
End If
End Sub

 

[uzmanamele]

Merhaba

Mevcut makro, çalışma kitabındaki tüm sayfalardaki formülleri değer olarak değiştirir.
Aşağıdaki makro, Stok sayfasındaki formülleri değer olarak değiştirir.

Sub auto_open()
Rem sayfadaki formülleri sil
If Format(Date, "dd.mm.yyyy") >= CDate("08.09.2007") Then
Sheets("stok").Cells.Copy
Sheets("stok").Cells.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End If
End Sub

 

[EXTRANET]

Mevcut makroyu nereye yapıştırmama gerekiyor.

Teşekürler

 

[Necdet]

Mevcut makroyu nereye yapıştırmama gerekiyor.

Teşekürler

Merhaba,

Bu mesajı yazarken 204 mesajınız vardı. Artık biraz excel dersanesini kurcalayın ve makro kodlarının nereye yazılacağını öğrenin. İleride çok lazım olacak.

 

[EXTRANET]

MODÜLEMİ SAYFAYAMI KARAR VEREMEDİM.

VE MODÜLE YAPIŞTIRACAM GALİBA


TEŞEKÜRLER.