vorrei copiare dei dati tra 2 files aventi la stessa intestazione (colonna x colonna), però il mio listato produce un errore.
la procedura è:
1) apro il file di lavoro
2) attivo la macro IMPORTA
3) leggo in quale riga si trova l'intestazione ("descrizione")
4) confronto le celle delle 2 intestazioni
5) se sono uguali copio le righe successive
6) chiudo il file
MI potete indicare dove si trova l'errore:
- Codice: Seleziona tutto
Sub IMPORTA()
FILE_LAV = ActiveWorkbook.Name
FileToOpen = Application.GetOpenFilename(Title:="Scegli il FILE da importare", FileFilter:="Excel Files *.xls (*.xls),")
If FileToOpen = False Then
MsgBox "File non indicato!", vbExclamation, ""
Exit Sub
Else
Workbooks.Open (FileToOpen)
For Each C1 In ActiveSheet.Range("A1:AA100")
If C1 = "Descrizione" Then NRint = Cl.Row
Next
NRI = Evaluate("=Max(if(" & Range("A1").Resize(1000, 40).Address & "<>"""",row(" & Range("A1").Resize(1000, 40).Address & "),""""))")
For J1 = 1 To 30
For J2 = 1 To 22
If Workbooks(FILE_LAV).Worksheet(1).Cells(13, J1) = Workbooks(FileToOpen).Worksheet(1).Cells(NRint, J2) Then
Workbooks(FileToOpen).Worksheet(1).Range(Cells(NRint, J1), Cells(NRI, J1)).Copy
Workbooks(FILE_LAV).Worksheet(1).Cells(14, J2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End If
Next J2
Next J1
Workbooks(FileToOpen).Close savechanges = False
End If
End Sub
Grazie