[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