brisanje celic

[tjasa]

heelo

moje vprašanje se bo marsikomu zdelo sila lahko,pa vendar sama tega
ne znam rešiti.kako bi brisala celice z makrom:

1.primer:

briši celice za 10 mest navzdol od aktivne celice

2.primer:

briši celice za 10 mest desno od aktivne celice.

vašega odgovora se veselim.

lp

[cedra]

Makro za čiščenje vsebine celic kot jih želite:

Koda: Izberi vse

Sub Brisi_dol()
     Range(Selection, Selection.Offset(10, 0)).Select
    Selection.ClearContents
End Sub

Koda: Izberi vse

Sub Brisi_desno()
     Range(Selection, Selection.Offset(0, 10)).Select
    Selection.ClearContents
End Sub

Koda: Izberi vse

Sub Brisi_gor()
     Range(Selection, Selection.Offset(-10, 0)).Select
    Selection.ClearContents
End Sub

Koda: Izberi vse

Sub Brisi_levo()
     Range(Selection, Selection.Offset(0, -10)).Select
    Selection.ClearContents
End Sub

Upam, da je to to

[AndrejL]

Sub BrisiDol()

Range(ActiveCell, ActiveCell.Offset(9, 0)).ClearContents
End Sub

...in...

Sub BrisiDesno()

Range(ActiveCell, ActiveCell.Offset(0, 9)).ClearContents

End Sub

[tjasa]

pozdravljeni

o koliko rešitev,poskusila bom prav vse.
obema se zahvaljujem.
čao