Yükleme Formu

[cemshan]

Bir firmada Sevkiyat departmanında çalışmaktayım. Bize gelen siparişleri excel formatında yükleme emri oluşturuyoruz.
Ekli dosyadan bu işlemi Toplam.Çarpım formülü ile yapmaya çalışıyorum . Burada bazen yeterli stok olmadığından formül ile çektiğim rakamlarda değişiklik yapmam gerekiyor. Değişiklik sonrası formül silindiği için yeniden yazmak gerekiyor. bunu makro ile yapabilirmiyiz ?

Yardımlarınız için şimdiden teşekürler

 

[EmrExcel16]

Merhaba deneyiniz.

Sub Liste_Topla()
    Dim satir
    satir = 12
    Do While Cells(satir, 3).Value <> "" Or Cells(satir, 11).Value <> ""
        If Cells(satir, 3).Value <> "" Then
            If Cells(satir, 3).Interior.Color <> 65535 Then
                Cells(satir, 4).Value = WorksheetFunction.SumIfs(Sheets("KAYNAK").Range("I2:I100000"), Sheets("KAYNAK").Range("F2:F100000"), Cells(satir, 2), Sheets("KAYNAK").Range("C2:C100000"), Range("N5"))
            End If
        End If
        If Cells(satir, 11).Value <> "" Then
            If Cells(satir, 11).Interior.Color <> 65535 Then
                Cells(satir, 12).Value = WorksheetFunction.SumIfs(Sheets("KAYNAK").Range("I2:I100000"), Sheets("KAYNAK").Range("F2:F100000"), Cells(satir, 10), Sheets("KAYNAK").Range("C2:C100000"), Range("N5"))
            End If
        End If
        satir = satir + 1
    Loop
End Sub

 

[cemshan]

Merhaba deneyiniz.

Sub Liste_Topla()
    Dim satir
    satir = 12
    Do While Cells(satir, 3).Value <> "" Or Cells(satir, 11).Value <> ""
        If Cells(satir, 3).Value <> "" Then
            If Cells(satir, 3).Interior.Color <> 65535 Then
                Cells(satir, 4).Value = WorksheetFunction.SumIfs(Sheets("KAYNAK").Range("I2:I100000"), Sheets("KAYNAK").Range("F2:F100000"), Cells(satir, 2), Sheets("KAYNAK").Range("C2:C100000"), Range("N5"))
            End If
        End If
        If Cells(satir, 11).Value <> "" Then
            If Cells(satir, 11).Interior.Color <> 65535 Then
                Cells(satir, 12).Value = WorksheetFunction.SumIfs(Sheets("KAYNAK").Range("I2:I100000"), Sheets("KAYNAK").Range("F2:F100000"), Cells(satir, 10), Sheets("KAYNAK").Range("C2:C100000"), Range("N5"))
            End If
        End If
        satir = satir + 1
    Loop
End Sub

Harikasınız elinize sağlık

 

[EmrExcel16]

Rica ederim , iyi çalışmalar.