makro formül güncelleme

[igultekin2000]

Sub aktarr()
Application.ScreenUpdating = False
On Error Resume Next
Set s1 = ThisWorkbook.Worksheets("HAREKET")
Set s2 = ThisWorkbook.Worksheets("URUN_LISTE")
For i = 2 To s2.Range("A65536").End(xlUp).Row
s1.Cells(1, 1) = s2.Cells(i, 1)

s2.Cells(i, 4) = s2.Cells(i, 4) + s1.Cells(1, "P")
s2.Cells(i, 5) = s2.Cells(i, 5) + s1.Cells(1, "Q")

Next i
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub
Şeklinde makro var, stok takibinde kullanıyorum. stoğu ilgili sayfaya aktarırken, aktarılan sayfada veri varsa üzerine ilave ediyor. bunun yerine aktarılan sayfadaki verileri silip, yerine sadece aktarılan verileri yazdırmak için makro üzerinde ne gibi işlem yapılabilir.
Teşekkürler

 

[YUSUF44]

Kodlar s1'in P1 ve Q1 hücrelerindeki verileri s2'nin D ve E sütunundaki verilerinizin üzerine topluyor. Örneğin P1'de 5 ve D5'te 3 yazıyorsa makro D5'i 8 yapıyor. Siz 8 değil de 5 olmasını istiyorsanız

s2.Cells(i,4) +

Ve

s2.Cells(i,5)+

Kısımlarını silmelisiniz.

 

[igultekin2000]

Kodlar s1'in P1 ve Q1 hücrelerindeki verileri s2'nin D ve E sütunundaki verilerinizin üzerine topluyor. Örneğin P1'de 5 ve D5'te 3 yazıyorsa makro D5'i 8 yapıyor. Siz 8 değil de 5 olmasını istiyorsanız

s2.Cells(i,4) +

Ve

s2.Cells(i,5)+

Kısımlarını silmelisiniz.

Teşekkürler, sorun çözüldü