alınan siparişe göre üretim yapmam gerekiyor.

[jinken]

müşteriden gelen siparişe göre üretim yapmam gerekiyor. kodları bir birleri ile eşleştirmem gerekiyor.
daha sonra müşteriden gelen kodlara gelen elimde stoklardan mevcutmu
stoktaki mevcut kodları kontrol etmem gerekiyor
çalışma sayfasını ek olarak ekledim
yapmam istediğimi ekin içinde açıkladım
yardımlarınız için şimdiden teşekkür ederim.

 

[Ömer]

Bu şekilde deneyiniz.

Sub Raporla()
 
    Dim c As Range, d As Range, i As Long, deg As String
    Dim Sl As Worksheet, Ss As Worksheet, Sp As Worksheet
 
    Set Sl = Sheets("liste")
    Set Ss = Sheets("stokta bulunan ham ürünler")
    Set Sp = Sheets("siparişler")
 
    Application.ScreenUpdating = False
 
    Sheets("Rapor").Select
    Range("A2:C" & Rows.Count).ClearContents
    Sp.Range("A:B").Copy Range("A1")
    Range("C1") = "Durum"
 
    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
        Set c = Sl.[B:B].Find(Cells(i, "A"), , xlValues, xlWhole)
        If Not c Is Nothing Then
            deg = Sl.Cells(c.Row, "C")
            Set d = Ss.[A:A].Find(deg, , xlValues, xlWhole)
            If Not d Is Nothing Then
                If Ss.Cells(i, "C") - Sp.Cells(i, "C") < 0 Then
                    Cells(i, "C") = Ss.Cells(i, "C") - Sp.Cells(i, "C") & " Eksik"
                Else
                    Cells(i, "C") = Sp.Cells(i, "C") & " Uygundur"
                End If
            Else
                Cells(i, "C") = "Bulamadım"
            End If
        End If
    Next i
 
    Application.ScreenUpdating = True
 
End Sub

Dosya ektedir. Rapor sayfasındaki butonu kullanarak sonuçları gözlemleyiniz.

.

 

[jinken]

makro çalışmıyor ömer usta makro kullanmadan formul yardımı ile bunu halledemeyizmi.
raporla butonuna basınca hata veriyo makrolar bu sayfada değil diyor.

 

[Ömer]

Dosyayı açarken uyarı veriyor mu?

Ayrıca bu işlemi formül ile yaparız tabi fakat, data büyük olacağından çalışması çok yavaş olur. Bu yüzden tavsite etmem.

 

[jinken]

dosya açılışta uyarı vermedi fakat butona tıklayınca hata veriyor.
formul olarak yaparsan daha iyi olur nedenini soracak olursa ileride işime yarayabilir
mkrolardan hiç anlamıyorum öncelikle formullerin mantığını çözmem lazım
ben biraz ilerleme kaydettim
düşeyarama ile boyalı kodlarından ham kodlarını çekiyorum.sipariş sayfasına
sonra stoktaki ürünleri stok ve ham sipariş kodlarını bir sayfada toplayıp otomatik biçimlendirmeyş deniyorum bu şekildede olabilir
başka varsa yardım bekliyorum.
ilgin için çok teşekkür ederim.

 

[Ömer]

formul olarak yaparsan daha iyi olur.

Nasıl isterseniz.

Siparişler sayfası D2 hücresine yazarak alt satırlara kopyalayınız.

=EĞER(EHATALIYSA(DÜŞEYARA(İNDİS(liste!C:C;KAÇINCI(A3;liste!B:B;0))
 ;'stokta bulunan ham ürünler'!A:C;3;0));"Stokta Bulamadım"
  ;DÜŞEYARA(İNDİS(liste!C:C;KAÇINCI(A3;liste!B:B;0))
   ;'stokta bulunan ham ürünler'!A:C;3;0)-C3)

Daha sonra D sütunu fare ile seçin, seçili alanda sağ klik / hücre biçimlendirme / isteğe uyarlanmıştan / tür bölümüne;

[>=0]"Uygundur";[<0]#.##0" Eksik"

yazıp, tamam ile işlemi bitirin.

.

 

[jinken]

çok teşekkür ederim elleriniz dert görmesin...

bu formulleri nasıl öğrenebilirim hep bu şekilde devam etmez yani az çok biliyorum ama ileri seviyeye taşımak için ne yapmam gerekiyor acaba.

 

[jinken]

birde formuldeki mantığı yazı ile anlatabilirmisin.
son olarak.

 

[jinken]

ömer usta msn adresin varmı acaba başım sıkıntıya girdimi msn yada mail adresin olsun uygun olursa telefon numaranı bile verebilirsin bu exel formul işine fena halde takmış durumdayım.
başım sıkıntıya girdimi ararım yada mail verirsende olur.
emeklerin için çok teşekkür ederim.

 

[Ömer]

Sorularınızı foruma çekinmeden sorabilirsiniz. Sadece ben değil herkes yardımcı olacaktır.

Müsait bir zaman bulursam formülün mantığını açıklamaya çalışırım.

.