Sutun değerlerini karşılaştırma

[kemal turan]

Merhaba,
Ek dosyada açıkladığım aynı sayfada 2 sutunu karşılaştırıp üçüncü bir sutuna sonuç yazdıracak kod a ihtiyacım var.
Teşekkür ederim.

 

[kemal turan]

Merhaba
Ustalarımızdan ögrendiklerimle oluşturduğum aşağıdaki kod la sorunu çözdüm.
Bir kardeşimize yarar umudu ile,
Not: telefondan yazdığım için 1 nci koşulu yazabildim.Yarın tam kodu revize ederim.
Teşekkürler

Sub hesap ()
Sheets ("sayfa1").select
[P2:p10000].clearcontents
For i= 2 to Cells (65536, "O").End (xlUp)
Row
If Cells(i, "O").value  <>"" and Cells (i,  "O").value  = Then
Cells (i, "p").value = "sevkte"
End if
Next ı
.......
End sub

 

[askm]

Yapmaya çalıştığınız bu işlem için makroya gerek yok. Eğer formülü ile çok basit yapabilirsiniz.
Aşağıdaki formul işinizi görür.
=EĞER(O2="";"";EĞER(O2=0;"Sevkte";EĞER(VE(O2>0;O2<E2);"EKSİK SEVK";EĞER(VE(O2>0;O2=E2);"TAM SEVK";"HATALI SEVK"))))

 

[kemal turan]

merhaba Sn.Askm
İşlem bir veri tabanında olduğu için kod ile yapılması lazım.
Kod ile "O" sutununda dolu olanlara işlem yapıyor.
Formül ile olur fakat formülü p sutunundaki bütün hücrelere uygulamanız lazım.
Bu durumda veri tabanında veriler çoğaldığında excel çalışamaz hale gelir.
İlginiz için teşekkür ederim.
Selametle kalınız.

 

[askm]

Aşağıdaki kodları kullanabilirsiniz.

Sub askm_kontrol()
Application.ScreenUpdating = False
Sheets("sayfa1").Select
[P2:p10000].ClearContents
SonSatir = Cells(65536, "O").End(xlUp).Row
For i = 2 To SonSatir
If Cells(i, "O").Value <> "" Then
If Cells(i, "O").Value = 0 Then
    Cells(i, "p").Value = "SEVKTE"
ElseIf Cells(i, "O").Value > 0 And Cells(i, "O").Value = Cells(i, "E").Value Then
    Cells(i, "p").Value = "TAM SEVK"
ElseIf Cells(i, "O").Value > 0 And Cells(i, "O").Value < Cells(i, "E").Value Then
    Cells(i, "p").Value = "EKSİK SEVK"
ElseIf Cells(i, "O").Value > 0 And Cells(i, "O").Value > Cells(i, "E").Value Then
    Cells(i, "p").Value = "HATALI SEVK"
End If
End If
Next i
MsgBox "İşleminiz tamamlanmıştır.", vbInformation, "ASKM"
Application.ScreenUpdating = True
End Sub

 

[kemal turan]

Çok teşekkür ederim
Selametle kalınız