numeric ve string değerleri karşılaştırmak

[excellcan]

Forumda emeği geçen herkese merhaba. A sütununda sayısal ve string değerler
var. A sütunundaki değer sayısal bir değerse C sütunu ile karşılaştırma yapacak
eşleşme varsa E sütununa 1 yoksa 0 yazacak. Aynı şekilde A sütunundaki değer string bir değerse D sütunu ile karşılaştıracak eşleşme varsa E sütununa 1
değilse 0 yazacak. İlgilenen arkadaşlara şimdiden teşekkürler.

 

[Orion1]

Dosyanız ektedir.

Sub karsilastir_59()
Dim i As Long, sat As Long
'coder:evrengizlen@hotmail.com
'date:3-10-2011
sat = Cells(1040000, "A").End(xlUp).Row
Application.ScreenUpdating = False
Range("E:E").Clear
For i = 2 To sat
    If IsNumeric(Cells(i, "A").Value) Then
        If Cells(i, "A").Value = Cells(i, "C").Value Then
            Cells(i, "E").Value = 1
            Else
            Cells(i, "E").Value = 0
        End If
        Else
        If Cells(i, "A").Value = Cells(i, "D").Value Then
            Cells(i, "E").Value = 1
            Else
            Cells(i, "E").Value = 0
        End If
    End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamamdır." & vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
        
End Sub

 

[excellcan]

Dosyanız ektedir.

Sub karsilastir_59()
Dim i As Long, sat As Long
'coder:evrengizlen@hotmail.com
'date:3-10-2011
sat = Cells(1040000, "A").End(xlUp).Row
Application.ScreenUpdating = False
Range("E:E").Clear
For i = 2 To sat
    If IsNumeric(Cells(i, "A").Value) Then
        If Cells(i, "A").Value = Cells(i, "C").Value Then
            Cells(i, "E").Value = 1
            Else
            Cells(i, "E").Value = 0
        End If
        Else
        If Cells(i, "A").Value = Cells(i, "D").Value Then
            Cells(i, "E").Value = 1
            Else
            Cells(i, "E").Value = 0
        End If
    End If
Next i
Application.ScreenUpdating = True
MsgBox "İşlem tamamdır." & vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
        
End Sub

Hocam çok teşekkür ederim. Karışık değerlerin karşılaştırması beni ürkütüyordu. Sayenizde kolayladım. İçiçe if döngüsü kullanırken de sıkıntım vardı. Yazdığınız kod bu açıdan da ilham verici oldu. Tekrar teşekkürler.