• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

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

Jméno
Kontrola
Text
	Ukázka

---

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)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse