MS Excel

Téma: Nefungující makro

Zaslal/a Jan123 27.11.2020 21:14

Dobrý večer, nenapadne někoho proč toto makro nefunguje? Určitě není problém v tom, že bych chtěl smazat obsah uzamčené buňky.

Sub SmazVse()
'

If MsgBox("Opravdu chcete smazat všechno?", vbYesNo, "Potvrzení") <> vbYes Then Exit Sub
Sheets("Zaměstnanci").Select
Range("A5:C204,E5:E204,G5:I204,K5:L204,P5:T:204,V5:CJ204,CL5:CL204,CO5:DA204,DH5:DH204,DJ5:DL204,DP5:DQ204,DT5:DV204,DZ5:DZ204,EB5:EB204,ED5:EF204,EH5:EI204,EK5:EK204,GY5:HA204,HL5:HM204,HQ5:ID204,IF5:IQ204,IS5:IS204,IY5:IY204,JA5:JA204,JC5:JE204,JH5:JJ204,JL5:JL204,JW5:JW204,JY1:JY204").ClearContents
End Sub

Příloha: png

49054_snimek-obrazovky-2020-11-27-211241.png (5kB, staženo 21x)

Zaslat odpověď >

Lugr(27.11.2020 21:49)#049055

Máš tam jednu chybu s dvojtečkou a navíc to máš moc dlouhý.

Tady to máš funkční.

Sub SmazVse()

If MsgBox("Opravdu chcete smazat všechno?", vbYesNo, "Potvrzení") <> vbYes Then Exit Sub
Sheets("Zaměstnanci").Select
Range("A5:C204,E5:E204,G5:I204,K5:L204,P5:T204,V5:CJ204,CL5:CL204,CO5:DA204,DH5:DH204,DJ5:DL204,DP5:DQ204,DT5:DV204,DZ5:DZ204,EB5:EB204,ED5:EF204,EH5:EI204").ClearContents
Range("EK5:EK204,GY5:HA204,HL5:HM204,HQ5:ID204,IF5:IQ204,IS5:IS204,IY5:IY204,JA5:JA204,JC5:JE204,JH5:JJ204,JL5:JL204,JW5:JW204,JY1:JY204").ClearContents

End Subcitovat

Jan123(27.11.2020 21:50)#049056

Už jsem objevil chybu - omezení počtu znaků a jedna dvojtečka navíc.citovat

elninoslov(4.12.2020 16:12)#049134

Na spojenie dvoch Range by som použil Union, a tým pádom by všetko aj s ClearContents prebehlo v jednom kroku.citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.