Ma non è ciò che ho fatto?
Nella immagine allegata come si evince, ho messo l'apice sul vecchio codice e, sotto, vi è la correzione; dove sto sbagliando?
Ciao
Moderatori: Anthony47, Flash30005
Sub lpMultiDisord()
'Versione B41121; per cerca su tutto l' elenco
Dim VArr, I As Long, CPos As Long, TVal As Long, LB2 As Long, myMatch, MErr As String
Sheets("At").Select
myTim = Timer
'''CPos = Application.WorksheetFunction.CountIf(Range("J:J"), ">=0")
CPos = Application.WorksheetFunction.Count(Range("J:J"))
'
VArr = Range("C5").Resize(CPos, 8).Value
LB2 = LBound(VArr, 2)
Application.Calculation = xlCalculationManual
'
For Each mynum In Range("E1:I1")
If mynum.Value > 0 And mynum.Value <= 90 Then
TVal = mynum.Value
With Sheets("Tab")
For I = LBound(VArr, 1) To UBound(VArr, 1)
If VArr(I, LB2 + 1) = TVal And VArr(I, LB2 + 7) >= 0 Then
myMatch = Evaluate("=min(if((Tab!A9:A500=""" & VArr(I, LB2) & """)*(Tab!B9:B500=""" & VArr(I, LB2 + 3) & """),row(Tab!A9:A500),""""))")
If Not IsError(myMatch) Then
If VArr(I, LB2 + 4) > .Cells(myMatch, 2 + TVal).Value And _
VArr(I, LB2 + 3) = mynum.Offset(1, 0).Value Then
.Cells(myMatch, 2 + TVal).Value = VArr(I, LB2 + 4)
End If
Else
MErr = MErr & "; " & VArr(I, LB2)
End If
End If
Next I
End With
End If
Next mynum
Application.Calculation = xlCalculationAutomatic
'
If Len(MErr) > 0 Then
MsgBox ("Ci sono stati errori nell' identificazione di Ruo-Pos" & vbCrLf & Left(mess, 100))
End If
MsgBox ("Terminato in (sec): " & Format(Timer - myTim, "0.00"))
End Sub
Scusami ma ho ancora una domanda:
Poiché ho la necessità di aggiungere due o tre righe sopra, basta solo modificare il range di inizio?
(VArr = Range("C6").Resize(CPos, 8).Value
Che passerebbe dall'attuale C6 a C8, oppure vi è qualche altra cosa da fare?
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 81 ospiti