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

MACRO ESTRAZIONE "PILOTATA"

Ultimo Aggiornamento: 09/07/2018 21:58
Post: 1
Registrato il: 09/07/2018
Città: MILANO
Età: 33
Utente Junior
16.14.1 Mac Version
OFFLINE
09/07/2018 12:08

Ragazzi, avrei bisogno di un favore. Non sono espertissimo di excel e men che meno con visual basics.
Avrei bisogno di un favore.
Avendo nella colonna A n domande (ad esempio da A1 ad A40) vorrei una macro che mi scelga in maniera "pilotata" alcuni valori dalla colonna A da mostrare in 7 celle differenti (corrispondenti a 7 distinte persone):
esempio

Cella C1 ( Estrazione dei valori tra A2,A27,A31,A37,A12)
Cella C2 ( Estrazione dei valori tra A4,A22,A33,A5,A17)
Cella C3.....
Cella C4....
CElla C5....
Cella C6....
Cella C7.......

E' praticabile una macro del genere?
Vi prego aiutatemi! [SM=x423023]
Eventualmente potreste farmi un file esempio con tasto incluso? Grazie mille
Post: 2
Registrato il: 09/07/2018
Città: MILANO
Età: 33
Utente Junior
16.14.1 Mac Version
OFFLINE
09/07/2018 12:41

Naturalmente potrebbe essere utile se necessario creare 7 macro differenti
1 che riporti il risultato in C1
1 che riporti il risultato in C2
etc etc etc

La cosa fondamentale è che l'estrazione avvenda da una lista da A1 ad An.
E' possibile?
Grazie ancora
Post: 3
Registrato il: 09/07/2018
Città: MILANO
Età: 33
Utente Junior
16.14.1 Mac Version
OFFLINE
09/07/2018 19:10

Gentilissimi, ho approntato l'excel di massima che vi chiedevo.
Ho anche incluso un pulsante "estrai" con macro.
L'unica cosa che vorrei migliorare è la seguente:
è possibile obbligare excel a non far estrarre il valore di cella precedente?

Vi allego il file.
Vi prego, un anima pia che mi aiuti? [SM=x423057]
[Modificato da max.car84 09/07/2018 19:10]
Post: 3.593
Registrato il: 28/06/2011
Città: AGORDO
Età: 70
Utente Master
2013
OFFLINE
09/07/2018 21:58

Nel foglio2 hai già fatto il tutto e non capisco cosa desideri (poi in un foglio 107 domande, l'altro 39?).
Nel caso li numeri fossero intervallati allo stesso modo puoi fare un ciclo (ex per ogni 10 numeri)
vb
Sub Estrai_Ciclo()
Dim X As Long, Min As Long, Max As Long
For X = 1 To 7
    Max = X * 10
    Min = Max - 9
    Cells(X + 1, 2).Value = "DOMANDA " & Int(Rnd() * (Max - Min + 1)) + Min
    'oppure
    'Cells(X + 1, 2).Value = Cells((Int(Rnd() * (Max - Min + 1)) + Min) + 1, 4)'4 significa colonna D
Next X
End Sub

Nel caso fossero intervallati in modo differente devi mettere a posto i vari Min & Max
vb
Sub Estrai_Fisso()
Dim Min As Long, Max As Long
'''''
Min = 1
Max = 10
Cells(2, 2).Value = "DOMANDA " & Int(Rnd() * (Max - Min + 1)) + Min
'oppure
'Cells(X + 1, 2).Value = Cells((Int(Rnd() * (Max - Min + 1)) + Min) + 1, 4)
'''''
Min = 11
Max = 20
Cells(3, 2).Value = "DOMANDA " & Int(Rnd() * (Max - Min + 1)) + Min
'''''
Min = 21
Max = 30
Cells(4, 2).Value = "DOMANDA " & Int(Rnd() * (Max - Min + 1)) + Min
'''''
Min = 31
Max = 40
Cells(5, 2).Value = "DOMANDA " & Int(Rnd() * (Max - Min + 1)) + Min
'''''
Min = 41
Max = 50
Cells(6, 2).Value = "DOMANDA " & Int(Rnd() * (Max - Min + 1)) + Min
'''''
Min = 51
Max = 60
Cells(7, 2).Value = "DOMANDA " & Int(Rnd() * (Max - Min + 1)) + Min
'''''
Min = 61
Max = 70
Cells(8, 2).Value = "DOMANDA " & Int(Rnd() * (Max - Min + 1)) + Min
End Sub

[Modificato da raffaele1953 09/07/2018 22:01]
Excel 2013
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]
Checkbox e macro (3 messaggi, agg.: 23/08/2019 16:48)
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 05:54. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com