Karşılaştırmalı veri aktarımı

[beyrek72]

Herkese çok selam, arkadaşlar data sayfamda menü kartlarım var ve ben datadan yani kartlardan verileri girceğim girdiğim verlierde rapor sayfasındaki ürün adlarına gelecek bu mümkünmü acaba şimdiden yardımlarınız içi çok teşekkür.

 

[Orion1]

CONRATU düzeltildi.

Merhaba.
Data saygfasında girdiğiniz miktarı Rapor sayfasında üst üste toplar.
Ekli dosyayı inceleyiniz.
CONRATU düzeltildi.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C6:C65536]) Is Nothing Then Exit Sub
On Error GoTo hata
isim = Cells(Target.Row, Target.Column - 1).Value
Set k = Sheets("RAPOR").Range("C:C").Find(isim, LookIn:=xlValues, lookat:=xlWhole)
    If k Is Nothing Then
        MsgBox "Bu kayıt yapılmadı.Rapor sayfasında Bulunamadı..!!", vbCritical
        Target.Select
        Exit Sub
        Else
        Sheets("RAPOR").Cells(k.Row, "D").Value = Target.Value + Sheets("RAPOR").Cells(k.Row, "D").Value
    End If
hata:
End Sub

 

[beyrek72]

Sayın orion

Merhaba.
Data saygfasında girdiğiniz miktarı Rapor sayfasında üst üste toplar.
Ekli dosyayı inceleyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C6:C65536]) Is Nothing Then Exit Sub
On Error GoTo hata
isim = Cells(Target.Row, Target.Column - 1).Value
Set k = Sheets("RAPOR").Range("C:C").Find(isim, LookIn:=xlValues, lookat:=xlWhole)
    If k Is Nothing Then
        MsgBox "Bu kayıt yapılmadı.Rapor sayfasında Bulunamadı..!!", vbCritical
        Target.Select
        Exit Sub
        Else
        Sheets("RAPOR").Cells(k.Row, "D").Value = Target.Value + Sheets("RAPOR").Cells(k.Row, "D").Value
    End If
hata:
End Sub

Sayın Orion gösterdiğiniz ilgiden dolayı çok teşekkür ederim mantık olarak doğru yapmışsınız lakin C hücresindeki diğer ürünlere veri girdğimde tanımsız diyor galiba siz sadece tekilayı yaptınız benim isteğim diğer aynı tekilada olduğu gibi diğer ürünler içinde geçerli çok teşekkür ederim

 

[Orion1]

Merhaba.
Sadece conratuda bu mesajı veriyordu.
Onunda sebebi Rapor sayfası ile data sayfasındaki isimlerin birbirine bezemememsi idi.Durum düzeltildi.Önceki mesajımdan ekli dosyayı indrip deneyiniz.