Union Method

Sorry, My english is bad. What is the problem in below codes;

Sub satirsec()
On Error Resume Next
For i = 2 To 100 Step 2
If bolge.Address = Empty Then
Set bolge = Cells(i, 1)
Else
Set bolge = Application.Union(Range(bolge.Address), Range(Cells(i, 1).Address))
End If
Next i
Range(bolge.Address).EntireRow.Select
End Sub

My other codes...

2...66 rows selected after stop

Sub satirsec()
Dim erd()
say = -1
For i = 2 To 1500 Step 2
say = say + 1
ReDim Preserve erd(say)
erd(say) = Cells(i, 1).Address(False, False)
Next i

For a = 0 To UBound(erd)
If a = 0 Then
Set kelebek = Range(erd(a)).EntireRow
Else
Set kelebek = Union(Range(kelebek.Address), Range(erd(a)).EntireRow)
End If
Next a
Range(kelebek.Address).Select
End Sub

Excuse me...

Sorry, My english is bad. What is the problem in below codes;

Please Login or Register  to view this content.