Jen takový rychlo pokus ...
For Each c In ActiveSheet.UsedRange
If c.Locked = False Then c.ClearContents
Next
M@
For Each c In ActiveSheet.UsedRange
If c.Locked = False Then c.ClearContents
Next
M@
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Tipy a triky pro Excel a makra 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.
Po spuštění mi to hlásí, že se sloučenou buňkou tohle udělat nejde.
Já tam mám nějaké sloučené buňky, ve kterých mám doplňovaná data, která bych chtěl taky vymazat.
Já tam mám nějaké sloučené buňky, ve kterých mám doplňovaná data, která bych chtěl taky vymazat.
myslím, že u sloučených buněk nefunguje příkaz ClearContents
pak bych zkusil ...
If c.Locked = False Then c=""
M@
pak bych zkusil ...
If c.Locked = False Then c=""
M@
nic to neudělá. Mám to takto:
Sub Vymaz_nezamcene_bunky()
For Each c In ActiveSheet.UsedRange
If c.Locked = False Then c = ""
Next
End Sub
Sub Vymaz_nezamcene_bunky()
For Each c In ActiveSheet.UsedRange
If c.Locked = False Then c = ""
Next
End Sub
No problema...
Sub Vymaz_nezamcene_bunky()
Dim c As Range, v As Range
For Each c In ActiveSheet.UsedRange.Cells
If c.Locked = False Then
If v Is Nothing Then Set v = c.MergeArea Else Set v = Union(v, c.MergeArea)
End If
Next c
If Not v Is Nothing Then v.ClearContents
Set c = Nothing: Set v = Nothing
End Sub
EDIT: Ešte som upravil
v.ClearContents
na
If Not v Is Nothing Then v.ClearContents
aby nedalo chybu, keď žiadne také bunky nebudú.
Sub Vymaz_nezamcene_bunky()
Dim c As Range, v As Range
For Each c In ActiveSheet.UsedRange.Cells
If c.Locked = False Then
If v Is Nothing Then Set v = c.MergeArea Else Set v = Union(v, c.MergeArea)
End If
Next c
If Not v Is Nothing Then v.ClearContents
Set c = Nothing: Set v = Nothing
End Sub
EDIT: Ešte som upravil
v.ClearContents
na
If Not v Is Nothing Then v.ClearContents
aby nedalo chybu, keď žiadne také bunky nebudú.
Jinak bez nějakých maker viz také dialog Najít a nahradit a hledat podle formátu, pod kterým je i zámek buněk (Najít vše, CTRL+A, Del...)
Pánové, děkuji všem.
Nejdřív jsem použil ten poslední nápad od Jeza.m a ten funguje.
Ještě jednou díky.
Nejdřív jsem použil ten poslední nápad od Jeza.m a ten funguje.
Ještě jednou díky.
@xlnc
To je moc uvědomělé
Oni raději makro ;)
Jen bych doplnil - v případě sloučených buněk je třeba 2x Del - poprvé to vyhodí hlášku (není totiž vybrána celá sloučená oblast) - po oklepnutí hlášky už to lze.
To je moc uvědomělé
Oni raději makro ;)
Jen bych doplnil - v případě sloučených buněk je třeba 2x Del - poprvé to vyhodí hlášku (není totiž vybrána celá sloučená oblast) - po oklepnutí hlášky už to lze.
Já potřeboval makro, protože je pro mě jednodušší jim říct, že mají kliknout na tlačítko, než jim vysvětlovat nějaké postupy..
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