For döngüsü aşağıdan yukarıya okuma

[maxcilopez]

Arkadaşlar elimde böyle bir kod var

Sub BirlestirYaz()
x = 1
For h = 4 To 62
For i = 1 To Range("c69").End(3).Row
For j = i + 1 To Range("c69").End(3).Row
If Cells(i, h) <> "" Then
If Cells(j, h) <> "" Then
If Cells(i, h) <> "" Then
Cells(x, "bo") = Cells(i, 3).Text & ":" & Cells(i, h).Text & " " & Cells(j, 3).Text & ":" & Cells(j, h).Text
x = x + 1
Exit For
End If
End If
End If
Next
Next
Next
MsgBox "Bitti..."
End Sub

Burada For i ve for j yi c1 den c 69 a doğru değilde c69 dan c 1 e doğru okumasını istiyorum

 

[Orion1]

Buyurun.

For i = Range("c69").End(3).Row To 1 Step -1
    For j = Range("c69").End(3).Row To 1 Step -1

 

[maxcilopez]

olmuyor ya acaba office 2003 kullandığım için mi ?

 

[Orion1]

o kodu bırakın.
Ne istediğinizi yazarsanız belki yardım edecek arkadaşlar olur.

 

[Orion1]

Birde bunu deneyin.

For i = Range("c69").End(3).Row To 1 Step -1
    For j = i - 1 To 1 Step -1

 

[maxcilopez]

Birde bunu deneyin.

For i = Range("c69").End(3).Row To 1 Step -1
    For j = i - 1 To 1 Step -1

Sağol çok teşekür ederim