Veri arama yardım.....

[iseyhan1299]

Arkadaşlar merhaba.....

Aranıza yeni katıldım şimdiden yardımlarınız için teşekkürler...

Resmi bir kurumda kantin işletiyorum....Sayım yaptığımda kullandığım musebe programı sayım sonuçlarını ürün ismi,adet ve satış tutarı olarak sıralıyor... Fakat bana listede alış fiyatıda lazım...Ürünlerin alış fiyatları ayrı bir sheet olarak bulunuyor. Ürünlerin isimlerine göre diğer listeden arayıp alış fiyatını yanına yazabilen bir formül lazım... Örneğini ekde verdim....

Sarıyla işaretlenmiş alana Alış fiyat listesi sayfasından ürünün alış fiyatını bulup girmesini istiyorumm...

 

[Vedat Özer]

Selamlar,

Formumuza Hoş Geldiniz.

Sorunuzu belki yanlış anlamışta olabilirim.

E2 Hücresine,

=EĞER($A2="";"";DÜŞEYARA($A2;'ALIŞ FİYAT LİSTESİ'!$A:$B;2;0))

Ekdeki dosyayı inceleyin.

 

[iseyhan1299]

Çok teşekkür ederim istediğim tamda buydu... Birde bazı ürünlerin isimleri listelerde birebir aynı değil mesela Sayım listesinde ( ARKO KREM 200 GR) olan değer Alış fiyatları listesinde (ARKO_KREM_200_GR) şeklinde geçebiliyor veya (ARKOKREM 200) diye geçiyor buna birşey yapabilirmiyiz...

 

[Vedat Özer]

Selamlar,

Ona göre formül var ama bu şekilde dosya eklerseniz yardımcı olmaya çalşıyım.

 

[iseyhan1299]

ok...aynı örnek isimleri değiştirdim

 

[Vedat Özer]

Selamlar,

Dosyanızı inceledim.
Elimden geldiğince bir şeyler yapmaya çalıştım dosyanızı kontrol edin.
İlk Başta Alış Fiyat Listesi Sayfasındaki Makroyu Çalıştırın daha sonra alış fiyatları diğer sayfaya geçeçek .
Bilgilerin kontrolünü yapın ben kontrol etmedim.

Sub alt()
    Columns("A:A").Select
    Selection.Replace What:=" _", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" -", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:=" -", Replacement:="""""", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="_", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Selection.Replace What:="-", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
        Range("C1").Select
End Sub