La macro legge il valore maggiore di 0(zero) in colonna F e, trovato il valore maggiore di zero, copia le tre celle
a sx incollandoli in colonna H sempre nello stesso range. Tutto bene funziona bene ed è molto veloce. L’aiuto
che cerco è anziché sovrascrivere i dati di accodarli ogni qual volta si esegue la macro. Ho provato a “remmare”
il rigo di codice inerente alla cancellazione del range ma non è servito a nulla. Se non si riesce a modificare la
macro e, se ne suggerisce una nuova con caratteristiche uguali, sarà molto gradita.
Allego anche il file, per non far perdere tempo a chi mi vuole aiutare in caso di prove.
Ringraziando anticipatamente tutti coloro che mi aiuteranno ... 73 ikwae
https://www.dropbox.com/s/a63cdng16tjda ... i.zip?dl=0
- Codice: Seleziona tutto
Sub Maggiore_Di_Zero()
Dim CL As Range
Dim Matr()
Dim Indice As Long
Dim r As Long
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Indice = 1
ReDim Matr(1 To Rows.Count, 1 To 4)
For Each CL In Range("F3:F117482")
If CL.Value >= 1 Then
Matr(Indice, 1) = Cells(CL.Row, 3).Value
Matr(Indice, 2) = Cells(CL.Row, 4).Value
Matr(Indice, 3) = Cells(CL.Row, 5).Value
Matr(Indice, 4) = Cells(CL.Row, 6).Value
Indice = Indice + 1
End If
Next
Range("H2:K" & Rows.Count).ClearContents
For Indice = 1 To Rows.Count
If Matr(Indice, 1) = "" Then GoTo Esci
'
For r = 8 To 11
Cells(Indice + 2, r).Value = Matr(Indice, r - 7)
Next r
Next Indice
Esci:
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic
Set CL = Nothing
End Sub