Limit rakamlarını kontrol etmek

[1903emre34@gmail.com]

Merhaba arkadaşlar

Aşağıdaki makro kodunda C sutunda işlem tutarları bulunmaktadır, D sütünda ise limit tutarları bulunmaktadır Limit tutarları aştığı takdirde sayfa 2 aktarılıyor benim istediğim, C sütünün yanında D sütünda araması limit tutarları E'de yer alıyor aşağıdaki makro kodunda nasıl değişiklik yaparız.

Sub x()
Dim i As Long, a As Long
Set sh2 = Sheets("Sayfa2")
a = Range("a65536").End(3).Row
Sayfa2.Range("A2:E1000").ClearContents
For i = 1 To a
If Val(Cells(i, 4)) - Val(Cells(i, 3)) < 0 Then
sh2.[a65536].End(3)(2, 1).Value = Cells(i, 1).Value
sh2.[a65536].End(3)(1, 2).Value = Cells(i, 2).Value
sh2.[a65536].End(3)(1, 3).Value = Cells(i, 3).Value
sh2.[a65536].End(3)(1, 4).Value = Cells(i, 4).Value
sh2.[a65536].End(3)(1, 5).Value = Val(Cells(i, 4)) - Val(Cells(i, 3))
End If
Next i
End Sub

 

[YUSUF44]

Tam olarak istediğinizi anlamadım ancak kodu açıklamak gerekirse

If Val(Cells(i, 4)) - Val(Cells(i, 3)) < 0 Then

Satırındaki i,4 ifadesi dördüncü yani D sütununu, i,3 ifadesi ise 3. yani C sütununu belirtmektedir.

 

[1903emre34@gmail.com]

Yusuf bey Teşekkürler cozdum