Programmazione.it :: Aiutino in VB

Ciao, per farti riconoscere devi fare il login. Non ti sei ancora iscritto? Che aspetti, registrati adesso!

Forum :: Programmazione.it :: Visual Basic :: Aiutino in VB

Scritto da vic1970 il 24-01-2007 ore 14:44

Mi servirebbe realizzare in VB un semplice cerca verticale in un foglio Excel. Mi sembra di aver capito che si puo' realizzare tramite la funzione Lookup, eppure il codice mi va in errore in run-time ("Tipo non corrispondente") proprio non appena incontra questa funzione.
Riporto qui di seguito un estratto del codice:

Sub CercaVerticale()
Dim Riga As Integer
Dim valore, result1 As String
Riga = 2
While Sheets("prova").Cells(Riga, 1) ""
valore = Sheets("prova").Cells(Riga, 1)
If (valore > 7) Then
result1 = Application.VLookup(valore, F2G16, 2, False)
Cells(Riga, 2) = result1
End If
Riga = Riga + 1
Wend
End Sub

Penso sia chiaro che vorrei confrontare i valori della colonna 1 (dall'8° valore) con la colonna F e recuperare il corrispondente valore nella colonna G, e porre il risultato nella colonna 2.
Ciao e grazie in anticipo a chi volesse darmi una mano!!

Precedente: Temporizzare uno script...

Successiva: programamtore java senior e junior

Intervento di Filippo Fadda a.k.a. dedalo del 26-01-2007 ore 01:14, Capriata d'orba (AL)

Duca

(1961 interventi)
Iscritto il 03-04-2001

Su quale riga esattamente si verifica l'errore?

Intervento di vic1970 del 26-01-2007 ore 12:18, Roma (RM)

Plebeo

(18 interventi)
Iscritto il 23-10-2006

Citazione:

Su quale riga esattamente si verifica l'errore?

sulla seguente riga:
result1 = Application.VLookup(valore, F2G16, 2, False)

Intervento di vic1970 del 26-01-2007 ore 12:19, Roma (RM)

Plebeo

(18 interventi)
Iscritto il 23-10-2006

Citazione:

Su quale riga esattamente si verifica l'errore?

sulla seguente riga:
result1 = Application.VLookup(valore, F2G16, 2, False)

In pratica "result1" e' ritornato con un errore!!

Copyright Programmazione.it™ 1999-2013. Alcuni diritti riservati. Testata giornalistica iscritta col n. 569 presso il Tribunale di Milano in data 14/10/2002. Pagina generata in 0.291 secondi.