Süz İle Adedi Koliye çevirme

[ANTALYA 01]

Merhabalar

Sayfa 1 de Bir liste Mevcut I Sütununda BİRİM ADI Süze tıklandığında
İstenen Mağazanın Dökümüne Ulaşıyoruz.İstediğim Mağazayı I Sütunundan Seçtikten sonra AKTAR Düğmesine Tıkladığımda Sayfa 2 ye Sayfa 1'in D Sütununda Mevcut olan EMTIANO Koduna Göre F ve G sütununda Mevcut olan Adetleri Sayfa 3 te belirttiğim Koli miktarlarını adete Bölerek Sayfa 2 deki gibi ADET Bazında Ürünleri Koliye çeviren Makroya İhtiyacım var.

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub aktar()
Dim sat As Long, s2 As Worksheet, k As Range
Sheets("Sayfa1").Select
Set s2 = Sheets("Sayfa2")
sat = 2
s2.Range("A2:I65536").ClearContents
For i = 2 To Cells(65536, "D").End(xlUp).Row
    If Range("D" & i).EntireRow.Hidden = False Then
        s2.Range("A" & sat & ":I" & sat).Value = _
        Range("A" & i & ":I" & i).Value
        Set k = Sheets("Sayfa3").Range("A2:A65536").Find(s2.Range("D" & sat).Value, , _
        xlValues, xlWhole)
        If Not k Is Nothing Then
            s2.Range("F" & sat).Value = s2.Range("F" & sat).Value / k.Offset(0, 2).Value
        End If
        sat = sat + 1
    End If
Next i
MsgBox "İşlem Tamam.."
End Sub