Condividi:        

Copia valori su celle libere

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Copia valori su celle libere

Postdi il_perozzi » 16/01/18 13:51

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
il_perozzi
__________________________________________
(cos'è il genio? E' fantasia, intuizione, colpo d'occhio e rapidità di esecuzione)

Win 10 - Excel 2010
Avatar utente
il_perozzi
Utente Junior
 
Post: 95
Iscritto il: 23/05/07 12:28
Località: roma

Sponsor
 

Re: Copia valori su celle libere

Postdi xilofono » 16/01/18 15:37

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
Windows 11 - Office 2016 Ita
Avatar utente
xilofono
Utente Junior
 
Post: 80
Iscritto il: 27/11/17 09:52

Re: Copia valori su celle libere

Postdi xilofono » 16/01/18 15:47

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
Windows 11 - Office 2016 Ita
Avatar utente
xilofono
Utente Junior
 
Post: 80
Iscritto il: 27/11/17 09:52

Re: Copia valori su celle libere

Postdi wallace&gromit » 16/01/18 19:37

Oppure vedi qui, senza né macro né colonne di appoggio
viewtopic.php?f=26&t=107441&hilit=Macro+per+riempire+celle+vuote
Office2016 + 2019 su win11
Avatar utente
wallace&gromit
Utente Senior
 
Post: 2174
Iscritto il: 16/01/12 14:21

Re: Copia valori su celle libere

Postdi il_perozzi » 19/01/18 12:55

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

il_perozzi
il_perozzi
__________________________________________
(cos'è il genio? E' fantasia, intuizione, colpo d'occhio e rapidità di esecuzione)

Win 10 - Excel 2010
Avatar utente
il_perozzi
Utente Junior
 
Post: 95
Iscritto il: 23/05/07 12:28
Località: roma


Torna a Applicazioni Office Windows


Topic correlati a "Copia valori su celle libere":


Chi c’è in linea

Visitano il forum: Nessuno e 46 ospiti