içiçe If kullanımı

[muratozmenler]

A sütunu B sütunundan küçük yada eşit olursa bana uyarı veriyor ama uyarıyı sadece bir tane uyan için veriyor devam etmiyor bunu nasıl çözebilirim burada araştırdım bulduğum örneklere dayanarak bu kadar yapabildim ama yanlışlıklar yapmış olabilirim çünkü kod çok uzun bunun kısa halide vardır eminim bu konuda yardım istiyordum..
bunu 50 satır için yapacaktım 23 e kadar yaptım ben bu şekil..

 

[Necdet]

Ne yapmak istediğiniz pek anlaşılmıyor.
Aşağıdaki kodları deneyin belki düşündüğünüz çözümdür.

Sub auto_open()
Sheets("Sayfa1").Select
Dim i, Adet As Long
Adet = 0
Application.ScreenUpdating = False
For i = 1 To [A65536].End(3).Row
    If Cells(i, "A") <= Cells(i, "B") Then
        Adet = Adet + 1
        MsgBox i & ". Satırda Bir İş Varda Ne Var, Ben Anlamadım"
        Cells(i, "C").Interior.ColorIndex = 3
    End If
Next i
Application.ScreenUpdating = True
If Adet = 0 Then
    MsgBox "Hiç Bir Satırda İş Yok, Ben bulamadım..."
Else
    MsgBox Adet & " Adet Satırda Valla Acayip İş Var"
End If
End Sub

 

[peker]

ınceleyın

Slm vermıs oldugunu ornek dosyayı bıraz kurcaladım. Eger ve kosullu bıcımlendırme ıle sanırım oldu.

 

[muratozmenler]

çok teşekkür ediyorum ne demek istediğimi tam olarak anlamışsınız doğru çözüm tekrar tekrar teşekkür ederim...
AYRICA BUNU BELİRTEYİM O ZAMAN JENARATÖRÜN ÇALIŞMA SAATİNDEN BELLİ BİR SÜRE GEÇTİĞİ ZAMAN YAĞI DEĞİŞECEK +FİLTRESİ DEĞİŞECEK +HAVA FİLTRESİ DEĞİŞECEK +MAZOT ALIMI YAPILACAK ... GİBİ BİRÇOK İŞTE KULLANACAĞIM.. YANİ 80 ADET JENARATÖRÜN BİR ÇOK İŞİMDE

 

[Necdet]

çok teşekkür ediyorum ne demek istediğimi tam olarak anlamışsınız doğru çözüm tekrar tekrar teşekkür ederim...
AYRICA BUNU BELİRTEYİM O ZAMAN JENARATÖRÜN ÇALIŞMA SAATİNDEN BELLİ BİR SÜRE GEÇTİĞİ ZAMAN YAĞI DEĞİŞECEK +FİLTRESİ DEĞİŞECEK +HAVA FİLTRESİ DEĞİŞECEK +MAZOT ALIMI YAPILACAK ... GİBİ BİRÇOK İŞTE KULLANACAĞIM.. YANİ 80 ADET JENARATÖRÜN BİR ÇOK İŞİMDE

Sizin adınıza sevindim, örneği çok amaçlı kullanabileceğiniz için.
İyi Akşamlar.