Prazne-polne celice

[bate]

Zdravo,
ali mi lahko kdo svetuje kako preštejem prazne celice npr. v koloni?
Kot npr:

Koda: Izberi vse

...
If (celica je prazna) then ...
...

Nekaj podobnega sem nekje že videl, a se ne spomnim ... Saj mi je nerodno, a v 'Help-u' je toliko tega, da ne vem kje začeti.
Za nasvet se lepo zahvaljujem.

lp Brane

[admin]

Upam, da se tole ne bo razvlekolo kot ostale najine teme in zato vam bom lepo odgovoril na edino vprašanje, ki ste ga postavili: 'ali mi lahko kdo svetuje kako preštejem prazne celice npr. v koloni?'.

S funkcijo COUNTBLANK. Recimo število praznih celic v koloni D:

Koda: Izberi vse

=COUNTBLANK(D:D)

[bate]

Zdravo,
malo za šalo in bolj zares.Nič ne morem, če se razvleče...ampak prosim: kako naj '=COUNTBLANK(d:d)' vkomponiram v 'If' stavek?

Koda: Izberi vse

...
If(=CountBlank ...) ...   then...
...

lp Brane

[kljuka13]

Nič hudega, če se razvleče. Edino priporočljivo je že na začetku opisati problem in točno kaj bi radi ...

Koda: Izberi vse

=(IF(COUNTBLANK(B1:B10) ...

[bate]

Zdravo,
spoštovani 'Kljuka'. Hvala za odgovor. Očitno ste površno brali. Poglejte moj odgovor 'administratorju'!
'If' stavek NI formula, ampak del kode!
Bz (brez zamere)

lp Brane

[cedra]

Moram vam priznati, da znate svoja vprašanja vedno zaviti v gosto meglo! Tako moramo vedno vleči iz vas, kaj bi sploh radi...
Lahko bi napisali npr. takole:

Želim sešteti prazne celice v obsegu npr. A1:A10 in če je število praznih večje od 0, potem želim naslednje, kaj?

No naj bo kakor je, tu imate kodo, ki sem si jo jaz zamislil. Seveda jo morate prilagoditi svojim potrebam.

Koda: Izberi vse

Sub Prazne()

Stevilo_praznih = WorksheetFunction.CountBlank(Range("A1:A10"))

If Stevilo_praznih > 0 Then
    MsgBox "Število praznih celic v iskanem območju je " _
    & Stevilo_praznih & "!", vbExclamation, "Iskanje praznih"
Else
    MsgBox "V iskanem območju ni praznih celic! " _
    , vbInformation, "Iskanje praznih"
End If

End Sub

[bate]

Zdravo,
hvala 'Cedra' za izčrpen odgovor. Trenutno je prepozno, da bi preverjal kodo. Izgleda, da je to to. Bom preiskusil.
Moji opisi morajo biti res obupni, saj jih nihče ne razume od 'prve'. Pač ne znamo vsi vsega. Bistveno je, da na koncu le 'pridemo skupaj'. Saj je dovolj prostora in časa...

lp Brane

[bate]

Zdravo,
'Cedra' sporočam vam, da sem zadevo preiskusil. Malo ,modificiranja in deluje. Bravo! Jaz tega ne bi odkril še celo leto. Kje se tega naučite?
lp Brane