[VBA/EXCEL] Inserire valori in celle e calcolo della somma

[Ant001]

Salve a tutti!!!

Ecco il mio problema, vorrei fare una cosa con excel e credo (scusate l'ignoranza) ci voglia il vba (magari non è necessario...questo me lo direte voi )...

.......A......|.....A.....|
-----------------------
cella1......|cella1....|
...............|cella2.....|
...............|cella3.....|
...............|cellan.....|
...............|Totale....|
------------|-----------
Foglio1....|Foglio2

Desidero inserire un valore nella cella1 del Foglio1;tale valore lo metto (utilizzando Foglio1!A1) nella cella1 del Foglio2;adesso mi serve che i successivi valori che inserisco nella cella1 del Foglio1 vadano nella cella2, poi nella cella3...poi nella cellan del Foglio2, in modo da poterne poi calcolare il totale utilizzando =SOMMA(A1:AN).
Mi potete aiutare?
Vi ringrazio in anticipo!!!

[Ant001]

Su fate un piccolo sforzo...questo aiuto mi serve proprio...

[alka]

Originariamente inviato da Ant001
Su fate un piccolo sforzo...questo aiuto mi serve proprio...

Un piccolo sforzo dovresti cercare di farlo inizialmente tu, scrivendo nel forum appropriato e inserendo un titolo significativo per la tua discussione, come indicato nel Regolamento.

Ho provveduto a correggere il titolo e a spostare la discussione nell'area appropriata, ma ricordati di farlo tu in futuro (magari avendo anche un po' di pazienza per le eventuali risposte, visto che 12 ore a cavallo del weekend senza interventi sono plausibili... e non c'è alcuna garanzia a riguardo).

[Ant001]

Ok, scusatemi,
ma ve l'ho detto che sono ignorante...

io ci sto provando a risovere il problema...però non ci sono ancora riuscita; sto provando con una macro che faccia un controllo se la cella è vuota, in tal caso sposta il valore della cella lungo la colonna (iRow=iRow+1)...riesco a spostarlo solo la prima volta...

Attendo sempre il vostro aiuto

[Ant001]

Accidenti...credo di esserci riuscita!!!

[Ant001]

Ecco qui il codice:

Sub CellaSuccessiva()
'
' CellaSuccessiva Macro
' Macro registrata il 20/12/2008 da *
Dim iRow As Integer
iRow = 4
For iRow = 5 To 25
If Cells(iRow, 2).Value = "" Then
Cells(iRow, 2).Value = Cells(4, 2).Value
Exit For
End If
Next iRow

End Sub




Mi raccomando, non abbandonatemi mi serve ancora aiuto...mi servirebbe sapere come si indica la colonna, adesso vorrei fare un'altra macro tenendo fissa iRow, ad esempio Cells(2, x) al posto della x come devo scrivere?