< návrat zpět

MS Excel


Téma: Vymaž data z neuzamčených buněk rss

Zaslal/a 5.4.2018 9:10

AlfanDobrý 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.

Zaslat odpověď >

Strana:  1 2   další »
#040053
Jeza.m
Jen takový rychlo pokus ...
For Each c In ActiveSheet.UsedRange
If c.Locked = False Then c.ClearContents
Next


M@citovat
#040060
Alfan
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
#040061
Jeza.m
myslím, že u sloučených buněk nefunguje příkaz ClearContents
pak bych zkusil ...
If c.Locked = False Then c=""

M@citovat
#040062
Alfan
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
citovat
#040063
elninoslov
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
#040066
xlnc
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
#040067
Jeza.m
nebo místo c = ""
zkus
c.Value = ""citovat
#040072
Alfan
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
icon #040074
eLCHa
@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
#040076
Alfan
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

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

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

Aktivní diskuse

Zaokruhlenie na 15min

Jirka100 • 22.7. 11:24

VBA - zapsaní jména před uložením

Stalker • 21.7. 23:57

Makro - vytváření historie

Merlin99 • 21.7. 16:33

Makro - vytváření historie

Stalker • 21.7. 16:20

Makro - vytváření historie

Merlin99 • 21.7. 15:48

Makro - vytváření historie

Stalker • 21.7. 13:50

Makro - vytváření historie

Merlin99 • 21.7. 12:47