ürünlerin maliyetini hesaplama

[renaccan]

G3 ile G70 arasını siler.. Yeni dosyayya göre

C-D-E sutunları için ne yapılacak detaylı analtırmısınız..

C-D-E içerisindeki kodların değiştirilmesi nedir?
Kodu değiştirirken neye göre değiştiricem?

Private Sub CommandButton1_Click()
'On Error Resume Next
Static sayac As Integer
sayac = sayac + 1
Range("A1:O70").Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Paste
    With ActiveSheet
    .Cells.Select
    .Cells.EntireColumn.AutoFit
    .Name = Date & "-" & sayac
    End With
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Sheets("HESAP TAKİP").Select
    With ActiveSheet
    Dim satirSayisi As Integer
    satirSayisi = Sheets("HESAP TAKİP").Range("A65536").End(xlUp).Row + 1
    .Range("B" & satirSayisi) = Sheets("MALİYET").Range("o8")
    End With
Sheets("SİPARİŞ VE STOK").Select
    With ActiveSheet
    .Range("C3:E70").ClearContents
    .Range("G3:AP70").ClearContents
    End With
Sheets("MALİYET").Select
   With ActiveSheet
    .Range("O3:O6").ClearContents
    .Range("O9").ClearContents
    .Range("G3:G70").ClearContents
    End With
End Sub

kodlar değiştirilmicek dicektim yanlış yazdım heralde yani soyle soylim oralara bilgileri bir önceki sayfadan aktarıdıgım için o satırlarda eğer olurda yanluışlık sil dusuna basınca o sutunlarda ki kodlar siliniyo bunu onlemek istiyodum sadece

 

[renaccan]

up.................

 

[Huseyinkis]

up.................

Merhaba orada bulunan formuller bir onceki sayfaya link şeklinde eğer yanlışlıkla silinse bile karmaşık bir formul değil.bunları koda dökmek linki kurmaktan daha zor olucaktır en azından benim için.

 

[renaccan]

Merhaba orada bulunan formuller bir onceki sayfaya link şeklinde eğer yanlışlıkla silinse bile karmaşık bir formul değil.bunları koda dökmek linki kurmaktan daha zor olucaktır en azından benim için.

anladım ozaman ilginize emeğinize çok teşekkür ederim gerçekten su anda tam istediğim gibi oldu herşey.

son bişi sorucam kayıt butonuna basıldıgında sayfa 1 2 ve 3 çizgileri çıkıyo bunu tek bir sayfaya sıhdırmak için ne yapmam gerekir