Satınalma listesi

[ATEMİ]

Merhabalar,
Bir satınalma listesi oluşturmak istiyorum
kaynak sayfanın A sütununda stok kodları var B sütununda her ürün için belirlenmiş satınalma adedi olacak
A sütununda stok kodları bulunan ürünlerin bu adedin altına düşmesi halinde tedarik etmemiz gerekenler ortaya çıkacak
diğer sayfada stok koduna göre sıralanmış olarak sadece B sütununda belirlenmiş sınırın altına düşenlerden ibaret bir liste oluşacak
bu listeyi oluşturabilmem için
Liste sayfasında A ve B sütununda kullanabileceğim uygun formüle ihtiyacım var
teşekkür ederim

 

[1Al2Ver]

Merhaba sayın ATEMİ,

Forum'a sonuçları elle girilmiş açıklamalı örnek bir dosya eklerseniz, üzerinde çalışma yapıp, doğru ve çabuk sonuçlar üretecek üyelerimiz olacaktır.

Teşekkür ederim.

 

[ATEMİ]

Çok haklısınız dün aceleye geldi biraz kusura bakmayın lütfen

 

[emreVBA]

Merhaba, aşağıdaki kodu, Hedef sayfanızının kod bölümüne yapıştırısanız çalıaşcaktır. Kod hedef sayfasının C1 hücresine tıklanması durumunda mevcut stok durumunu yenileyip sıralayacak şekilde ayarlanmıştır, kendi sayfanıza göre uyarlayabilrisiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = "$C$1" Then
        StokKontrol
    End If
End Sub
Sub StokKontrol()
    Dim kaynakSayfa As Worksheet
    Dim hedefSayfa As Worksheet
    Dim stokKodu As Range
    Dim stokMiktarı As Range
    Dim sonSatır As Long
    Dim hedefSatır As Long
   
    'Kaynak sayfayı tanımla
    Set kaynakSayfa = ThisWorkbook.Sheets("KaynakSayfa")
   
    'Hedef sayfayı tanımla
    Set hedefSayfa = ThisWorkbook.Sheets("HedefSayfa")
   
    'Hedef sayfayı temizle
    hedefSayfa.Columns("A:B").ClearContents

    'Hedef sayfanın başlıklarını ekle
    hedefSayfa.Range("A1").Value = "Stok Kodu"
    hedefSayfa.Range("B1").Value = "Kalan Stok"
    hedefSayfa.Range("C1").Value = "GÜNCELLE"
   
    'Son satırı belirle
    sonSatır = kaynakSayfa.Cells(Rows.Count, 1).End(xlUp).Row
   
    'Hedef satırı 2'den başlat
    hedefSatır = 2
   
    'Stok kodlarını ve stok miktarlarını döngüyle kontrol et
    For Each stokKodu In kaynakSayfa.Range("A2:A" & sonSatır)
        Set stokMiktarı = stokKodu.Offset(0, 1)
        If stokMiktarı.Value < 5 Then
            'Stok miktarı 5 adedin altındaysa, hedef sayfaya ekle
            hedefSayfa.Range("A" & hedefSatır).Value = stokKodu.Value
            hedefSayfa.Range("B" & hedefSatır).Value = stokMiktarı.Value
            hedefSatır = hedefSatır + 1
        End If
    Next stokKodu
   
    'Hedef sayfayı stok miktarlarına göre sırala
    Sheets("HedefSayfa").Range("B2").Select
    Sheets("HedefSayfa").Range("A:B").Sort Key1:=Range("B2"), Order1:=xlAscending, Header:= _
        xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

 

[ATEMİ]

Emre Bey günaydın
Emeğinize sağlık bunu basit bir fonksiyonla yapabilir misiniz
çok hakim değilim bunlara fonksiyonda oynama yapabilirim en azından
çok teşekkür ederim

 

[1Al2Ver]

Merhaba,

Anladığım kadarı ile çözümlü bir dosya ekledim,

Umarım size çözüm olmuştur.

Teşekkür ederim.

 

[ATEMİ]

Çok teşekkür ederim işime yaradı