bakiye kontrolü

[1903emre34@gmail.com]

Merhaba arkadaşlar ekte dosya açıkladım ilgilenen arkadaşlara teşekkürler

 

[hamitcan]

Sub Kontrol()
    Columns("g").Clear
    For i = 4 To [a65536].End(3).Row
        If Cells(i, 1) = "100" Then
        If Cells(i, 5) >= 7000 Or Cells(i, 6) >= 7000 Then
            Cells(i, "g") = "7000 den büyük"
        End If
        End If
    Next
End Sub

 

[1903emre34@gmail.com]

hocam teşekkürler

MsgBox aracılığıyla bulunduğunda şu hücrelerde bulunmaktadır yoksa herhangi bir şey bulunamadı yazısına dair nasıl kod oluşturabiliriz

 

[hamitcan]

Yoksa devamlı mesaj verdirmek doğru değil ama hiç birşey bulunamadığında mesaj verdirmek daha doğru.

Sub Kontrol()
    Columns("g").Clear
    For i = 4 To [a65536].End(3).Row
        If Cells(i, 1) = "100" Then
        If Cells(i, 5) >= 7000 Or Cells(i, 6) >= 7000 Then
            Cells(i, "g") = "7000 den büyük"
        End If
        End If
    Next
    If WorksheetFunction.CountA(Columns("g")) = 0 Then MsgBox "Hiçbirşey bulunamadı"
End Sub

 

[1903emre34@gmail.com]

ben burada örnekleme ile kısa yaptım normalde satır sayısı fazla olduğu için hangi hücrede belirten mesaj daha kolay oluyor