Stránka 1 z 1
xls. MAKRO......#Nedostupný nahradit ""
Napsal: 17 kvě 2012 15:09
od marek26
ahoj
podla zaznamu makra mi dalo tento syntax:
Range("B6:Q31").Select
Selection.Replace What:="#NEDOSTUPNÝ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
akoze by to malo nahradit #NEDOSTUPNÝ na "" (prazdna bunka) neviem preco ale po ulozeni zaznamu makra ked to spustim nejko to nic neurobi
da sa nejak rucne upravit este nejak jinak ten kod? range je stanovena pevne "Range("B6:Q31")"
dakujem velmi pekne
Re: xls. MAKRO......#Nedostupný nahradit ""
Napsal: 17 kvě 2012 16:12
od d1amond
Makro bez problémů funguje. Přilož sem celý sešit, i s tím makrem.
Re: xls. MAKRO......#Nedostupný nahradit ""
Napsal: 17 kvě 2012 18:27
od cmuch
Jak píše
d1amond, makro funguje bez problémů, i mě.
Šlo by poupravit ještě takto.
Kód: Vybrat vše
Range("B6:Q31").Replace What:="#NEDOSTUPNÝ", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=FalsePokud nefunguje, upni sešit.
Re: xls. MAKRO......#Nedostupný nahradit ""
Napsal: 17 kvě 2012 19:15
od marek26
tu su prilohy
spusta sa to tlacitkom
a cestu si opravte lebo tam cesta je moja
mne to nejde
dakujem
cmuch dakujem ale nepomohlo to
Re: xls. MAKRO......#Nedostupný nahradit ""
Napsal: 17 kvě 2012 20:17
od d1amond
To je snadný, makro jsi zaznamenával v jednom sešitu a pouštíš ho z jiného. Nevím, kam koukat.
Předělám to parametricky.
Re: xls. MAKRO......#Nedostupný nahradit ""
Napsal: 23 kvě 2012 18:07
od cmuch
Je zajímavé jak se to chová pod Ex2003 a Ex2010.
Ex2003: Když se otevče ten sešit "xxx" je v těch buňkách
#N/A a makro proběhne v pořádku.
Ex2010: Tady je v buňkách
#NENÍ_K_DISPOZICI a tady to makro nefunguje.
Tak nevím jaký Excel používáš.
Tady je to makro, jen poupravit cestu.
Kód: Vybrat vše
Sub PrepisHodnoty()
Workbooks.Open Filename:= _
"C:\Users\Cmuch\Downloads\xxx.xls"
Range("B6:Q31").Select
Selection.Replace What:="#N/A", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub
Re: xls. MAKRO......#Nedostupný nahradit ""
Napsal: 24 kvě 2012 21:44
od marek26
mam 2007
skusim to co si napisal
nerozumiem ze #N/A #NENÍ_K_DISPOZICI ved ja tam mam presne jasne #NEDOSTUPNÝ" nic viac nic menej
ako mozem dat do prikazu ze #N/A ked tam mam v bunkach #NEDOSTUPNÝ"
nelogicke ze?
aj tak vdaka
Re: xls. MAKRO......#Nedostupný nahradit ""
Napsal: 29 kvě 2012 18:44
od cmuch
Holt jiný kraj jiný mrav
A ani tak jsem nepřišel na to jak to rozchodit v Ex2010.
Re: xls. MAKRO......#Nedostupný nahradit ""
Napsal: 29 kvě 2012 21:00
od marek26
Re: xls. MAKRO......#Nedostupný nahradit ""
Napsal: 01 čer 2012 20:59
od cmuch
Ta cesta k souboru bude pořád stejná?
Pokud ano pak by třeba šlo to makro s Find dát do toho listu.
Re: xls. MAKRO......#Nedostupný nahradit ""
Napsal: 04 čer 2012 19:37
od cmuch
Ještě jsem šel na to z jiné strany, ale také nic.
Kód: Vybrat vše
Sub PrepisHodnoty()
Workbooks.Open Filename:= _
"C:\Users\Cmuch\Downloads\xxx.xls"
Set FBlk = Worksheets(1).Range("B6:Q31")
With FBlk
Set FCll = .Find(What:="#NENÍ_K_DISPOZICI", LookIn:=xlValues, LookAt:=xlWhole)
If Not FCll Is Nothing Then
FrstAddr = FCll.Address
Do
On Error Resume Next
Range(Nahrada).Value = ""
FCll.Select
Nahrada = FCll.Address
Set FCll = .FindNext(FCll)
If FCll.Address = FrstAddr Then Exit Do
Loop
End If
End With
Set FCll = Nothing
Set FBlk = Nothing
End Sub
Prostě když tam je
#NENÍ_K_DISPOZICI u mě v ex2010 tak se nic nestane,
ale když tam dám vyhledat nějaké číslo tak se to provede.
Tak fakt netuším.
Re: xls. MAKRO......#Nedostupný nahradit ""
Napsal: 07 čer 2012 18:05
od marek26
skoda ze to sudruhovia z uezá nedomysleli....
skusim to nahradit este nie "" ale napr. "0" (nulou)
