xls. MAKRO......#Nedostupný nahradit ""

[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

[Reklama]

[d1amond]

Makro bez problémů funguje. Přilož sem celý sešit, i s tím makrem.

[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:=False

Pokud nefunguje, upni sešit.

[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

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

[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

[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

[cmuch]

Holt jiný kraj jiný mrav

A ani tak jsem nepřišel na to jak to rozchodit v Ex2010.

[marek26]

pre moravakov #N/A pre slovensko a sliezko #NEDOSTUPNY

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

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

[marek26]

skoda ze to sudruhovia z uezá nedomysleli....
skusim to nahradit este nie "" ale napr. "0" (nulou)