Sayıları birbiri ile mukayese etme

[DODOTRK]

Selamlar ,

Yardım lütfen ...
" Eğer A sütunundaki değerler , B sütunundaki değerlerden büyük ise " ; o kurala uyan tüm verileri ayrı bir sheet e taşımak ?

Teşekkürer,
Kolay gelsin ,

 

[Orion1]

Buyurun.

If Sheets("Sheet1").Range("A1").Value > Sheets("Sheet1").Range("B1").Value Then
    Sheets("Sheet2").Range("A1").Value = Sheets("Sheet1").Range("A1").Value
End If

 

[DODOTRK]

Formülü kopyaladım . teşekkürler ama ;

Run-time error "28":

Out of stack space mesajı veriyor ve Debug yaptığımda da ;

Sub Macro1()
'
' Macro1 Macro
' If Sheets("Sheet1").Range("A1").Value > Sheets("Sheet1").Range("B1").Value Then Sheets("Sheet2").Range("A1").Value = Sheets("Sheet1").Range("A1").Value End If
'

'
Application.Run "Book1!Macro1"
Application.Goto Reference:="Macro1"
Application.Run "Book1!Macro1"
End Sub

 

[Orion1]

Dosyanız aşağıdaki linktedir..

DOSYAYI İNDİR

.....