• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Birden fazla kritere göre fiyatları getirtme

Günaydın hocam.

Hammadde alımlarında nakliyecilerin faturalarını da takip edelim dedik ve buna da nisan ayında başladık öncesinde böyle bir talep yoktu ben firmaları bildiğim için elle kontrol ediyordum.

Sadece L30-L31 hücreleri değil üstündeki firmanında iki tane nakliyecisi var. Yani bazı firmalardan malları birden fazla nakliyeci çekebiliyor. Formülle yaptığımda çoketopla veya topla.çarpım kullanıyordum. BU arada sonradan gönderdiğimde nakliye fiyat tablosunu l sütununa çekmişim özür dilerim.

Anında hesaplama işlemini benim cahilliğime verin. Böyle olacağını bilemedim.
 
Bu ikili nakliye firmaları nasıl ayrılacak kriter nedir?
 
Hocam I sütununda mal aldığımız firma ve S sütununda nakliye firması var. W sütununda formülde bu iki sütundaki kriterlere göre üstte yer alan nakliye tablosunda karşılık geen fiyatı getirtiyorum. ekteki dosyada sarı ile işaretledim.
 

Ekli dosyalar

O zaman şöyle sorayım. W65 hücresine hangi fiyat gelmeli?
 
Hocam S sütunundaki boş hücreleri daha iyi anlaşılabilmesi için sildim.

W65 hücresine;

I65 (Firma) ve S65 (Nakliye Firması) hücrelerine bakacak. Ve L22:O33 (Nakliye Fiyat Listesi) aralığındaki karşılık gelen 50 tl yi yazacak.

eklediğim dosyada renklendirdim.
 

Ekli dosyalar

1 Nisan tarihinden önceki kayıtların nakliye fiyatlarını kendiniz mi dolduracaksınız?
 
Ben sorun olmayacağını düşündüğüm için geriye dönük boş bırakmıştım ama makro için sıkıntı olacaksa evet doldurabilirim boş bir zamanımda.
 
#16 nolu mesajımdaki kodu son eklediğiniz dosyaya göre revize ettim. Bu kod ile tüm kayıtlarınız için hammadde fiyatlarınız doğru şekilde gelecektir. 1 Nisan ve sonrası için nakliye fiyatlarınız doğru şekilde gelecektir. Bu kodu eski verileriniz için bir kez çalıştırmanız yeterli olacaktır.

Güncel işlemlerinizde anında hesaplama işlemi için ayrı bir kod hazırlıyorum.
 
Çok çok teşekkür ederim hocam Allah sizden razı olsun.
 
Aşağıdaki kodu HAMMADDE GİRİŞ sayfasının kod bölümüne uygulayınız.

C38:X1048576 hücrelerinde olacak değişikliklerde kod çalışacaktır.

C++: 
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Hammadde As Object, Nakliye As Object, Alan As Range, Veri As Range
    Dim Hammadde_Data As Variant, Nakliye_Data As Variant, X As Long, Aranan As String
    
    On Error GoTo Son
    
    If Intersect(Target, Range("C38:X" & Rows.Count)) Is Nothing Then Exit Sub
    
    Application.ScreenUpdating = False
    Application.EnableCancelKey = xlDisabled
    Application.EnableEvents = False
    
    Set Hammadde = CreateObject("Scripting.Dictionary")
    Set Nakliye = CreateObject("Scripting.Dictionary")
    
    Hammadde_Data = Range("C2:H35").Value
    
    For X = LBound(Hammadde_Data) To UBound(Hammadde_Data)
        Hammadde.Item(Hammadde_Data(X, 1) & Hammadde_Data(X, 2) & Hammadde_Data(X, 3)) = Hammadde_Data(X, 6)
    Next
    
    Nakliye_Data = Range("L22:O33").Value
    
    For X = LBound(Nakliye_Data) To UBound(Nakliye_Data)
        Nakliye.Item(Nakliye_Data(X, 1) & Nakliye_Data(X, 2)) = Nakliye_Data(X, 4)
    Next
    
    If Target.Cells.Count = 1 Then
        Set Alan = Target
    Else
        Set Alan = Selection
    End If
    
    For Each Veri In Intersect(Alan, Range("C38:X" & Rows.Count))
        Cells(Veri.Row, "R") = Cells(Veri.Row, "O") * Cells(Veri.Row, "P") * Cells(Veri.Row, "Q") / 1000000
        Aranan = Cells(Veri.Row, "I") & Cells(Veri.Row, "L") & Cells(Veri.Row, "M")
        Cells(Veri.Row, "U") = Hammadde.Item(Aranan)
        Cells(Veri.Row, "V") = Cells(Veri.Row, "N") * Cells(Veri.Row, "U")
        Aranan = Cells(Veri.Row, "I") & Cells(Veri.Row, "S")
        If Nakliye.Exists(Aranan) Then Cells(Veri.Row, "W") = Nakliye.Item(Aranan)
        Cells(Veri.Row, "X") = Cells(Veri.Row, "N") * Cells(Veri.Row, "W")
    Next

Son:
    Application.EnableCancelKey = xlInterrupt
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub
 
En kısa zamanda uygulayıp sonucu bildireceğim inşaallah. Tekrar teşekkürler.
 
Ek olarak bu kodla #16 nolu mesajımda ki kodu beraber kullanabilirsiniz. Bu sebeple #16 nolu mesajımda ki koda küçük eklemeler yaptım.

Son önerdiğim sayfa kodu anlık veri girişleri için kullanılabilirken, #16 nolu mesajımdaki kodu toplu şekilde tüm sayfayı güncellemek istediğinizde kullanabilirsiniz.
 
Hocam Allah razı olsun tam istediğim gibi çalışıyor. Sağolun.
 
Hocam çok kısa bir şey sormak istiyorum vaktiniz varsa.

Sorunsuz çalışıyor dedim ancak ben sol baştan tarih vs girmeye başlıyorum ve her veri girdiğimde sayfa yenileniyor gibi tüm tabloda bir titreme oluyor.

Bu aynı anda fiyat sorguladığı için mi acaba? Ve bunu gidermenin bir yolu var mıdır?

Teşekkürler şimdiden.
 
Kodun çalışması için alan daraltması yapabiliriz. Şu anda C:X yani veri olan tüm sütunlarda veri girişi anında çalışıyor.

Kod içindeki bu bölümü isteğinize göre düzenleyebilirsiniz.

If Intersect(Target, Range("C38:X" & Rows.Count)) Is Nothing Then Exit Sub
 
Yani hesaplattığımız m3 ve diğer fiyatlar R sütunundan başlıyorsa R38:X desek sadece o tarafı yenileyecek doğru mudur hocam?
 
Önerdiğim kod sayfada hücre değişiminde çalışmaktadır. Yani hücrelerin değişmesi gerekmektedir. Doğal olarak siz hesaplamalar için hangi alanlara ihtiyaç duyuyorsanız o sütunları tanımlamanız gerekiyor.

Örneğin;

Hammadde Fiyatı için, I-L-M sütunlarına ihtiyacınız var.
Nakliye Fiyatı için, I-S sütunlarına ihtiyacınız var.
Metreküp için; O-P-Q sütunlarına ihtiyacınız var.
Hammadde Tutarı için; N-U sütunlarına ihtiyacınız var.
Nakliye Tutarı için; N-W sütunlarına ihtiyacınız var.

Bu bahsettiğim sütunlardaki hücre değişimleri sizin hesaplamalarınızı etkilemektedir.

Eğer sayfanıza verileri sıralı giriyorsanız en son "S" sütununa veri girişi yaptığınızda tüm işlemler yapılabilir. Tabi bu durumda diğer sütunlardaki değerleri değiştirdiğinizde hesaplamalar tetiklenmeyeceği için son olarak "S" sütuna gelip hücre içine girip çıkmanız gerekecektir.

Ben tanımlama yaparken "C" sütunundan başlatmıştım. Belki bu alan aşağıdaki gibi olabilir.

If Intersect(Target, Range("I38:X" & Rows.Count)) Is Nothing Then Exit Sub
 
I yı denedim ama S yi de denedim. Bütün bilgileri girip en son nakliyeci adını yazınca hepsi birlikte geliyor. Ancak yukarıdaki hammadde fiyat tablosunda olmayan bir firma vardı kodu çalıştırınca o firmaya ait bütün giriş satırlarını silmiş. tekrar yükledim. Artık dikkat etmem gerekiyor sanırım. Çok teşekkürler ilginize.
 
Örneklendirirseniz riski belki kaldırabiliriz.
 
Korhan Ayhan' Alıntı:
Örneklendirirseniz riski belki kaldırabiliriz.
Genişletmek için tıkla ...
Hocam o siliyor dediğim olay bu son gönderdiğinizde değildi hatırladım. Bu her veri girdiğimde güncelliyor sorun yok. Toplu halde güncelleme yaptırdığınız kodda ham madde fiyat listesinde olmayan kayıtlar silinmişti. Ama ben anlık olarak güncellemesini istediğim için sorun yok benim için teşekkürler yine de.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst