Dovrei effettuare dei Cerca.vert su file divresi e chiusi. Avevo provato ad installare un componente aggiuntivo per utilizzare indirec.ext ma non mi funziona.
Ho trovato una macro su questo forum fatta da Anthony47(che per comodità allego) che cambiava il contenuto delle celle componendo un cerca.vert dinamico ma in fase di escuzione mi dà errore 1004 sull'istruzione
Range("E1").Formulalocal = myForm
Riuscite gentilmente ad aiutarmi?
Grazie, ciao.
- Codice: Seleziona tutto
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" And Target.Count = 1 Then '<< La cella col nome file
Dim myPath As String, myFile As String, myForm As String
myPath = "D:\PROVA\" '<< Il percorso dei file, con lo "\" finale
myFile = Range("B1").Value '<< La cella che contiene il nome file
myForm = "=CERCA.VERT(A1;'" & myPath & "[" & myFile & "]Giocatori'!$A$1:$C$1000;2;0)" '<< NomeFoglio e Intervallo
Range("E1").FormulaLocal = myForm
End If
End Sub