Ürün miktarı yazınca otomatik olarak proformada çıksın

[Kübra Sarıkaya]

Merhaba,

Bugün siteniz üzerinden yardım sayesinde bir problemi çözdüm fakat bir yerde daha takıldım.

Şimdi ben ürünleri data sayfasında miktarlarıyla yazdığımda ne kadar ürün miktarı yazıldıysa sadece onlar gelsin istiyorum proforma ekranına. Indis mi kullanmam lazım ? Sub total kısmı makro kodu ile otomatik olarak aşağıya kayıyor o tamam fakat ne kadar ürün miktarı yazılı ise onlar proformaya gelebilirmi acaba ?

yardımınız için şimdiden teşekkürler.

makrolu çalışmada ektedir...

 

[Ömer]

Merhaba,

Eski kodları silip standart bir module aşağıdaki kodları kopyalayın ve sayfadaki butona atayın.

Sub Kopyala()
 
    Dim Dz(), i As Long, Hcr As Range, ilksat As Long, sat As Long, son As Long
 
    Application.ScreenUpdating = False
 
    ilksat = 13
    Set c = [J:K].Find("SUB TOTAL", , xlValues, xlWhole)
    If Not c Is Nothing Then sat = c.Row
 
    If sat > ilksat + 2 Then Rows(ilksat + 1 & ":" & sat - 2).Delete Shift:=xlUp
 
    Sheets("Data").Select
    son = Cells(Rows.Count, "B").End(xlUp).Row
 
    Range("D4:D" & son).SpecialCells(xlCellTypeConstants, 23).Select
    ReDim Dz(1 To Selection.Count, 1 To 3)
 
    For Each Hcr In Selection
        i = i + 1
        Dz(i, 1) = Hcr.Offset(0, -1)
        Dz(i, 2) = Hcr
        Dz(i, 3) = Hcr.Offset(0, 1)
    Next Hcr
 
    With Sheets("Proforma ve Paket Listesi")
        .Rows(ilksat).ClearContents
        .Rows(ilksat + 1 & ":" & ilksat + 1 + i - 2).Insert Shift:=xlDown
        .Rows(ilksat).Copy .Rows(ilksat + 1 & ":" & ilksat + 1 + i - 2)
        For i = 1 To UBound(Dz)
            .Cells(i + ilksat - 1, "B") = Dz(i, 1)
            .Cells(i + ilksat - 1, "D") = Dz(i, 2)
            .Cells(i + ilksat - 1, "H") = Dz(i, 3)
        Next i
        .Select
    End With
 
    Application.ScreenUpdating = True
 
End Sub

.