Moderatori: Anthony47, Flash30005
Sub CompaRieps2(ByVal shIndex As Long, rRiep As Worksheet)
Dim myVarr, LastM1 As Long, L As Long, myMatch
'
If shIndex < 3 Then Exit Sub
If Left(Worksheets(shIndex - 1).Name, 7) <> "ZcRiep_" Then Exit Sub
'
LastM1 = Sheets(shIndex - 1).Cells(Rows.Count, 1).End(xlUp).Row
myVarr = Sheets(shIndex - 1).Range("A1:F" & LastM1).Value 'B41105
For L = (LBound(myVarr, 1) + 1) To UBound(myVarr, 1)
myMatch = Application.Match(Trim(myVarr(L, 1)), Sheets(shIndex).Range("A:A"), 0)
If myVarr(L, 1) <> "ZcMiss" Then
If IsError(myMatch) Then
'tutto il Then e' cambiato, B41105
rRiep.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Value = myVarr(L, 1)
rRiep.Cells(Rows.Count, 1).End(xlUp).Offset(0, 3).Value = myVarr(L, 4)
rRiep.Cells(Rows.Count, 1).End(xlUp).Offset(0, 2).Value = myVarr(L, 2)
rRiep.Cells(Rows.Count, 1).End(xlUp).Offset(0, 4).Value = myVarr(L, 5)
rRiep.Cells(Rows.Count, 1).End(xlUp).Offset(0, 5).Value = myVarr(L, 6)
Else
If (rRiep.Cells(myMatch, 2).Value <> myVarr(L, 2)) Then
rRiep.Cells(myMatch, 3) = myVarr(L, 2)
rRiep.Cells(myMatch, 4) = myVarr(L, 1)
Else
rRiep.Cells(myMatch, 3) = 0
End If
End If
End If
Next L
End Sub
Call CompaRieps2(RIEP.Index, RIEP)
L’ informazione E’ GIA’ riportata nel foglio di Riepilogo, nelle colonne a partire da H in avanti (qt /Foglio).Vorrei riportarmi nel riepilogo creato con la macro, una colonna che mi indichi il nome del foglio in cui si trova quel codice.
Torna a Applicazioni Office Windows
Macro che scatta quando cambia dato in un altro file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 14 |
Problema con macro copia e rinomina file Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 2 |
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 |
Visitano il forum: Nessuno e 89 ospiti