no si č ben capito a cosa ti servono i dati
ma sicuramente meglio che una serie infinita di IF č un codicillo in vba con CASE.
ti posto un esempio banale scopiazzato da internet
aggiungerei una colonna con la formula =REPLACE(A1;1;9;"") per avere solo il numero dello scaffale e poi
Codice:
Sub TheSelectCase3()
Select Case Range("A1").Value
Case 100
Range("B1").Value = 50
Case 150
Range("B1").Value = 40
Case 200
Range("B1").Value = 30
Case 350
Range("B1").Value = 20
Case 400
Range("B1").Value = 10
Case Else
Range("B1").Value = 0
End Select
__________________
"W la foca, che dio la benedoca"
poteva risolvere tutto la sinistra negli anni in cui ha governato e non l'ha fatto. O sono incapaci o sta bene anche a "loro" cosi.
L'una o l'altra inutile scandalizzarsi.[plutus]