Visual Basic 6 - Valore inputbox in cella libera

13/08/10 13:59

bruco1987

Postato originariamente da jack92:

If Worksheets("database").Cells(1, 1) = "" Then
Worksheets("database").Range("A2") = Label5
Else
Worksheets("database").Range("A3") = Label5

mi scrive sempre nella cella "A3" anche se la "A2" è libera.......

Certo la "if" controlla se c'è un valore nella cella A1 e non controlla affatto la cella A2 quindi il codice dovrebbe essere

If Worksheets("database").Cells(2 , 1) = "" Then
Worksheets("database").Range("A2") = Label5
Else
Worksheets("database").Range("A3") = Label5

Ricorda che "Cells(righe,colonne)" il primo parametro è il valore numerico della riga mentre il secondo fa riferimento alla colonna (Es. A=1 , B=2 , C=3 , ecc...).Io personalmente uso "Cells" quando devo usare dei cicli(For ,While,ecc...)
:ot:

P.S. Ricorda il tag code quando scrivi del codice

Ciao e grazie tante :k:

... hai ragione non mi ero reso conto che controllasse la prima cella e non la seconda :rotfl:

... modificando come mi hai detto funziona perfettamente, e siamo a metà dell'opera.... adesso il programma dovrebbe proseguire cos'ì per 30 input, cioè la terza volta che immetto l'input(essendo "A2" ed "A3" gia occupate) mi deve scrivere in "A4". Avevo pensato a scrivere 30 if come questa ma non credo funzioni, quindi secondo te come devo fare? ti ringrazio tanto anticipatamente, mi stai dando una grande mano

aaa

13/08/10 14:15

jack92

Figurati per così poco :k:

basta che fai un ciclo

For x=1 to 30
... input=InputBox("inserisci valore")...
if Worksheets("database").Cells(x , 1) = "" then
Worksheets("database").Cells(x,1) = Label5
else
Worksheets("database").Cells(x+1,1) = Label5
end if
next x

non sò se ho scritto bene ma vado un po di fretta... il concetto dovrebbe essere chiaro

Ultima modifica effettuata da jack92 13/08/10 17:29

aaa

1 2