Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

MACRO copia nelle celle vuote

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

MACRO copia nelle celle vuote

Postdi koderviskonte » 14/11/11 00:53

Ciao a tutti,

stavo cercando di scrivere una macro in vba che faccia questa operazione:
in una colonna di un foglio excel nel quale sono presenti alcune celle vuote (anche più di una consecutiva) vorrei fare in modo che in una data selezione di celle nella colonna, venga incollata nella prima cella vuota la cella precedente fino alla fine della selezione.
Mi spiego meglio: data una colonna così fatta:

a1
a2
a3
vuoto
vuoto
a6
vuoto
vuoto
a7

la macro devrebbe rendere la selezione in questo modo:

a1
a2
a3
a3
a3
a6
a6
a6
a7

Ecco il mio tentativo non funzionante:

Sub Copia_Cella_prec_Incolla_seg()
Dim Rowcount As Integer
Dim N As Integer

Set Area = Selection
Rowcount = Selection.Rows.Count

For N = 1 To Rowcount Step 1
If Cells(N, 1).Value = "" Then
Cells(N - 1, 1).Select
Selection.Copy
Cells(N, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues
Else: N = N + 1
End If
Next N
End Sub

Grazie mille per l'aiuto
koderviskonte
Newbie
 
Post: 1
Iscritto il: 14/11/11 00:36

Sponsor
 

Re: MACRO copia nelle celle vuote

Postdi Flash30005 » 14/11/11 11:56

Ciao Koderviskonte e benvenuto nel Forum

prova questa macro

Codice: Seleziona tutto
Sub riporta()
UR = Range("A" & Rows.Count).End(xlUp).Row
For RR = 1 To UR
    Str1 = Range("A" & RR).Value
    If Str1 = "" Then
    Range("A" & RR).Value = M_Str1
    Else
        M_Str1 = Str1
    End If
SaltaR:
Next RR
End Sub


Ciao
Flash
Win7 + Office 2010 Ita
"Fotografica" al servizio dell'immagine

Ottime opportunità di lavoro (part-time o full-time) con guadagni immediati. Info in MP
Avatar utente
Flash30005
Moderatore
 
Post: 8460
Iscritto il: 27/09/07 11:44
Località: Roma +o-


Torna a Applicazioni Office Windows


Topic correlati a "MACRO copia nelle celle vuote":


Chi c’è in linea

Visitano il forum: Nessuno e 5 ospiti