Parça Koduna Göre Stok Çıkışı Bilgisi

[uKiGS]

Merhaba arkadaşlar,

Elimde ürünlerin çıkış yapıp yapmadığını gösteren bir excelim var. Ben bu excelde hiç çıkış olmayanları listeleyebiliyorum fakat aynı işlemi parça koduna göre yapamıyorum.

E hücresinde kalem adı yazan yerde MK ile başlayanlardan stok çıkışı olmayanları bulmak istiyorum. Diğer kodlar içinde aynı işlemleri yaptıracağım ama sadece MK değil. Makro ile bir sonuca ulaşabilirsem daha iyi olur benim için.

Yardımlarınız için şimdiden teşekkürler.

 

[numan şamil]

Merhaba
Makro kodlarını deneyebilir misiniz
Sub numan()
Dim a, x As Long
Application.ScreenUpdating = False
Range("H2:L" & Rows.Count).ClearContents
ARANAN = Array("MK", "MT", "YT", "HT")
For Each HARFLER In ARANAN
Range("C:C").Replace HARFLER, UCase(Replace(Replace(HARFLER, "i", "İ"), "ı", "I")), xlPart
Next
For x = 2 To Cells(Rows.Count, "E").End(3).Row
If Range("E" & x).Value > 0.1 Then
Range("H" & x).Value = Range("E" & x).Value
Range("I" & x).Value = Range("E" & x).Value
Range("J" & x).Value = "Giren"
Else
Range("H" & x).Value = 0
Range("I" & x).Value = 0
Range("J" & x).Value = "Çıkan"
End If
If Range("J" & x).Value <> "Çıkan" Then
Range("L" & x).Value = "Stok Çıkışı Olmamıştır."
End If
Next x
For a = 2 To Cells(Rows.Count, "C").End(3).Row
metin = Cells(a, "C").Text
For Each soz In ARANAN
kac = InStr(1, metin, UCase(Replace(Replace(HARFLER, "i", "İ"), "ı", "I")))
If kac > 0 And Range("E" & a).Value < 0 Then
Cells(a, "K") = Cells(a, "D")
End If
Next
Next a
Application.ScreenUpdating = False
End Sub

 

[uKiGS]

Merhaba,

İlginiz için teşekkür ederim. Ben sanırım yanlış ifade ettim kendimi. Ben mesala MK kodu ile başlayan olduğunda Onların stok çıkışı olmayanları , HT kodu ile başlayanları filtre ettiğimde onların Stok Çıkışı Olmayanlarının listesini istiyorum.

 

[numan şamil]

Ben yanlış anlamışım
umarım yardımcı olan bulunur

 

[uKiGS]

Yok estağfurullah siz olması gerektiği gibi yaptınız ben tam anlatamadım. Esas istediğim Kutucuklar olup MK HT gibi tıkladığım zaman Stok Çıkışı Olmayanları göstermesi ve adetinin yazması

 

[ridvansahin]

Siz hücre içindeki mk , ht baştan ki harfe göre giriş çıkış olayını anlıyorsunuz sanırsam . Filtreleme seçeneğini açınca giren çıkanları ürün kodlarının başına göre süzebilirsiniz.Eğer doğru anladıysam şu şekilde.

 

[uKiGS]

Öncelikle emekleriniz için teşekkür ederim. Ben daha fonksiyonel istemiştim ama bu da kısa vadede işimi görür. Çok teşekkürler