MS Excel

Téma: Rada pro zoufalce

Zaslal/a Tguun 3.9.2010 13:05

Rád bych požádal o odbornou radu jak zabránit tomu, aby mi kód viz. níže nebral hodnotu 0 jako prázdnou buňku !!! Děkuji

Private Sub Dopln_do_hodnoceni(jmeno, Hodnoceni)

Dim rd_start As Single
Dim sl_start As Single

rd_start = 3
sl_start = 4

While Sheets(ComboBox5.Value).Cells(rd_start, 2) <> Empty
If Sheets(ComboBox5.Value).Cells(rd_start, 2) = jmeno Then

While Sheets(ComboBox5.Value).Cells(rd_start, sl_start) <> Empty 'Tento výraz potřebuji nahradit ! V buňkách jsou hodnoty 0 a 100

sl_start = sl_start + 1
Wend
Sheets(ComboBox5.Value).Cells(rd_start, sl_start) = Hodnoceni
Exit Sub
End If
rd_start = rd_start + 1
Wend
End Sub

Zaslat odpověď >

Poki(3.9.2010 13:21)#002362

Zkuste toto: While isempty(Sheets(ComboBox5.Value).Cells(rd_start, sl_start)) = falsecitovat

Tguun(3.9.2010 15:50)#002364

Díky moc, Poki !!!citovat

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

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.