Do untıl

[Mortuus]

Merhabalar.

Do Until ile ilgili şöyle bir sorunum var, bir türlü üstesinden gelemedim. Yardımlarınız için şimdiden çok teşekkür ederim.

Örneğin, 1 nolu ID için 50 gün veya üzeri olan ilk kayıt D2 ye ait. "DX" alanına D2 yazacak. Sonra bir alt kayda geçip aynı işlemi tekrarlayacak.

ID DX - D1 - D2 - D3
1 D2 15 91 13
2 D1 67 27 46
3 D3 49 32 72

 

[Mortuus]

Do While ile yaptım. Umarım faydalı olur.


Sub DoWhile()

Columns("B:B").Insert Shift:=xlToRight
Range("B1").Value = "DX"

Dim i As Integer
Dim x As Integer

For i = 2 To 5
For x = 2 To 5

Do While Cells(i, x).Value >=50

Cells(i, x).End(xlUp).Select

Range("B" & i).Value = Selection.Value

x = 2
i = i + 1

Loop

Next x
Next i

Columns.AutoFit

End Sub