Yazdırma ve Temizleme

[hatirlabeni]

Arkadaslar merhaba ekte gondermiş oldugum dosyayı düzenlemem için yardımcı olurmusunuz. ?

Eklemiş oldugum dosyada VERİ sayfasında olan butonlara kod ekleyemedim şimdi benim eklemiş oldugum butonlara her tıklandıgında otomatik olarak yazdıracak ve sonda olan buton ise tıklandıgında diğer çalışma sayfalarında yazılmış hücreleri temizleyecek dosyayı incelerseniz daha anlaışılr olur inş.
bu yapılabilir mi ?

 

[ulutanas]

dosyayı eklerseniz bakabiliriz.

 

[hatirlabeni]

Dosyayı ekledim Hocam

 

[Seyit Tiken]

Bu şekilde "Yazdır" kod satırının altına yazıp deneyiniz.

Sheets("arazibilgi").[b1:c34] = ""

 

[hatirlabeni]

Hocam hersey oldu tamamdir fakatistemiş oldugum bir sayfadan aynısını 2 tane veremiyorum onu nasıl yaparım kullanmış oldugum kod budur.

Private Sub CommandButton1_Click()
Sheets("Zir. Odası").PrintOut
End Sub

birde bir buton eklemek istiyorum ve butona tıkladigimda bütün hücrelerdeki verileri temizlesin (hücrelerdeki formüller hariç)

 

[Orion1]

Sheets("Zir. Odası").PrintOut copies:=2

 

[hatirlabeni]

Hocam elinize sağlık copi sayısınıda ayarlayabildim sayenizde birde son olarak su lazım
bir buton eklemek istiyorum ve butona tıkladigimda bütün hücrelerdeki verileri temizlesin (hücrelerdeki formüller hariç)

bunu yapmak mümkün mü ?

 

[Orion1]

Hocam elinize sağlık copi sayısınıda ayarlayabildim sayenizde birde son olarak su lazım
bir buton eklemek istiyorum ve butona tıkladigimda bütün hücrelerdeki verileri temizlesin (hücrelerdeki formüller hariç)

bunu yapmak mümkün mü ?

Sadece değerleri temizler.

On Error Resume Next
Range("B1:C34").SpecialCells(xlCellTypeConstants).Clear
On Error GoTo 0