Excel 12 valori da riposizionare duplicandoli in altre celle sullo stesso foglio...

[freetom]

Avrei esigenza di poter fare questa operazione su un unico foglio excel...

Ho 12 valori su altrettante rispettive celle

Premendo un apposito pulsante con relativa macro (di cui appunto mi mancherebbe il codice)
dovrei poter duplicare questi 12 valori in altrettante celle rispettive presenti nello stesso foglio ma spostate rispetto ai primi 12 valori...

es..

A-B-C-D-E-F-G-H-I-L-M-N

Premendo il bottone "riposizionali" dovrebbe visualizzare sotto nello stesso foglio:

A-B-C-D-E-F
A-E-F-G-H-L
B-D-F-G-L-N

ecc....

Spero di essermi spiegato abbastanza bene altrimenti rimango a disposizione per ulteriori
chiarimenti

Grazie a chiunque mi potrà dare una mano

[patel]

Non avevi detto che ti saresti messo a studiare la programmazione delle macro ?
Questo problema credo che lo puoi risolvere facilmente attivando la registrazione della macro e facendo i movimenti a mano.

[nicola75ss]

Originariamente inviato da freetom
Spero di essermi spiegato abbastanza bene

Speranza vana. Non ho capito il criterio in base al quale ottieni quello schema, ma sicuramente è colpa mia.

[VanessaInfo]

importante è capire la "legge" che lega quelli che tu chiami spostamenti e...

puoi registrare la macro e fare i vari passi

utile sapere che

la funzione CODICE.CARATT dà il carattere corrispondente al numero
e CODICE inverso

per cui se da A deve uscire B devi fare CODICE.CARATT (CODICE(celladovesitrovaA+1))


ciao

VaneX

[freetom]

Intanto grazie 1000

[freetom]

Originariamente inviato da nicola75ss
Speranza vana. Non ho capito il criterio in base al quale ottieni quello schema, ma sicuramente è colpa mia.

Aspetta riprovo...

Ho un foglio excel

con in una riga (n.3) questi valori : 1 - 2 - 3 - 4 - 5 - 6 - 7 - 8 - 9 - 10 - 11 - 12

ogni valore è in una cella del tipo A1,B1,C1,D1,E1,F1,G1,H1,I1,L1,M1,N1

Premendo un bottone per il quale mi servirebbe la macro adatta... dovrebbe accadere questo:

Restando fermi i valori immessi nelle celle sopradette si dovrebbero visualizzare anche in altra tabella 6x15 posizionati secondo un ordine impostato a monte...

del tipo

nella cella A10 il valore di B1
nella cella A11 il valore di G1
ecc...
fino alla cella F15
nella cella B10 il valore di B3
nella cella B11 il valore di L1
ecc...
fino alla cella F15
nella cella C10 il valore di A1
nella cella C11 il valore di M1
ecc...
fino alla cella F15
nella cella D10 il valore di C1
nella cella D11 il valore di E1
ecc...
fino alla cella F15
nella cella E10 il valore di D1
nella cella E11 il valore di F1
ecc...
fino alla cella F15
nella cella F10 il valore di B1
nella cella F11 il valore di H1
ecc...
fino alla cella F15

Resto a disposizione comunque per altri chiarimenti se necessari

Grazie infinite a tutti/e

[nicola75ss]

Mi spiace ma purtroppo continuo a non capire la logica di successione dei valori.

[freetom]

Però adesso ne avrei un altro...

Poi basta

Dunque...

Se volessi creare un bottone premendo il quale mi vengano evidenziate le celle con valore (numero o testo uguale) in uno stesso foglio excel come dovrei fare?

GRAZIE

ps: Dopo questo per un bel pò non chiedo più nulla al riguardo..

[nicola75ss]

Questa macro, selezionato un intervallo di celle, ti evidenzia tutte quelle che contengono il numero 4. Adattala alle tue esigenze.

Sub evidenzia()
Dim cella As Range
Dim str As String
For Each cella In Selection.Cells
 If cella.Value = 4 Then
    rifer = ActiveSheet.Cells(cella.Row, cella.Column).Address(False, False)
    str = str & "," & rifer
 End If
 Next cella
str = Mid(str, 2, Len(str))
Range(str).Select
End Sub

[nicola75ss]

Piccola modifica, c'era pure un errore nel taglio della stringa per il range nel caso fosse stata trovata una sola corrispondenza.
Adesso selezioni il tuo intervallo di celle, ti appare una maschera nella quale inserire ciò che devi ricercare (testo o numero) e ti vengono selezionate tutte le celle corrispondenti a tale ricerca.

Sub evidenzia()
Dim cella As Range
Dim str As String
valore = Application.InputBox("Inserisci il valore da ricercare")
For Each cella In Selection.Cells
 If cella.Value = CStr(valore) Then
    rifer = ActiveSheet.Cells(cella.Row, cella.Column).Address(False, False)
    str = str & "," & rifer
 End If
Next cella
If Len(str) > 0 Then
    If InStr(str, ",") Then
        str = Mid(str, 2, Len(str))
    End If
Range(str).Select
Else
MsgBox ("Nessun valore corrispondente al criterio")
ActiveSheet.Range("a1").Select
End If
End Sub