< návrat zpět

MS Excel


Téma: Nefungující makro rss

Zaslal/a 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: png49054_snimek-obrazovky-2020-11-27-211241.png (5kB, staženo 21x)
49054_snimek-obrazovky-2020-11-27-211241.png
Jméno
Kontrola
Text
  b i u s img code url hr   1 2 3 4 5 6 7 8 9 10

#049055
Lugr
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 Sub
citovat
#049056
avatar
Už jsem objevil chybu - omezení počtu znaků a jedna dvojtečka navíc.citovat
#049134
elninoslov
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)
avatar\n

Menu

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.

On-line nástroje