Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Macro: trascinare formula fino a riga/colonna non vuota

Ultimo Aggiornamento: 10/08/2020 20:01
Post: 6
Registrato il: 10/09/2016
Città: FALCONARA MARITTIMA
Età: 32
Utente Junior
per Mac 2011
OFFLINE
10/08/2020 18:10

Buonasera a tutti,
non ho trovato una domanda simile a questa nel forum, mi scuso se mi dovesse essere sfuggita.

Lascio in allegato un semplicissimo file di esempio e vi pongo la questione:

Sto cercando di scrivere una macro che prenda la matrice del foglio "Matrice" e la riporti nel foglio "Risultato" (che al momento fa vedere un esempio di quello che deve essere il risultato della macro) con tutti i valori moltiplicati per l'opportuno Fattore di Correzione, imputato sempre nel foglio "Matrice".

La mia difficoltà sta nel fatto che la matrice del foglio "Matrice" non ha sempre le stesse dimensioni: so per certo che avrà origine nella cella B4, ma a seconda dei casi può essere composta da M righe (verso il basso) e da N colonne (verso destra) variabili.

Come faccio a dire alla macro di fare una formula che parta dalla cella B4 e che si fermi all'ultima cella (riga/colonna) non vuota? Nel caso in questione deve fermarsi da solo alla colonna E e riga 6.


Grazie dell'aiuto :)
10/08/2020 20:01

Prova se Ti va bene...
Sub copia()
Dim Ur, Cl
Sheets("Risultato").Cells = ""
Ur = Sheets("Matrice").Range("B" & Rows.Count).End(xlUp).Row
Cl = Sheets("Matrice").Cells(4, Columns.Count).End(xlToLeft).Column
Sheets("Risultato").Cells(4, 2).FormulaLocal = "=Matrice!B4*Matrice!$A$2"
Sheets("Risultato").Cells(4, 2).Copy
Sheets("Risultato").Range(Cells(4, 2), Cells(Ur, Cl)).PasteSpecial
End Sub
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 23:34. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com