Sayfaları otomatik silme

[Mdemir63]

Selamlar,

Dosya açılırken Sayfalardaki belirtilen aralıklar otomatik silinebilir mi? Ya da sayfaslardaki aralıklar silinecek onaylıyormusunuz gibi bir bildirimle silinebilir mi?

Saygılar

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?

Sub auto_open()
If MsgBox("tüm sayfalardaki C2:G16 aralıkları  silinecek!" & vbCrLf & "onaylıyor musunuz?", vbYesNo) = vbNo Then GoTo son
For i = 2 To Sheets.Count
Sheets(i).Range("c2:g16").ClearContents
Next
son:
End Sub

 

[Mehmet Şahin]

İyi akşamlar,
"ANASAYFA" dışındaki diğer sayfaların belirtilen aralıklarını siler, saygılar.

 

[Orion1]

Dosyanız ektedir.

Sub auto_open()
Dim i  As Integer
If MsgBox("Sayfalardaki C2:G16 aralıkları silinecek.Onaylıyormusunuz", _
vbYesNo, "SAYFA SİL") = vbNo Then Exit Sub
For i = 2 To Worksheets.Count
    Sheets(i).Range("C2:G16").Clear
Next
MsgBox "Sayfalardaki C2:G16 arasındaki aralıklar silindi" & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"

End Sub

 

[Mdemir63]

Hocam hepinize çok teşekkür ederim. Birşey daha öğrenmek istiyorum. Bu silme olayı kodlarda belli bir saat ayarlasak ve o saatte otomatik olarak silse olabilir mi?

Saygılar

 

[Mdemir63]

Selamlar,
Hocam acaba ANASAYFA dışındaki sayfaların hepsini değil de sadece sayfa1 ve sayfa 2 deki aynı aralıktaki bilgileri sildirmek istersek nasıl yapabiliriz?

Birde benim dosyam direk UserForm la açılıyor . Bunun için de kodlar otomatik çalışmıyor.

Saygılar

 

[Mdemir63]

Selam,
Sayın: Uzmanamele, Evren Gizlen ve Dentex hocam kodlarda nereyi değiştirmem gerekir?

Saygılar

 

[Mehmet Şahin]

İyi akşamlar,
dosyanız formla açılıyorsa auto_open presedürüne yazılmıştır. Evren beyin kodlarını form açılış komutunun üstüne ekleyebilirsiniz. bu durumda silme işlemini soracak ve sonrasında form açılacaktır, saygılar.

Sub auto_open()
Dim i  As Integer
If MsgBox("Sayfalardaki C2:G16 aralıkları silinecek.Onaylıyormusunuz", _
vbYesNo, "SAYFA SİL") = vbNo Then goto son
For i = 2 To Worksheets.Count
    Sheets(i).Range("C2:G16").Clear
Next
MsgBox "Sayfalardaki C2:G16 arasındaki aralıklar silindi" & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
son:
UserForm1.Show
End Sub

 

[Mdemir63]

İyi akşamlar,
dosyanız formla açılıyorsa auto_open presedürüne yazılmıştır. Evren beyin kodlarını form açılış komutunun üstüne ekleyebilirsiniz. bu durumda silme işlemini soracak ve sonrasında form açılacaktır, saygılar.

Sub auto_open()
Dim i  As Integer
If MsgBox("Sayfalardaki C2:G16 aralıkları silinecek.Onaylıyormusunuz", _
vbYesNo, "SAYFA SİL") = vbNo Then Exit Sub
For i = 2 To Worksheets.Count
    Sheets(i).Range("C2:G16").Clear
Next
MsgBox "Sayfalardaki C2:G16 arasındaki aralıklar silindi" & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
UserForm1.Show
End Sub

Selamlar,
Hocam, Anasayfa dışındaki tüm sayfaları değil de, Sayfa1 ve Sayfa2 deki belirtilen aralığı silmesi için ne yapmam gerekiyor.

Saygılar

 

[Mdemir63]

Selamlar,
Hocam dosya üzerinde bakabilirmisiniz?

Saygılar

 

[Mehmet Şahin]

Merhaba,
userform'la açılıp çalışma kitabını saklayan uygulamalar bir çok sıkıntı oluşturabilir. Bu yüzden açılışta formla açılan ve istediğiniz işlemi yapan ama excel'i gizlemeyen bir hale getirdim. Uygunsa bu şekilde kullanabilirsiniz, saygılar.

 

[Mdemir63]

Merhaba,
userform'la açılıp çalışma kitabını saklayan uygulamalar bir çok sıkıntı oluşturabilir. Bu yüzden açılışta formla açılan ve istediğiniz işlemi yapan ama excel'i gizlemeyen bir hale getirdim. Uygunsa bu şekilde kullanabilirsiniz, saygılar.

Selamlar,

Hocam tamam bu görür işimi sağolun. Ancak sadece Sayfa1 ve Sayfa2 deki bilgileri silecek bunun için kodlarda ne gibi değişiklik yapmalıyız?

Saygılar

 

[Mehmet Şahin]

Merhaba,
ben kodu değiştirdim sanıyordum ama atlamışım demekki. Şimdi dosyayı güncelledim, kolay gelsin.

 

[uzmanamele]

merhaba

bu mudur?

For i = 2 To Sheets.Count
Sheets(i).Range("c2:g16").ClearContents

 

[Mdemir63]

merhaba

bu mudur?

For i = 2 To Sheets.Count
Sheets(i).Range("c2:g16").ClearContents

Selamlar,

Hocam anlayamadım. Bu mu derken

Saygılar

 

[Mdemir63]

Merhaba,
ben kodu değiştirdim sanıyordum ama atlamışım demekki. Şimdi dosyayı güncelledim, kolay gelsin.

Selamlar
Hocam teşekkür ederim.

Saygılar