Flash,
ti ringrazio veramente, funziona alla grande ed è velocissimo.
Ti sono debitore....ora che mi sto intrippando con le macro voglio provare altre cose....e sicuramente avrò bisogno del tuo aiuto.
Thanks
Moderatori: Anthony47, Flash30005
Sub ImportaDatiAnth()
Dim Varr1, VArr2
Range("T2:W2").ClearContents '<<<< si può togliere
[T2] = Timer '<<<< si può togliere
Application.ScreenUpdating = False
Application.Calculation = xlManual
Perc = ThisWorkbook.Path
NomeF = ThisWorkbook.Name
Dim Ws1, Ws4 As Worksheet
Set Ws1 = Worksheets("Dati")
Worksheets("Dati").Range("P1:P10000").ClearContents
Varr1 = Ws1.Range("B1:B10000")
For NF = 1 To 2
NFile = "listino_figlio" & NF & ".xls"
ColF = 14
ColP = 8
If NF = 2 Then
ColF = 12
ColP = 13
End If
FileT = Perc & "\" & NFile
Workbooks.Open(FileT).Activate
Set Ws4 = Workbooks(NFile).Worksheets("Foglio1")
URF = Ws4.Range("N" & Rows.Count).End(xlUp).Row
Workbooks(NomeF).Activate
VArr2 = Ws4.Cells(1, ColF).Resize(URF + 2, 1)
For RRF = 2 To URF
RRM = Application.Match(VArr2(RRF, 1), Varr1, 0)
If Not IsError(RRM) Then Ws1.Range("P" & RRM).Value = Ws4.Cells(RRF, ColP).Value
Next RRF
Workbooks(NFile).Close savechanges:=False
If NF = 1 Then ' <<<< si può togliere
[U2] = Timer - [T2] '<<<< si può togliere
[V2] = Timer '<<<< si può togliere
Application.ScreenUpdating = True '<<<< si può togliere
Application.ScreenUpdating = False '<<<< si può togliere
End If '<<<< si può togliere
Next NF
On Error GoTo 0
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
[W2] = Timer - [V2] '<<<< si può togliere
End Sub
RRM = Application.WorksheetFunction.Match(Ws4.Cells(RRF, ColF), Ws1.Range("B1:B" & URM), 0)
in
RRM = Application.Match(Ws4.Cells(RRF, ColF), Ws1.Range("B1:B" & URM), 0)
RRM = Application.WorksheetFunction.Match(Matr4(RRF, 1), Ws1.Range("B1:B" & URM), 0)
in
RRM = Application.Match(Matr4(RRF, 1), Ws1.Range("B1:B" & URM), 0)
RRM = Application.Match(VArr2(RRF, 1), Varr1, 0)
in
RRM = Application.Match(VArr2(RRF, 1), Ws1.Range("B1:B10000"), 0)
Torna a Applicazioni Office Windows
Problema con macro copia e rinomina file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 2 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Macro che ricerca combinazioni che danno un valore Autore: kar64 |
Forum: Applicazioni Office Windows Risposte: 10 |
Macro che indica la riga prima della cella attiva Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 19 |
Excel 2016 - Funzione SCARTO + INDIRETTO Autore: pl1957 |
Forum: Applicazioni Office Windows Risposte: 2 |
Visitano il forum: Nessuno e 50 ospiti