kaç adet ürün satıldığını toplatmak

[jambow]

sayfa 1 de satılan ürünü sayfa 2 de o ürünün kaç adet sattığını toplatmak
arkadaşlar soruyu tam olarak anlatamıyorum ekteki dosyada açıklama yaptım

 

[Necdet]

Merhaba,

Açıklamada yeterli bilgi yok.

1. Sayfa1 deki bilgiler Sayfa2 de bulunup toplattırılınca silinecek mi yoksa kalacak mı?
2. Her satış anında mı aktarılacak yoksa kontrol edilip gün sonunda mı aktarılacak?

Buna rağmen birşeyler karalamaya çalıştım. Sayfa1 G sütununa aktarılan satırlara çek attım, aktarılmayan (kodu bulunamadığı için) satırları da x olarak işaretledim.

Sub SatisTopla()
Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
Dim i, Adet As Long
s1.Select
Application.ScreenUpdating = False
For i = 2 To [A65536].End(3).Row
    If Cells(i, "G") <> "ü" Then
        Set Bul = s2.Columns("A").Find(Cells(i, "A"), LookIn:=xlValues, LookAt:=xlWhole)
        If Not Bul Is Nothing Then
            If Cells(i, "E") <> "" Then
                s2.Cells(Bul.Row, "B") = s2.Cells(Bul.Row, "B") + Cells(i, "E")
                Cells(i, "G") = "ü"
                Adet = Adet + 1
            Else
                Cells(i, "G") = "x"
            End If
        Else
            Cells(i, "G") = "x"
        End If
    End If
Next i
Application.ScreenUpdating = True
MsgBox "Toplam " & Adet & " Satırda İşlem Yapıldı, İşlem Yapılan Satır G Sütununda İşaretlendi....."
End Sub

 

[jambow]

çok teşekkürler istediğim buydu .

 

[jambow]

bu formül sayda 1 de a sutununa yazılanları sayfa 2de a sutununda arıyor
şöyle yapabilirmiyiz

sayfa 1de (a2) ile (a5) arasına yazılanları sayfa 2 de (a2) ile (a40) arasında arasın
çünkü sutunların tamamında aradığından olacak.. biraz yavaş işlem yapıyor

 

[Orion1]

bu formül sayda 1 de a sutununa yazılanları sayfa 2de a sutununda arıyor
şöyle yapabilirmiyiz

sayfa 1de (a2) ile (a5) arasına yazılanları sayfa 2 de (a2) ile (a40) arasında arasın
çünkü sutunların tamamında aradığından olacak.. biraz yavaş işlem yapıyor

Sayfa1 de A2:A5 aralığı için kodu ilgili yerdeki ile değiştiriniz.

For i = 2 To 5

Sayfa2 de A2:A40 içinde kodu ilgili yerdeki ile değiştiriniz.

Set Bul = s2.Range("A2:A40").Find(Cells(i, "A"), LookIn:=xlValues, LookAt:=xlWhole