Excel - mazanie cez command button

Ja som si vo VBA napisal funkciuFunction CleanRng(strLst$, strObl$) On Error Resume Next With Sheets(strLst$) .Range(strObl$).SpecialCells(xlCellTypeConstants, 23).ClearContents .Select End WithEnd Function

jednotlive bunky v bloku mazat postupne a testovat, zda je vzorec (bud volat tuto subrutinu nebo telo vlozit do sub prirazene tlacitku):Sub mazat()Dim MyBlok As Range, MyCell As RangeSet MyBlok = Range("C17:E41,H17:H41,J17:J41,J45,I10,H11,H12,K12")For Each MyCell In MyBlok.CellsIf Not MyCell.HasFormula Then MyCell.ClearContentsNext MyCellEnd Sub

Samozrejme ten prikaz .Select je pre vas zbytocny - ja som to potreboval v kontexte v programe, aby som usetril riadky v kode pri viacnasobnom volani

pisem treti a posledny krat - staci jeden prikazSheets(strLst$).Range(strObl$).SpecialCells(xlCellT ypeConstants, 23).ClearContents

dakujem vam za odpoved... ale priznam sa nie som z toho velmi mudry. mozte to trosku popisat, co je co? ja viem, pre vas je to zrejme trivialne, ale ja som este nedorastol.dakujem

jak na udalosti viz http://www.officir.ic.cz/chipex05/09/excel_vba_uda... procedura pro mazani bude (dle autora drivejsi odpovedi - test):Private Sub CommandButton1_Click()strLst$ = "list1" ' list s datystrObl$ = "C17:E41,H17:H41,J17:J41,J45,I10,H11,H12,K12" ' mazana oblastOn Error Resume Next ' pro pripad, ze bunky jsou jiz vymazaneSheets(strLst$).Range(strObl$).SpecialCells(xlCellT ypeConstants, 23).ClearContentsEnd Sub

editor poradny vklada mezeru do: ..(xlCellTypeConstants,...; nutno odstranit v editoru VBA