ürünün ismine bakıp karşısına fiatı yazsın

[manda]

arkadaşlar benim isteğim halıların çeşitliliklerine göre hazırladığım fiat listesinden
veriyi alarak satış sırasında halının cinsini yazdığımda fiatını diğer tablodan alıp
karşısına fiatını yazmasını istiyorum.Sonra aylara göre toplam satış ımı bulmak istiyorumAsıl sorun um ise fiat listesini 2*3 aydan sonra değiştirdiğimde tüm verilerim de değişecek bu sorunları çözerseniz çok mutlu olurum.YArdımlarınızı
bekliyorum şimdiden teşkkrler.........

 

[Ömer]

Merhaba,

Çalışma sayfasının kod bölümüne;

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B2:B65000]) Is Nothing Then Exit Sub
    If Target = "" Then
        Target.Offset(0, 1).ClearContents
    Else
        Target.Offset(0, 1) = WorksheetFunction.VLookup(Target, [G:H], 2, 0)
    End If
End Sub

L3 hücresine;

=TOPLA.ÇARPIM((AY($A$2:$A$1000)=AY(K3))*($E$2:$E$1000))

.

 

[Emir Hüseyin Çoban]

Merhaba,

Alternatif olarak aşağıdaki kodlarıda kullabilirsiniz.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
        If Not Intersect(Target, Range("B2:B65536")) Is Nothing Then
    On Error Resume Next
        If Target = "" Then Exit Sub
        If WorksheetFunction.CountIf(Sheets("sayfa1").Range("g:g"), Cells(Target.Row, "b")) > 0 Then
            Cells(Target.Row, "c") = WorksheetFunction.VLookup(Cells(Target.Row, "b"), Sheets("sayfa1").Range("B:h"), 7, 0)
            Else
            Cells(Target.Row, "E") = ""
        End If
          'MsgBox "Lütfen kayıt türü bilgisini giriniz !", vbCritical
   End If
    
End Sub

 

[YusufTure]

İNDİS komutu ile de yapabilirsiniz.

bilgi olsun diye verdim.

 

[Ömer]

İNDİS komutu ile de yapabilirsiniz.

bilgi olsun diye verdim.

İndis veya Düşeyara ile olabilir yalnız;

sütunudaki fiatlar 2/ 3 ayda bir değişecek bu değişime karşın e süütununda daha önceki tarihlerde yazılan değerleri etkilesin istemiyorum

Eğer fonksiyon kullanırsanız veriler yeni değerler ile değişecektir. Bundan dolayı kod yazılmıştır.

Bilgi olarak vermek istedim.

İyi çalışmalar..

.

 

[manda]

akşam etraflıca denedim çatır çatır çalışıyor ellriniz dert görmesin çok işime yaradı
tekrar tekrar teşekkürler