Nel foglio excel ho una tabella, formata dalle colonne A B e C con righe dalla 1 alla 10.
La macro che ho progettato in teoria dovrebbe prendere dei numeri situati nella colonna A e creare un foglio per ognuno di questi, e fin qui tutto ok.
Il problema sopraggiunge quando Io cerco in pratica di captare per ogni riga i numeri nella colonna A e un titolo nella colonna B. in modo da scriverli su ogni foglio (ovviamente i numeri e i titoli corrispondenti)
Per semplicità riporto prima una tabella esempio e poi la macro
A B
111 ottimo
123 distinto
124 buono
etc.
Commentato in questo modo il codice mi da errore 1004
- Codice: Seleziona tutto
Sub AvviaMacroSuTutti()
numsheets = ThisWorkbook.Sheets.Count
'MsgBox numSheets (28)
For j = 1 To numsheets
Dim nogg As Integer
Dim titolo
titolo = WorksheetFunction.VLookup(Worksheets("Foglio1").Range("A" & j), Worksheets("Foglio1").Range("A1:C10"), 2, False)
'nogg = WorksheetFunction.VLookup(Worksheets("Foglio1").Range("A" & j), Worksheets("Foglio1").Range("A1:C10"), 1, False)
'Worksheets(nogg).Activate
Cells(15, i).Value = titolo
Next
End Sub
Mentre se decommento anche nogg e worksheet.activate mi da un errore di overflow.
Da che può dipendere?
Grazie a tutti