DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub aktar()
Set s1 = Sheets("stoklar")
say = WorksheetFunction.CountA(s1.[a:a]) + 1
s1.Range("A" & say & ":R" & say + 78) = Range("A2:R80").Value
End Sub
Sub aktar()
Set s1 = Sheets("stoklar")
say = WorksheetFunction.CountA(s1.[a:a]) + 1
Range("A2:R80").Copy s1.Range("A" & say & ":R" & say + 78)
End Sub
Kodun sonuna aşağıdaki satırı ilave edin.Sayın leventm,
Satış sayfasındaki bilgilerin aktarıldıktan sonra silinmesi mümkünmüdür?
range("a2:r80").clearcontents