Kitap Fiyatı Aktarımı

[izomer]

Değerli Excel web Ailesine selamlar..Benim Kitap Adı ve Fiyatının Olduğu bir sayfa var..onun haricindede bir sürü müşterimin olduğu sayfalarım var..

Ben istiyorumki Herhangi bir müşterimin sayfasındayken B sütununda açılır menu ile kitabı seçtiğimde fiyatıda c sütununa otomatik atsın istiyorum..

Böyle Bir Şey Mümkünse kitap takibini excelde tutmaktan kurtulacağım..

sağlıcakla..

 

[Ömer BARAN]

Merhaba. Cep telefonundan yazıyorum, umarım sütun adlarında veya satır numaralarında hata yapmam.

FORMÜL menüsü -> AD TANIMLAMA -> kısmına liste adını vererek aşağıdaki formülü de formül kısmına yapıştırın, işlemi onaylayarak tamamlayın.

=DOLAYLI("[B][COLOR="Red"]'[/COLOR][/B]STOK ADI[B][COLOR="Red"]'[/COLOR][/B]!B3:B"&BAĞ_DEĞ_DOLU_SAY([B][COLOR="Red"]'[/COLOR][/B]STOK ADI[B][COLOR="Red"]'[/COLOR][/B]!$B:$B))

sonra müşteri sayfalarında B2 hücresi seçiliyken VERİ -> VERİ DOĞRULAMA -> LİSTE seçeneğini seçin ve alt taraftaki formül alanına =liste yazın. Artık listeden seçim yapabilirsiniz.
C2 hücresine ise

=DÜŞEYARA(B2;DOLAYLI([B][COLOR="Red"]"'[/COLOR][/B]STOK ADI[B][COLOR="Red"]'[/COLOR][/B]!B3:C"&BAĞ_DEĞ_DOLU_SAY([B][COLOR="Red"]'[/COLOR][/B]STOK ADI[B][COLOR="Red"]'[/COLOR][/B]!$B:$B));2)

formülünü uygulayın.
B2 ve C2 hücresini aşağı doğru kopyalayabilirsiniz.

 

[izomer]

değerli hocam ad tanımlamadan liste yi oluşturduktan sonra b2 deki veri doğrulamaya =liste yapınca kaynak şu an hata veriyor yazıyor.

 

[Orion1]

Dosyanız ektedir.

Private Sub Workbook_SheetChange(ByVal sh As Object, ByVal Target As Range)
Dim sonsat As Long, k As Range
If ActiveSheet.Name = "STOK ADI" Then Exit Sub
If Intersect(Target, Range("B2:B" & Rows.Count)) Is Nothing Then Exit Sub
sonsat = Sheets("STOK ADI").Cells(Rows.Count, "B").End(xlUp).Row
Target.Offset(0, 1).ClearContents
Set k = Sheets("STOK ADI").Range("B3:B" & sonsat).Find(Target.Value, , xlValues, xlWhole)
If Not k Is Nothing Then Target.Offset(0, 1).Value = k.Offset(0, 1).Value
End Sub

 

[izomer]

Sayın yıldızı hiç sönmeyen Orion hocam anlayamadığım husus niye listede sadece 21 e kadar gösteriyor ben stok adı sayfasındaki kitapları aşağı doğru uzatıyorum ama müşteri sayfalarında yine ilk 21 tanesi listede görünüyor..Birde o kitap isimleri karışık olarak yazıldığını varsayalım ama ben listeye A-Z şeklinde sıralanmasını sağlayabilirmiyim ?

 

[Ömer BARAN]

Merhaba, daha önce gönderdiğim fomüllere kırmızı olarak işaretlenmiş kısımları ekledim, bu şekilde dener misiniz?

 

[izomer]

Hocam Çok güzel çalışıyor şu an elinize sağlık..yanlız şöyle bir yanılgıya düştüm mantığımda..ben kitap fiyatının güncellediğim anda o kitabı alan müşterilerimin bakiyelerinde değişmeler olacak çünkü müşterilerde kitap karşılığı para ödeyecekler..acaba ordaki fiyat değişse bile ilk atanan fiyat değişmesin diye bir şey söz konusumu..projemin ana dosyası ektedir..nasıl değişen fiyatlara karşı koyacam bilemiyorum. çünkü müşteri ilk aldığı fiyat her zaman orda kalmalı..