[VBA] Πιο γρήγορος κώδικας

[misirlis]

Καλησπέρα σε ολους τους φίλους,μηπως θα μπορουσε ο πιο κατω κωδικας να γινει πιο γρηγορος.ευχαριστώ εκ των προτέρων.

Private Sub CommandButton1_Click()
Columns("O:Q").Select
Selection.ClearContents
Range("O1").Select

K = 0

Do

Set r = Range("G3:I1009")
For N = 1 To r.Rows.Count
If r.Cells(N, 1) >= 2 And r.Cells(N, 1) <= 5 Then

myva1 = r.Cells(N, 1)
myva2 = r.Cells(N, 2)
myva3 = r.Cells(N, 3)

Cells(4 + K, 15) = myva1
Cells(4 + K, 16) = myva2
Cells(4 + K, 17) = myva3

K = K + 1
End If
Next N
End
K = 0
Loop
End Sub

[Tasos]

Καλησπέρα!
Μάκη, δοκίμασε:

Private Sub CommandButton1_Click()
    With Sheet1  ' Το κωδικό όνομα του φύλλου όπως εμφανίζεται στον Project Explorer πχ: Sheet1(Φύλλο1)
        .Range("O3:O1009").FormulaR1C1 = "=IF(AND(RC7>=2,RC7<=5),IF(RC[-5]="""","""",RC[-5]),"""")"
        .Range("P3:Q1009").FormulaR1C1 = "=IF(RC[-1]="""","""",IF(RC[-5]="""","""",RC[-5]))"
        .Range("O3:Q1009").Value = .Range("O3:Q1009").Value
    End With
End Sub

Καλή συνέχεια!

Τάσος

[misirlis]

Ευχαριστώ Τάσο για την άμεση απάντηση,να είσαι καλά.