Una famiglia di software per fogli di calcolo Microsoft con strumenti per l'analisi, la creazione di grafici e la comunicazione dei dati.
Allora, ho provato a fare tutto come dovevo, ma purtroppo non va... ho provato a modificare anche qualcosa, ma non riesco....
In pratica, il mio foglio ha varie colonne. Le 4 variabili (191, etc) sono nella colonna C, il numero che determina l'attribuzione ad uno dei soggetti è nella colonna E e il nome con cui viene associato al numero il nome dovrebbe comparire nella colonna F.
Ho provato a modificare il tuo post precedente in questo modo, ma non ho cavato un ragno dal buco:
<cut>
Come posso fare????
Io ho chiesto in un precedente post:
Prima che posti una soluzione inutile, puoi per favore fare tutti i casi possibili relativi ad A2 B2? Grazie.
Avresti potuto spiegare *prima* che le colonne erano diverse. Chi risponde dedica(gratuitamente) del tempo. Sarebbe molto bello che chi domanda avesse le ideee chiare e spiegasse chiaramente il suo problema, anche per evitare post e post che girano attorno al problema. Prova:
Public Sub m()
Dim sh As Worksheet
Dim lRiga As Long
Dim rng As Range
Dim c As Range
Set sh = ThisWorkbook.Worksheets("Foglio1")
With sh
lRiga = .Range("E" & .Rows.Count).End(xlUp).Row
Set rng = .Range("E2:E" & lRiga)
For Each c In rng
Select Case c.Offset(0, -2).Value
Case 196
Select Case Right(c.Value, 1)
Case 1
c.Offset(0, 1).Value = "Tizio"
Case 2
c.Offset(0, 1).Value = "Caio"
Case 3
c.Offset(0, 1).Value = "Sempronio"
Case 4, 5, 6
c.Offset(0, 1).Value = "Mevio"
Case 7, 8, 9, 0
c.Offset(0, 1).Value = "Bruto"
Case Else
c.Offset(0, 1).Value = ""
End Select
Case 191
Select Case Right(c.Value, 1)
Case 1
c.Offset(0, 1).Value = "Tizio"
Case 2
c.Offset(0, 1).Value = "Caio"
Case 3
c.Offset(0, 1).Value = "Sempronio"
Case 4
c.Offset(0, 1).Value = "Primo"
Case 5, 6, 7, 8, 9
c.Offset(0, 1).Value = "Valerio"
Case 0
c.Offset(0, 1).Value = "Romeo"
Case Else
c.Offset(0, 1).Value = ""
End Select
Case 163
c.Offset(0, 1).Value = "Primo"
Case 166
c.Offset(0, 1).Value = "Mevio"
Case Else
c.Offset(0, 1).Value = ""
End Select
Next
End With
Set c = Nothing
Set rng = Nothing
Set sh = Nothing
End Sub
--
La soluzione, il codice ed i files sono forniti *così come sono* e l’autore declina ogni responsabilità per eventuali problemi causati dalla soluzione proposta se usata impropriamente. Create e utilizzate una copia del file per le vostre prove, *prima* di utilizzare la soluzione in files importanti.
--
Mauro Gamberini - Microsoft© MVP(Excel)