Condividi:        

EXCEL difficoltà per macro

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

EXCEL difficoltà per macro

Postdi Francesco53 » 20/03/13 19:53

Un saluto a tutto il Forum,
ho provato a creare una macro ma purtroppo con esito negativo.
Allego file di esempio.
http://www.mediafire.com/view/?bk80b2d7bix258o
La macro dovrebbe leggere i numeri da utilizzare dalla cella U2 alla cella AF3,
questi variano da un numero minimo di 12 ad un numero massimo di 24.
A sinistra ho lo sviluppo base che può essere da un minimo di 3 ad un massimo x di righe,
inserite nella cella Q2, sono le colonne dello sviluppo.
In verticale le colonne dipendono dalla scelta fatta nella cella I2 e sono le colonne che vanno da sestine a decine.
Io ho una macro che mi realizza lo sviluppo base con numeri da 1 a n Cella E2.
Dovrei sostituire i numeri base con i numeri che vanno da U2 ad AF3 nel quadro che va da cella U7 iniziale.
Ringrazio per eventuale risoluzione.
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45

Sponsor
 

Re: EXCEL difficoltà per macro

Postdi Flash30005 » 21/03/13 02:29

Ho qualche dubbio....
Ma prova questa macro
Codice: Seleziona tutto
Sub CompilaRif()
UC2 = Worksheets("Sviluppo Matrici").Cells(2, Columns.Count).End(xlToLeft).Column
UC3 = Worksheets("Sviluppo Matrici").Cells(3, Columns.Count).End(xlToLeft).Column
NC = UC2 + UC3 - 40
Dim Vett(24) As Integer
For CC1 = 21 To UC2
ASSV = ASSV + 1
Vett(ASSV) = Cells(2, CC1).Value
Next CC1
For CC2 = 21 To UC3
ASSV = ASSV + 1
Vett(ASSV) = Cells(3, CC2).Value
Next CC2
UCM = Worksheets("Sviluppo Matrici").Cells(7, 15).End(xlToLeft).Column
URM = Worksheets("Sviluppo Matrici").Range("E" & Rows.Count).End(xlUp).Row
For CCM = 5 To UCM
For RRM = 7 To URM
Worksheets("Sviluppo Matrici").Cells(RRM, CCM + 16).Value = Vett(Worksheets("Sviluppo Matrici").Cells(RRM, CCM).Value)
Next RRM
Next CCM
End Sub


Ti avviso:
hai delle formule (celle sporche) nelle righe 2 e 3 da AG verso destra quindi cancellale altrimenti non funzionerà nulla

Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: EXCEL difficoltà per macro

Postdi Francesco53 » 21/03/13 13:09

Buongiorno,
grazie Flash sembra tutto ok, stasera testero a fondo per controllo.
Francesco
S.O. Windows 10 e Office 2007
Avatar utente
Francesco53
Utente Senior
 
Post: 811
Iscritto il: 20/02/10 18:45


Torna a Applicazioni Office Windows


Topic correlati a "EXCEL difficoltà per macro":


Chi c’è in linea

Visitano il forum: Nessuno e 23 ospiti