| | Post: 19 | Registrato il: 25/05/2015
| Età: 53 | Utente Junior | 2007 | | OFFLINE | |
|
08/07/2021 15:38 | |
salve io ho provato varie formule ma la cosa è oltre le mie capacità quindi vi chiedo aiuto. ho bisogno che se se in una cella è contenuto il valore "m1", la cella sottostante si autocompili con "p1", se contiene "m2" allora quella sotto dovrà contenere "p2" se "m3" allora "p3", le celle prese in causa vanno da a1 a h14. come si può fare ?
grazie dell'aiuto e scusate il disturbo.
fabio |
|
| | Post: 2.365 | Registrato il: 10/10/2013
| Città: VICENZA | Età: 69 | Utente Veteran | 365 | | OFFLINE |
|
08/07/2021 18:32 | |
ciao
in A1 m1
in A2
=SOSTITUISCI(A1;"m";"p")
fatto |
| | Post: 19 | Registrato il: 25/05/2015
| Età: 53 | Utente Junior | 2007 | | OFFLINE | |
|
08/07/2021 19:02 | |
io ti ringrazio ma fin quì c'ero arrivato io vorrei creare una funzione o una macro associata ad un tasto che trovi in automatico tutte e tre le variabili elencate prima e nella cella sottostante scriva il corrispondente valore prestabilito.
forse prima mi sono spiegato male, scusa. dovrebbe essere una funzione che agisce su più celle contemporaneamente.
|
| | Post: 1.421 | Registrato il: 27/06/2011
| Utente Veteran | excel 2007 | | OFFLINE |
|
08/07/2021 21:13 | |
Ciao Fabio,
ed un saluto a Federico👍
Le celle a1:h14, sono una tabella/range,
elaborata la seconda riga rispetto alla prima, cambiandone quindi
il valore in base al valore della cella alla riga superiore,
quando la macro elaborera' la terza riga e visto che in riga 2 ci saranno
solo valori tipo p1, p2 o p3, cosa dovrà fare la macro?
Ciao
Frank
Stretta la foglia, larga la via, dite la vostra che ho detto la mia.
Excel 2007 forse anche 2013 ... 2021 ... 365 e future... |
| | Post: 3.200 | Registrato il: 06/04/2013
| Utente Master | 2010 | | OFFLINE |
|
09/07/2021 11:55 | |
Ciao
prova qualcosa del genere:
Sub cambia()
ur = 14 'ultima riga
uc = 8 'ultima colonna
For j = ur To 2 Step -1
For i = 1 To 8
Select Case Cells(j - 1, i)
Case Is = "m1"
Cells(j, i) = "p1"
Case Is = "m2"
Cells(j, i) = "p2"
Case Is = "m3"
Cells(j, i) = "p3"
End Select
Next i
Next j
End Sub
saluti
Domenico
Win 10 - Excel 2016 |
| | Post: 20 | Registrato il: 25/05/2015
| Età: 53 | Utente Junior | 2007 | | OFFLINE | |
|
13/07/2021 14:19 | |
dodo47, 09/07/2021 11:55:
Ciao
prova qualcosa del genere:
Sub cambia()
ur = 14 'ultima riga
uc = 8 'ultima colonna
For j = ur To 2 Step -1
For i = 1 To 8
Select Case Cells(j - 1, i)
Case Is = "m1"
Cells(j, i) = "p1"
Case Is = "m2"
Cells(j, i) = "p2"
Case Is = "m3"
Cells(j, i) = "p3"
End Select
Next i
Next j
End Sub
saluti
grazie a breve testerò la soluzione che mi hai proposto.
|
| | Post: 27 | Registrato il: 25/05/2015
| Età: 53 | Utente Junior | 2007 | | OFFLINE | |
|
15/07/2021 05:18 | |
ho testato lo script e fa il suo dovere , ti ringrazio molto, vorrei sapere se visto la mia ignoranza quasi totale in materia, se non ho capito male lo script agisce su una matrice di celle che vanno dalla colonna 8 cioè la H alla riga 14 creando una matrice di celle da A1 a H14 , se dovessi far partire il gruppo di celle da C4 come dovrei modificare lo script, e potresti spigarmi come lavora in modo da cominciare a ragionarci io.
grazie ancora . |
| | Post: 28 | Registrato il: 25/05/2015
| Età: 53 | Utente Junior | 2007 | | OFFLINE | |
|
15/07/2021 05:18 | |
ho testato lo script e fa il suo dovere , ti ringrazio molto, vorrei sapere se visto la mia ignoranza quasi totale in materia, se non ho capito male lo script agisce su una matrice di celle che vanno dalla colonna 8 cioè la H alla riga 14 creando una matrice di celle da A1 a H14 , se dovessi far partire il gruppo di celle da C4 come dovrei modificare lo script, e potresti spigarmi come lavora in modo da cominciare a ragionarci io.
grazie ancora . |
| | Post: 3.201 | Registrato il: 06/04/2013
| Utente Master | 2010 | | OFFLINE |
|
15/07/2021 09:10 | |
ciao
lavora semplicemente partendo dal basso, quindi dall'ultima riga fino alla seconda.
Legge l'intera riga cella per cella e se la superiore ha m1 etc modifica la riga corrente e così via.
saluti
Domenico
Win 10 - Excel 2016 |
|
|