Girilen verinin aynısından var ise +1 eklesin

[kkaplan]

Arkadaşlar merhaba,

Forumda yeniyim o yüzden tam konu yanlış bir yere açıldıysa veya hatalı bir durum var ise öncelikle affola,

Benim sorum şu şekilde,

Elimde ürünler var ve hayli bir fazla anlatmak gerekirse, onları barkodu UseForm ile tek bir textbox girişine okuttukça tabloya eklesin ve aynı barkodlu ürünleri adet sayısına göre toplayıp yazsın istiyorum.
Örnek vermek gerekirse; Elimde 9789750738609 barkod numaralı bir ürün var barkod okuyucu ile useforrm ekranında textboxa okuttum ve tabloya görseldeki gibi ekledi ancak ben, alt alta ekleme yapmasını istemiyorum bu barkodtan daha önce girildiyse adet sütununa +1 olarak eklemesini istiyorum. Yardımlarınız bekliyorum. Teşekkürler.

 

[Muzaffer Ali]

Merhaba.

Sayfa adını sağ tıklatın "Kod Görüntüle" seçin açılan kod sayfasına aşağıdaki kodları kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Bulunan As Range
    If Not Intersect(Target, Range("A:A")) Is Nothing And Not Target = "" Then
        Application.EnableEvents = False
        If WorksheetFunction.CountIf(Range("A:A"), Target) > 1 Then
            Set Bulunan = Range("A:A").Find(Target)
            Cells(Bulunan.Row, "B") = 1 + Cells(Bulunan.Row, "B")
            Target.ClearContents
        Else
            Cells(Target.Row, "B") = 1
        End If
    End If
    Application.EnableEvents = True
End Sub

 

[kkaplan]

Merhaba.

Sayfa adını sağ tıklatın "Kod Görüntüle" seçin açılan kod sayfasına aşağıdaki kodları kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Bulunan As Range
    If Not Intersect(Target, Range("A:A")) Is Nothing And Not Target = "" Then
        Application.EnableEvents = False
        If WorksheetFunction.CountIf(Range("A:A"), Target) > 1 Then
            Set Bulunan = Range("A:A").Find(Target)
            Cells(Bulunan.Row, "B") = 1 + Cells(Bulunan.Row, "B")
            Target.ClearContents
        Else
            Cells(Target.Row, "B") = 1
        End If
    End If
    Application.EnableEvents = True
End Sub

Çok işime yaradı hocam, elinize sağlık. Teşekkür ederim.