sıfırlamak

[ahmet uguz]

arkadaşlar hepinize iyi akşamlar
az evvel kdvleri yeni bitirdim.sizlerden isteğim aşagıdaki excel tablomdaki bazı bölümlerin bir buton yardımı ile veya fonksiyon ile sıfırlamak istiyorum ki sıfırladığımda yeni rakamlar gireyim.

hepinize iyi akşamlar dilegimle...

 

[Ali]

Sub Makro1()
    Range("B4:D47").Select
    Selection.SpecialCells(xlCellTypeConstants, 21).Select
    Selection.FormulaR1C1 = "0"
End Sub

denermisiniz.

 

[Seyit Tiken]

Dosyayı inceleyiniz.

Sub Düğme1_Tıklat()
On Error Resume Next
Range("B4:D37").SpecialCells(xlCellTypeConstants, 21).ClearContents
[b5].Select
End Sub

 

[hsayar]

buyrun......

 

[ahmet uguz]

teşekkür ederim

hepinize teşekkür ederim,ellerinize sağlık.bilği ve tecrübelerin paylaşılması kadar daha güzel bir şey yoktur.

 

[skyrnnr87]

nereye yazıcaz bu dediğin kodu ?