valore cella excel

[Fabio]

salve.
ho postato tempo fa una richiesta per una macro ed oggi eccomi qui di nuovo
a postare per una richiesta.

la macro cattura dei valori da alcune celle di ciascuna riga e deve fermarmi
quando trova una riga vuota.
il controllo lo fa sulla colonna C e la riga è variabile.
una cella vuota è uguale a empty,null o cos'altro ????
i=4

y = Sheets("Foglio1").Cells(i, 3).Value
Do Until y = null/empty/ecc. ?
istruzione
loop
i=i+1

aggiungo.
è possibile stampare i valori di specifiche celle tramite coordinate
cartesiane su un foglio di carta
senza stabilire cella,riga ?
questo perchè se allargo i font,la cella si allarga di conseguenza e poi si
sfalsano.

tks for coop

fabio newsgroup dipendente

[Bruno Campanini]

"Fabio" <st...@e646.it> wrote in message
news:47d54954$0$4796$4faf...@reader4.news.tin.it...

> salve.
> ho postato tempo fa una richiesta per una macro ed oggi eccomi qui di
> nuovo a postare per una richiesta.
>
> la macro cattura dei valori da alcune celle di ciascuna riga e deve
> fermarmi quando trova una riga vuota.
> il controllo lo fa sulla colonna C e la riga è variabile.
> una cella vuota è uguale a empty,null o cos'altro ????
> i=4
>
> y = Sheets("Foglio1").Cells(i, 3).Value
> Do Until y = null/empty/ecc. ?
> istruzione
> loop
> i=i+1

Sub Button32_Click()
Dim Range1 As Range, i As Long
Set Range1 = [Foglio1!C1]
i = 1
Do Until Range1(i) = ""
i = i + 1
Loop
Range1(i).Select
End Sub

Bruno

[Mauro Gamberini]

> ho postato tempo fa una richiesta per una macro ed oggi eccomi qui di
> nuovo a postare per una richiesta.
>
> la macro cattura dei valori da alcune celle di ciascuna riga e deve
> fermarmi quando trova una riga vuota.
> il controllo lo fa sulla colonna C e la riga è variabile.
> una cella vuota è uguale a empty,null o cos'altro ????
> i=4
>
> y = Sheets("Foglio1").Cells(i, 3).Value
> Do Until y = null/empty/ecc. ?
> istruzione
> loop
> i=i+1
>

Public Sub m()

Dim sh As Worksheet
Dim lRiga As Long

On Error GoTo RigaErrore

Set sh = Worksheets("Foglio1")

With sh

lRiga = 1
Do While Len(.Cells(lRiga, 3).Value) > 0
'Codice
lRiga = lRiga + 1
Loop

End With

RigaChiusura:
Set sh = Nothing
Exit Sub

RigaErrore:
MsgBox Err.Number & vbNewLine & Err.Description
Resume RigaChiusura

End Sub

--
---------------------------
Mauro Gamberini
http://www.riolab.org/