Ciao a tutti,
ho un problema con una variabile nel metodo Find, mi restituisce Tipo non corrispondente, però in un'altra parte di codice. Il codice identico funziona correttamente.
Il problema è nel form (Variazioni) attivabile con Modifica.
Funzionamento: nella textbox "Ricerca per rif. TFA" inserisco il rif. (colonna A) e mi riporta tutti i dati relativa alla riga del rif. scelto nel form;
Poi selezionando la checkbox in basso a dx (spuntare per salvare nota di credito), vengono inabilitate parecchie celle in quanto dati di non interesse;
Ora al click "Salva nota di credito" carica il seguente codice, lo scopo di questo è verificare che il rif. esista o no, perchè se esiste deve trovarmi il n° della riga relativa e salvare le nuove info in quella riga, altrimenti mi deve creare una nuova riga alla fine dell'elenco. Il problema è nella variabile "c" (6^ riga)
se uso Set c=.... mi da errore "necessario oggetto" (con o senza .Adrress finale)
invece se uso c=.... mi da errore "tipo non corrispondente"
Dim rng As Range
Dim TFA, iRR, c As String
Dim vTemp As Variant
TFA = "# " & Variazioni.txtTFA.Text & "CN"
With Range("A:A")
c = .Find(TFA, LookIn:=xlValues, lookat:=xlWhole).Address
If c Is Nothing Then
iRR = 4
vTemp = Worksheets("ELENCO").Cells(iRR, 1).Value
Do While Not IsEmpty(vTemp)
iRR = iRR + 1
vTemp = Worksheets("ELENCO").Cells(iRR, 1).Value
Loop
Else
indirizzo = Split(iRR, "$")
iRR = indirizzo(2)
End If
End With
Spero di essere stato chiaro nelle spiegazione, Grazie mille dell'aiuto che sicuramente riuscirete a darmi.
Grazie mille
ciao