Excel Forum

	Soluzioni Excel Domande e Risposte
		Copiare e incollare una formula in tutte le celle di una colonna (dagli estremi variabili)

Pagina precedente | 1 | Pagina successiva

Vota | Stampa | Notifica email

« Discussione Precedente | Lista | Discussione Successiva »

Autore

Copiare e incollare una formula in tutte le celle di una colonna (dagli estremi variabili)

Ultimo Aggiornamento: 21/09/2020 02:25

Melissa2018

Post: 157

Registrato il: 03/09/2018

Città: GROTTAGLIE

Età: 25

Utente Junior

Microsoft Office Professional Plus 2019 64 bit

OFFLINE

19/09/2020 20:41

00#1

Copiare e incollare una formula in tutte le celle di una colonna (dagli estremi variabili)

Buonasera, chiedo scusa se non sarò stata chiara nel titolo della discussione.
Ho un codice che mi permette di copiare la formula contenuta in una cella D1 ed incollarla
in tutte le celle di una colonna (nell'esempio D5:D) fino ad una determinata riga.
Come potrete vedere dal file in allegato, la formula è incollata in tutte le celle della colonna D fino a quella adiacente l'ultima cella piena della colonna C (cella C24).
Supponiamo io voglia adesso riempire la colonna C con altre lettere e cambiare la formula nella cella D1 , come fare in modo che il codice incolli la nuova formula della cella D1 a partire dalla cella D25 (la prima cella vuota dal basso della colonna D)?

Grazie

Download (18 KB)

ABCDEF@Excel

20/09/2020 03:14

00#2

In teoria, sarebbe meglio non usare questo metodo (dovresti trovare un'altro modo)
Comunque nel tuo caso hai già le righe di B & C, pertanto se metti una formula in D2
Solo dopo potrai aggiungere le lettere in C

Sub test()
Range("D1").Copy
LastRow1 = Range("B" & Rows.Count).End(xlUp).Row
LastRow2 = Range("C" & Rows.Count).End(xlUp).Row
Range("D5:D" & LastRow2).PasteSpecial xlPasteFormulas
If Range("D2").HasFormula = True Then
    Range("D2").Copy
    Range(Cells(LastRow2 + 1, 4), Cells(LastRow1, 4)).PasteSpecial xlPasteFormulas
End If
Application.CutCopyMode = False
End Sub

dodo47

Post: 2.981

Registrato il: 06/04/2013

Utente Veteran

2010

OFFLINE

20/09/2020 10:50

10#3

Ciao Melissa, prova:

Sub COPIAEINCOLLACELLAD()
If Range("D1") = "" Then Exit Sub
If Range("C5") = "" Then Exit Sub
ur = Range("C" & Rows.Count).End(xlUp).Row
For j = ur To 5 Step -1
    If Range("D" & j) = "" Then Range("D1").Copy Range("D" & j)
Next
Application.CutCopyMode = False
End Sub

saluti

Domenico
Win 10 - Excel 2016

Melissa2018

Post: 157

Registrato il: 03/09/2018

Città: GROTTAGLIE

Età: 25

Utente Junior

Microsoft Office Professional Plus 2019 64 bit

OFFLINE