Ciao Robby
grazie della risposta.
r ha usato la sua tastiera per scrivere :
> On 31 Gen, 21:01, teddyk <
domeNOV...@excite.it> wrote:
>> Buona sera!
>> Come da oggetto vi chiedo lumi a proposito della funzione cerca.vert.
>> Ho un listino, con il 70% di codici "numerici" a 9 cifre, cioè... sono
>> cifre ma formattate come testo.
>> SE DIGITO IL CODICE, l'errore che ricevo è #N/D, se copio incolla
>> speciale\solo valori va tutto bene.
>> Funziona tutto bene con l'altro 20% di codici, anche di 9 caratteri ma
> posta la formula così la correggiamo
=SE($A11="";"";CERCA.VERT($A11;'2012'!A:D;2;FALSO))
ottenuta dal codice seguente sull'evento "worksheet change"
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
Dim rCol As Range
If Target.Address = "$F$1" Then Range("A11").Activate
'ElseIf Target.Address = "$D$11" Then Range("C14").Activate
Set Rng = Me.Range("A:B, E:E")
Set Rng = Intersect(Rng, Me.Rows("11:" & Rows.Count))
Set Rng = Intersect(Rng, Target)
If Not Rng Is Nothing Then
On Error GoTo XIT
Application.EnableEvents = False
For Each rCol In Rng.Columns
With rCol
Select Case .Column
Case 1
.Offset(0, 2).FormulaR1C1 = _
"=IF(RC1="""","""",VLOOKUP(RC1,'2012'!C[-2]:C[1],2,FALSE))"
.Offset(0, 3).FormulaR1C1 = _
"=IF(RC1="""","""",VLOOKUP(RC1,'2012'!C[-3]:C[1],3,FALSE))"
.Offset(0, 5).FormulaR1C1 = _
"=IF(RC3="""","""",IF(RC5=100,GRATUIT,IF(RC5=110,GARANTIE,RC4*rc2*(1-RC5%))))"
Case 2
.Offset(0, 3).Select
Case 5
Me.Range("A" & Me.Rows.Count).End(xlUp)(2).Select
End Select
End With
Next rCol
End If
XIT:
Application.EnableEvents = True
End Sub
> saluti
> r