Jen takový rychlo pokus ...
For Each c In ActiveSheet.UsedRange
If c.Locked = False Then c.ClearContents
Next
M@citovat
For Each c In ActiveSheet.UsedRange
If c.Locked = False Then c.ClearContents
Next
M@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.
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.citovat
Já tam mám nějaké sloučené buňky, ve kterých mám doplňovaná data, která bych chtěl taky vymazat.citovat
myslím, že u sloučených buněk nefunguje příkaz ClearContents
pak bych zkusil ...
If c.Locked = False Then c=""
M@citovat
pak bych zkusil ...
If c.Locked = False Then c=""
M@citovat
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 Subcitovat
Sub Vymaz_nezamcene_bunky()
For Each c In ActiveSheet.UsedRange
If c.Locked = False Then c = ""
Next
End Subcitovat
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ú.citovat
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ú.citovat
(6.4.2018 10:54)#040066
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...)citovat
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.citovat
Nejdřív jsem použil ten poslední nápad od Jeza.m a ten funguje.
Ještě jednou díky.citovat
@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.citovat
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.citovat
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..citovat
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