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

Jméno
Kontrola
Text
  b i u s img code url hr   1 2 3 4 5 6 7 8 9 10

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

Prepínanie údajov po rokoch

Denis • 19.10. 20:42

setřídění vzestupně-sestupně

fortes • 19.10. 18:56

Excel Formulář

pisbo • 19.10. 12:03

Prepínanie údajov po rokoch

Denis • 18.10. 22:37

Excel Formulář

pisbo • 18.10. 17:57

Odeslání dat do souboru v síti a zápis do něj

xlnc • 18.10. 12:09

Excel Formulář

xlnc • 18.10. 11:56