döngü ile çarpma işlemi

[Cengizhantr06]

merhaba sayın forum üyeleri
stoklar adlı sayfamda a sütununda stok kodları var ve I sütununda stok sayıları var
fiyatlar adlı sayfada a sütununda stok kodları var G sütünunda stok fiyatı var
amacım stok sayfasındaki stok kodunun stok sayısını G sütünunda stok fiyatı ile çarpım sonucu
textboxa almak

 

[Mdemir63]

Selamlar
Gerçek bilgilerinizi içermeyen ancak yapısı aynı olan örnek dosya eklerseniz daha çabuk yanıtlar alırsınız.

 

[veyselemre]

Sub test()
    Dim ver As Variant, ver2 As Variant, i&, topla As Double
    With Sheets("Stoklar")
        ver = .Range("A2:I" & .Cells(Rows.Count, 1).End(3).Row).Value
    End With
    With Sheets("Fiyatlar")
        ver2 = .Range("A2:G" & .Cells(Rows.Count, 1).End(3).Row).Value
    End With
    With CreateObject("Scripting.Dictionary")
        For i = LBound(ver) To UBound(ver)
            .Item(ver(i, 1)) = ver(i, 9)
        Next i
        For i = LBound(ver2) To UBound(ver2)
            If .exists(ver2(i, 1)) Then
                topla = topla + .Item(ver2(i, 1)) * ver2(i, 7)
            End If
        Next i
    End With
    MsgBox topla
End Sub

 

[Cengizhantr06]

Sub test()
    Dim ver As Variant, ver2 As Variant, i&, topla As Double
    With Sheets("Stoklar")
        ver = .Range("A2:I" & .Cells(Rows.Count, 1).End(3).Row).Value
    End With
    With Sheets("Fiyatlar")
        ver2 = .Range("A2:G" & .Cells(Rows.Count, 1).End(3).Row).Value
    End With
    With CreateObject("Scripting.Dictionary")
        For i = LBound(ver) To UBound(ver)
            .Item(ver(i, 1)) = ver(i, 9)
        Next i
        For i = LBound(ver2) To UBound(ver2)
            If .exists(ver2(i, 1)) Then
                topla = topla + .Item(ver2(i, 1)) * ver2(i, 7)
            End If
        Next i
    End With
    MsgBox topla
End Sub

sayın veysel emre bey tam nokta atışı yapmışınız cok güzel tam istediğim gibi oldu işiniz rast gelsin
çok teşekkür ederim

 

[Cengizhantr06]

Sub test()
    Dim ver As Variant, ver2 As Variant, i&, topla As Double
    With Sheets("Stoklar")
        ver = .Range("A2:I" & .Cells(Rows.Count, 1).End(3).Row).Value
    End With
    With Sheets("Fiyatlar")
        ver2 = .Range("A2:G" & .Cells(Rows.Count, 1).End(3).Row).Value
    End With
    With CreateObject("Scripting.Dictionary")
        For i = LBound(ver) To UBound(ver)
            .Item(ver(i, 1)) = ver(i, 9)
        Next i
        For i = LBound(ver2) To UBound(ver2)
            If .exists(ver2(i, 1)) Then
                topla = topla + .Item(ver2(i, 1)) * ver2(i, 7)
            End If
        Next i
    End With
    MsgBox topla
End Sub

veysel bey tekrar rahatsız ediyorum kusura bakmayın a sütununda stok kodların biçimini metin olarak yapmak zorunda kaldım yoksa barkod makinesi için sayı yada genel olunca barkod kodu cagırmıyor ama metin yapıncada sizin verdiğiniz kod çalışmıyor bir çaresi varmı acaba

 

[veyselemre]

Sub test()
    Dim ver As Variant, ver2 As Variant, i&, topla As Double
    With Sheets("Stoklar")
        ver = .Range("A2:I" & .Cells(Rows.Count, 1).End(3).Row).Value
    End With
    With Sheets("Fiyatlar")
        ver2 = .Range("A2:G" & .Cells(Rows.Count, 1).End(3).Row).Value
    End With
    With CreateObject("Scripting.Dictionary")
        For i = LBound(ver) To UBound(ver)
            .Item(Trim(ver(i, 1))) = ver(i, 9)
        Next i
        For i = LBound(ver2) To UBound(ver2)
            If .exists(Trim(ver2(i, 1))) Then
                topla = topla + .Item(Trim(ver2(i, 1))) * ver2(i, 7)
            End If
        Next i
    End With
    MsgBox topla
End Sub

 

[Cengizhantr06]

Sub test()
    Dim ver As Variant, ver2 As Variant, i&, topla As Double
    With Sheets("Stoklar")
        ver = .Range("A2:I" & .Cells(Rows.Count, 1).End(3).Row).Value
    End With
    With Sheets("Fiyatlar")
        ver2 = .Range("A2:G" & .Cells(Rows.Count, 1).End(3).Row).Value
    End With
    With CreateObject("Scripting.Dictionary")
        For i = LBound(ver) To UBound(ver)
            .Item(Trim(ver(i, 1))) = ver(i, 9)
        Next i
        For i = LBound(ver2) To UBound(ver2)
            If .exists(Trim(ver2(i, 1))) Then
                topla = topla + .Item(Trim(ver2(i, 1))) * ver2(i, 7)
            End If
        Next i
    End With
    MsgBox topla
End Sub

çok teşekkür ederim veysel bey işini rast gelsin