Assegnare un valore ad un intervallo di celle variabili a seconda del numero presente in una cella.

Question

Ciao,

Partendo ad esempio dalla cella A1 e volendo assegnare un valore presente nella cella B1 creando un intervallo di celle uguale al numero presente nella cella C1 come dovrei fare?

Esempio:

B1= 1,89

C1= 8

il risultato dovrebbe essere:

Range("A1: A9").Value = Range("B1")

Vladimiro

Answer 1

Ciao Vladimiro,

Ho condiviso il file si skydrive, come del resto faccio con i file di Access, ma mi sono accorto che non viene scaricato automaticamente e che i pulsanti e le caselle combinate non le fa vedere.

qui c'è il link

Scusate,

purtroppo non conoscendo bene il comportamento dei file di Excel, solo ora mi sono accorto che è funzionante e che si può scaricare (scaricandolo, ho notato che elimina i pulsanti e modifica i valori delle quote... boh!).

Purtroppo, Onedrive cancella le caratteristiche - compreso i tuoi pulsanti - che non può mostrare nella versione OnLine. 

Per questo motivo, io utilizzo invece DropBox.

Come potete vedere è in fase di costruzione.

Una volta inseriti Cassa, Eventi, Attesi e Quote iniziali, facendo click sul pulsante Start e avendo (scusate la ripetizione):

1. Il numero degli eventi da implementare che si trova nella cella B6
2. Il valore da inserire in ogni cella implementata che si trova nella cella D6

ho bisogno di:

1. Partendo dalla cella A11 inserire un numero progressivo
2. Partendo dalla cella B11 implementare tutte le celle come da tuo esempio

Nella tua procedura Pulsante1_Click, sostituisci:

    'Range("B11 : B16").Value = Range("D6")

con:

    With Range("A11").Resize(Range("B6").Value)

        .Cells(1).Value = 1

        .DataSeries Rowcol:=xlColumns, Type:=xlLinear,  _

                    Step:=1, Trend:=False

        .Offset(, 1).Value = Range("D6").Value

    End With

Potresti scaricare il mio file di prova Vladimiro20180427.xlsm

===

Regards,

Norman

Answer 2

Ciao Vladimiro,

Purtroppo a me serve automatizzare il popolamento delle celle.

Avendo riletto con attenzione la tua domanda originale, non riesco a trovare alcuna indicazione sulla necessità di fornire una soluzione automatizzata e quindi, in assenza della mia sfera di cristallo, ho dato una soluzione 'standard'  :-))

Per fornire una soluzione automatizzata che sia utile, credo sia necessario essere a conoscenza della disposizione di altri dati. Quindi, ti chiederei gentilmente di caricare un esempio del tuo file.

Per caricare il file su Microsoft OneDrive, vedi:

https://support.office.com/it-it/article/Condividere-file-e-cartelle-di-OneDrive-9fcc2f7d-de0c-4cec-93b0-a82024800c07

Nel caso di DropBox, vedi:

https://www.dropbox.com/it/help/topics/sharing_files_and_folders

===

Regards,

Norman

Ciao Norman,

Questa sera provvedero'.

Giusto per dire, fosse stato in Access avrei sommato al numero 11 della cella A11 una variabile che prendesse i dati dalla cella C1

Dim i as integer

i= C1

Me.Controls("A" & 11 + i)

Vladimiro

Answer 3

Ciao Vladimiro,

Purtroppo a me serve automatizzare il popolamento delle celle.

Avendo riletto con attenzione la tua domanda originale, non riesco a trovare alcuna indicazione sulla necessità di fornire una soluzione automatizzata e quindi, in assenza della mia sfera di cristallo, ho dato una soluzione 'standard'  :-))

Per fornire una soluzione automatizzata che sia utile, credo sia necessario essere a conoscenza della disposizione di altri dati. Quindi, ti chiederei gentilmente di caricare un esempio del tuo file.

Per caricare il file su Microsoft OneDrive, vedi:

https://support.office.com/it-it/article/Condividere-file-e-cartelle-di-OneDrive-9fcc2f7d-de0c-4cec-93b0-a82024800c07

Nel caso di DropBox, vedi:

https://www.dropbox.com/it/help/topics/sharing_files_and_folders

===

Regards,

Norman

Answer 4

Ciao Vladimiro,

Partendo ad esempio dalla cella A1 e volendo assegnare un valore presente nella cella B1 creando un intervallo di celle uguale al numero presente nella cella C1 come dovrei fare?

Esempio:

B1= 1,89

C1= 8

il risultato dovrebbe essere:

Range("A1: A9").Value = Range("B1")

Nella cella A1, immetti la formula:

   =SE(RIF.RIGA()<=$C$1;$B$1;"")

 Trascina la formula in basso  finché si ottiene una cella vuota:

   

===

Regards,

Norman

Ciao Norman,

Intanto ti ringrazio per la risposta.

Purtroppo a me serve automatizzare il popolamento delle celle.

Vladimiro

Answer 5

Ciao Vladimiro,

Partendo ad esempio dalla cella A1 e volendo assegnare un valore presente nella cella B1 creando un intervallo di celle uguale al numero presente nella cella C1 come dovrei fare?

Esempio:

B1= 1,89

C1= 8

il risultato dovrebbe essere:

Range("A1: A9").Value = Range("B1")

Nella cella A1, immetti la formula:

   =SE(RIF.RIGA()<=$C$1;$B$1;"")

 Trascina la formula in basso  finché si ottiene una cella vuota:

   

===

Regards,

Norman