Excel VBA - makro pro přepsání dat

[navstevnik]

Muzes bud v editoru VBA zobrazit okno Locals Window a krokovat program nebo pokud se ti nechce prokousavat zobrazenymi udaji, tak zobrazit stav promennych prikazem Debug.Print vlozenym za radek, kde ma byt zobrazen stav, pr: Debug.Print SSadaBlk.Address;" ";SLastCll.Address za radky pro jejich prirazeni Set SLastCll=...

[Branscombe]

Ahoj, našel jsem tam malou chybku, ale dokonce jsem jí dokázal detekovat a opravit - přičítali se tam již zapsané hodnoty, jelikož to oddělovalo "; " (středník a mezera) a následně vyhodnotilo již zapsané číslo " 10-00005" a nikoliv "10-00005" - prostě byla tam vpředu navíc mezera.

Kód jsem opravil z:

Kód: Vybrat vše

If SadaOK Then
          .Value = .Value & IIf(.Value = vbNullString, vbNullString, "; ") & Sada
          .HorizontalAlignment = xlCenter
          .Font.ColorIndex = xlAutomatic
          .EntireColumn.AutoFit
        End If

na:

Kód: Vybrat vše

If SadaOK Then
          .Value = .Value & IIf(.Value = vbNullString, vbNullString, ";") & Sada
          .HorizontalAlignment = xlCenter
          .Font.ColorIndex = xlAutomatic
          .EntireColumn.AutoFit
        End If

Sem to píšu jen jako info kdyby to chtěl někdo někdy využít ...

[navstevnik]

Druha moznost opravy je pouzit oddelovac "; " v radku:
...
' overeni, zda je v bunce jiz c sady obsazeno
TmpPole = Split(.Value, "; ")
SadaOK = True
...
a ponechat:
...
.Value = .Value & IIf(.Value = vbNullString, vbNullString, "; ") & Sada
...

[Branscombe]

Tvá varianta bude asi lepší