Do While .Cells(i, 4) <> "" and .Cells(i, 4) =< EndDate
EndRow = i
i = i + 1
Loop
jen teoreticky :-)
M@citovat
Zaslal/a
4.4.2013 12:52Zdravím. Mohl by mi pomoci někdo s vychytáním několika věcí na mém projektu ?
První z nich:
V dokumentu prohledávám údaje v rozmezí dat. Např. iod 1.1.2013 do 30.3.2013. Používám
'prvni zaznam
i = 2
Do While .Cells(i, 4) < StartDate
i = i + 1
Loop
StartRow = i
'poslední zaznam (do data)
Do While .Cells(i, 4) < EndDate
i = i + 1
Loop
EndRow = i
Vše šlape dobře, ale pouze v případě, že dotyčný zadá enddate, který opravdu v tabulce je. Pokud v tomto případě není poslední datum 30.3.2013, makro hází chybu. Poradil by někdo, jak to vychytat ?
Díky moc
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.