Copia valori su celle libere

[il_perozzi]

Dopo tanto tempo torno a trovarvi, sempre un piacere leggervi, vi espongo il mio problema cercando una soluzione
Su una tabella nella colonna "A" ho celle con data e celle senza, io verrei inserire nelle celle vuote dei valori secondo questo esempio:

Cella "A1" valore 01/01/2017
Cella "A2" valore vuoto ------ deve diventare 01/01/2017
Cella "A3" valore vuoto ------ deve diventare 01/01/2017
Cella "A4" valore 02/01/2017
Cella "A5" valore vuoto ------ deve diventare 02/01/2017
Cella "A6" valore 10/01/2017
Cella "A7" valore vuoto ------ deve diventare 10/01/2017
Cella "A8" valore vuoto ------ deve diventare 10/01/2017
Cella "A9" valore vuoto ------ deve diventare 10/01/2017
Cella "A10" valore vuoto ------ deve diventare 10/01/2017

il tutto con una macro ma non ho trovato il modo di scriverla

come sempre grazie

[xilofono]

volendo si può fare anche senza macro
oppure registri queste stesse azioni e poi avrai la macro pronta per il futuro.

il tuo esempio non prevede una riga di intestazione e immagino che, vista la struttura del risultato voluto, la prima riga abbia sempre una data da cui partire, dunque bisogna fare così

metti in B1

=A1

metti in B2

=SE(A2="";B1;A2)

trascini da B2 fino a dove serve (in base all'esempio, fino a B10)

copi i valori del range interessato della colonna B (sempre in base all'esempio, B1:B10) e li incolli come valori in quella A (A1:A10)

cancelli il contenuto di B1:B10

[xilofono]

Registrando la macro vien fuori questo

Codice: Seleziona tutto

Sub RiempiDate()

    Range("B1").Select
    ActiveCell.FormulaR1C1 = "=RC[-1]"
    Range("B2").Select
    ActiveCell.FormulaR1C1 = "=IF(RC[-1]="""",R[-1]C,RC[-1])"
    Range("B2").Select
    Selection.AutoFill Destination:=Range("B2:B10"), Type:=xlFillDefault
    Range("B2:B10").Select
    Range("B1:B10").Select
    Range("B10").Activate
    Selection.Copy
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Selection.NumberFormat = "m/d/yyyy"
    Range("B1:B10").Select
        Selection.ClearContents
        Range("A1").Select
End Sub


ovviamente la colonna B che serve d'appoggio, deve rimanere vuota. cmq poi si può declinare in tanti modi, non avendo alcun foglio per vedere la struttura più complessiva, non si può sapere quali sono gli spazi e le esigenze

[wallace&gromit]

Oppure vedi qui, senza né macro né colonne di appoggio
viewtopic.php?f=26&t=107441&hilit=Macro+per+riempire+celle+vuote

[il_perozzi]

Ottimo,
la risposta di xilofono (sia manuale che con macro) va benissimo per il mio caso.
Grazie

il_perozzi