Sub MakroCalistir_2()
Dim say As Integer, i As Long
ReDim arr(1 To 1)
With Sayfa1
For i = 22 To 54
say = say + 1
ReDim Preserve arr(1 To say)
If .Range("M" & i).Interior.ColorIndex = 7 Then
arr(say).addr = .Cells(i, "M").Address
arr(say).val = .Cells(i, "M").Formula
If frm_bioclimatic.CheckBox2.Value = True Then .Cells(i, "M").Value = 0
End If
Next
End With
End Sub
Kodu böyle kullanın abey.Arr içinede aralık yazmaya gerek yok aslında 1 to 1 yeterli.