No, mezi námi děvčaty, možná kdybyste uložil čistý sešit jako šablonu, tak jste makro taky nepotřeboval...citovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Vymaž data z neuzamčených buněk
MS Excel
Téma: Vymaž data z neuzamčených buněk 
Zaslal/a Alfan 5.4.2018 9:10
Dobrý den, lze nějakým jednoduchým makrem vymazat data z neuzamčených buněk?
Na listu se do odemknutých buněk zadávají data. Těch buněk je ale hodně a proto by se hodilo právě vymazat data z těch neuzamčených buněk.
Děkuji.
Strana: « předchozí 1
2
(6.4.2018 18:03)#040078
Mohl byste mi někdo, prosím, upravit to makro tak, aby to vymazalo na všech listech v otevřeném sešitu.
Sub Vymaz_nezamcene_bunky()
For Each c In ActiveSheet.UsedRange
If c.Locked = False Then c.Value = ""
Next
End Sub
Děkuji.citovat
Sub Vymaz_nezamcene_bunky()
For Each c In ActiveSheet.UsedRange
If c.Locked = False Then c.Value = ""
Next
End Sub
Děkuji.citovat
Sub Vymaz_nezamcene_bunky_v_listech()
Dim c As Range
Dim List As Worksheet
For Each List In ThisWorkbook.Worksheets
For Each c In List.UsedRange
If c.Locked = False Then c.Value = ""
Next c
Next List
End Subcitovat
Dim c As Range
Dim List As Worksheet
For Each List In ThisWorkbook.Worksheets
For Each c In List.UsedRange
If c.Locked = False Then c.Value = ""
Next c
Next List
End Subcitovat
Strana: « předchozí 1
2
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
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.
RSS nejnovější články