2 ayrı döngüyü bir butona bağlamak , Yada EĞER kullanarak bir kodu revize etmek.

[Muttaki]

Merhaba arkadaşlar ;

Konu başlığı biraz tuhaf gelmiş olabilir fakat ; daha önceden arkadaşlarımın yardımı ile yazdığım bir uygulamanın kodlarında bir revizyona ihtiyacım var.

Bu konuda yardımcı olabileceklere şimdiden teşekkürler.

Gelelim sadedimize ;

Aşağıdaki kod eğer J sütunundaki herhangi bir değer "0" SIFIR ise "Elde stok Yok" değerini hücre içerisine yazıyor.

Fakat bu sefer ; Bu kodu bağladığım "Miktar Kontrol" butonunun işlevselliğini başka bir ifade ile niteliğini artırmam gerekiyor.

J sütununun kontolüne ayrıyetten I sütununun kontrolünü de eklemem gerekiyor , bu durum YADA ifadesini başka bir ifade ile bağlacını kullanmamı gerektiriyor.Aynı zamanda EĞER ifadesini I sütunu içinde kullanmam gerekiyor.

I sütunundaki rakamdan J sütunundaki rakam küçük ise J deki küçük rakamı sil ve aynı hücreye "Stok Miktarı Yetersiz + Value" Yaz.


Örneklemek Gerekirse

MEVCUT DATA===================================

Miktar Depo Miktarı

7654 6895
1425 1425
3000 2950
23 0

=============================================

Sonuç

Miktar Depo Miktarı
------ --------------

7654 Eldeki Miktar Yetersiz 6895
1425 1425
3000 Eldeki Miktar Yetersiz 2950
23 Elde stok Yok

==============================================

Private Sub CommandButton4_Click()
Dim Say As Byte, bul As Range
Say = Range("J108").End(3).Row
Set kontrol = Range("J9:J" & Say).Find("ELDE STOK YOK", , , 1)
If Not kontrol Is Nothing Then
MsgBox "DAHA ÖNCE MİKTAR KONTROLÜ YAPILMIŞ", 64, "Uyarı Mesajı" '"Www.ExcelVBA.Net"
Exit Sub
End If
If WorksheetFunction.CountIf(Range("J9:J" & Say), 0) = 0 Then MsgBox "MİKTAR HATASI YOK,DEPODAKİ TÜM MİKTARLAR YETERLİ": Exit Sub
  For Each bul In Range("J9:J" & Say)
    If CStr(bul.Value) = CStr(0) Then
       bul.Value = "Elde Stok Yok"
       bul.Font.ColorIndex = 3
       bul.Font.Bold = True
       bul.Offset(0, -1).Font.ColorIndex = 2
       bul.Offset(0, -1).Font.Bold = True
           
       bul.Offset(0, -2).Font.ColorIndex = 2
       bul.Offset(0, -2).Font.Bold = True
       
       bul.Offset(0, -3).Font.ColorIndex = 2
       bul.Offset(0, -3).Font.Bold = True
       bul.Offset(0, -4).Font.ColorIndex = 2
       bul.Offset(0, -4).Font.Bold = True
       bul.Offset(0, 1).Font.ColorIndex = 2
       
       
       bul.Offset(0, 2).Font.ColorIndex = 2
       bul.Offset(0, 2).Font.Bold = True
       
       bul.Offset(0, 3).Font.ColorIndex = 2
       bul.Offset(0, 3).Font.Bold = True
       
       bul.Offset(0, 4).Font.ColorIndex = 2
       bul.Offset(0, 4).Font.Bold = True
       bul.Offset(0, 4).Value = 0
       bul.Offset(0, 5).Font.ColorIndex = 2
       bul.Offset(0, 5).Font.Bold = True
       bul.Offset(0, 5).Value = 0
       bul.Offset(0, 6).Font.ColorIndex = 2
       bul.Offset(0, 6).Font.Bold = True
       bul.Offset(0, 6).Value = 0
       bul.Offset(0, 7).Font.ColorIndex = 2
       bul.Offset(0, 7).Font.Bold = True
       bul.Offset(0, 7).Value = 0
       bul.Offset(0, 8).Font.ColorIndex = 2
       bul.Offset(0, 8).Font.Bold = True
       bul.Offset(0, 8).Value = 0
       bul.Offset(0, 9).Font.ColorIndex = 2
       bul.Offset(0, 9).Font.Bold = True
       bul.Offset(0, 9).Value = 0
      
       
       Range(bul.Offset(0, -9).Address(False, False) & ":" & bul.Offset(0, 9).Address(False, False)).Interior.ColorIndex = 1
        
       'Else
        'MsgBox "MİKTAR HATASI YOK !"
        
       End If
      
       
       Next bul
       
                      
End Sub

Teşekkürler