Else Komutları

[musaagac]

Arkadaşlar ekteki çalışmada J sutunu

% 80 Altı İse A Sütununda Yeterli Stok
% 80 Üstü İse A Sütunu Kritik Stok
% 100 ise A Sütunu sipariş bitti
Eğer E sutunu Sıfır ise A Sutununa Sipariş hakkı yok yazsın istiyorum yardımcı olurmusunuz

 

[ÖmerBey]

Böyle bir şey sanırım

=EĞER(E1=0;"SİPARİŞ HAKKI YOK";EĞER(E1<80;"YETERLİ STOK";EĞER(E1=100;"SİPARİŞ BİTTİ";"KRİTİK STOK")))

Bu da yüzdeli olan sonradan farkettim de

=EĞER(E1=0%;"SİPARİŞ HAKKI YOK";EĞER(E1<80%;"YETERLİ STOK";EĞER(E1=100%;"SİPARİŞ BİTTİ";"KRİTİK STOK")))

 

[Necdet]

Merhaba,

Fonksiyonlarla mı istiyorsunuz VBA kodları ile mi?

Makro ile istiyorsanız kodlarınızda J sütununa bakıyor gibi görünüyor.

 

[musaagac]

Kodları istiyorum. Evet J sutununa bakıyor. J Sutunundaki değer % 80 ve Üzeri ise Kritik Sipariş, Altı İse YETERLİ SİPARİŞ, % 100 ise sipariş bitti yazmalı A Sütununa

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?

Sub StokDurumu()
 
    Dim SonSat  As Long, _
        i       As Long
 
    Application.ScreenUpdating = False
 
    SonSat = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
    Range("A3:A" & SonSat).ClearContents
 
    For i = 3 To SonSat
        If Cells(i, "J") = 0 Then
            Cells(i, "A") = "Sipariş Hakkı Yok"
        ElseIf Cells(i, "J") <= 0.8 Then
            Cells(i, "A") = "Yeterli Stok"
        ElseIf Cells(i, "J") < 1 Then
            Cells(i, "A") = "Kritik Stok"
        Else
            Cells(i, "A") = "Sipariş Bitti"
        End If
    Next i

 
    Application.ScreenUpdating = True
    MsgBox "İŞLEM TAMAMLANMIŞTIR...", vbInformation
 
End Sub

 

[musaagac]

Hocam Ekteki çalışmaya yeri ekledim ama olmadı. Sipariş Yok Hakkı J sutununda değilde E Sutununa bakıyor. Orayı Değiştirdim.

 

[musaagac]

Hocam Ekteki çalışma üzerinde yaparmısınız ?

 

[Necdet]

Hocam Ekteki çalışmaya yeri ekledim ama olmadı. Sipariş Yok Hakkı J sutununda değilde E Sutununa bakıyor. Orayı Değiştirdim.

Hocam Ekteki çalışma üzerinde yaparmısınız ?

Verdiğim kodlarda da J sütununa bakıyor. Siz hangi sütuna göre istiyorsanız koddaki o sütun adını değiştirin olsun bitsin.

J ise J, E ise E yazın, kodlarda bunu açık açık yazdım ki anlaşılsın diye.