Makro ile formüllü hücreyi kopyalama hakkında

[northcyprus]

Sayın hocalarım değerli arkadaşlar.

ekteki dosyada adisyonmasa1 in (C1212) hücrelerinde =sum(d9:d11) diye bir toplama formülüm var D9 dan sonra sparişleri bir satır ekleyerek işlem yapıyor
ve toplamlarını alıyor. Bu toplamı kapat butonuna tıkladığım zaman Rapor Sayfasınin (F2:G2) kolonunun en son dolu olan satırına kopya alıp sonra
Kapat butonunun çalışmasını istiyorum. Şu anda eklediğim satırı kapat butonu ile sildiğim zaman
Adisyonmasa1 deki sonuç veri olmadığı için 0 oluyor Rapor sayfasındaki toplam eklenen satırlar silinmeden önceki toplam olarak kalmasını istiyorum

bu mümkün mü aceba?
Dosyayı ekledim Yardımlarınız için şimdiden teşekkür ediyorum.

 

[asi_kral]

Merhaba
Kapatı nereden yapacaksınız_? Onu göremedim. Normal excel'den çıkışta mı bu işemi yapsın istiyorsunuz yoksa.

 

[northcyprus]

sayın hocam kapat spariş al diye bi buton var ordan userform açılıyor onun içinde.

 

[asi_kral]

sayın hocam kapat spariş al diye bi buton var ordan userform açılıyor onun içinde.

Merhaba
Kapat butonundaki kodu bununla değiştirip dener misiniz_?

Private Sub KAPAT_Click()
cevap = MsgBox("Masa Kapatılacak ... Emin misiniz ?", vbYesNo, "KAPAT ONAYI")
If cevap = vbYes Then
Unload Me
Dim BUL As Range, S1 As Worksheet, S2 As Worksheet
Dim STR As Long
Set S1 = Sheets("ADİSYONMASA1")
Set S2 = Sheets("Rapor")
Set BUL = S1.Range("A:A").Find("TOPLAM :", , , xlWhole)
If S1.Cells(BUL.Row, "C") > 0 Then
STR = S2.Range("A" & Rows.Count).End(xlUp).Row + 1
S2.Cells(STR, "A") = S1.Range("A6")
S2.Cells(STR, "F") = S1.Cells(BUL.Row, "C")
Set BUL = Nothing
End If
   Dim C As Range, sat As Long
    
    Set C = [A:A].Find("y")
    If Not C Is Nothing Then
        sat = C.Row
    End If
    
    If sat = 11 Then Exit Sub
    Rows("11:" & sat - 1).Delete Shift:=xlUp
    
  Sheets("PRİNT").Select
    Columns("A:D").Select
    Range("A2").Activate
    Selection.ClearContents
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Range("A1:D1").Select


Sheets("SPARİŞ AL").Select
Range("A1").Select
End If


End Sub

 

[northcyprus]

sayın hocam hata sarı renkli bölgede hata veriyor..

Private Sub KAPAT_Click()
cevap = MsgBox("Masa Kapatılacak ... Emin misiniz ?", vbYesNo, "KAPAT ONAYI")
If cevap = vbYes Then
Unload Me
Dim BUL As Range, S1 As Worksheet, S2 As Worksheet
Dim STR As Long
Set S1 = Sheets("ADİSYONMASA1")
Set S2 = Sheets("Rapor")
STR = S2.Range("A" & Rows.Count).End(xlUp).Row + 1
S2.Cells(STR, "A") = S1.Range("A6")
Set BUL = S1.Range("A:A").Find("TOPLAM :", , , xlWhole)
S2.Cells(STR, "F") = S1.Cells(BUL.Row, "C")
Set BUL = Nothing
Dim C As Range, sat As Long

Set C = [A:A].Find("y")
If Not C Is Nothing Then
sat = C.Row
End If

If sat = 11 Then Exit Sub
Rows("11:" & sat - 1).Delete Shift:=xlUp

Sheets("PRİNT").Select
Columns("A").Select
Range("A2").Activate
Selection.ClearContents
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
Range("A11").Select


Sheets("SPARİŞ AL").Select
Range("A1").Select
End If


End Sub

 

[northcyprus]

sayın hocam tamamdır şimdimdi çalışıyor ben toplamın noktalarını silmiştim düzelltim fakat Spariş olmadığında kapata basınca rapora almasın diye bir kod ekleyebilirmiyiz .

 

[asi_kral]

sayın hocam tamamdır şimdimdi çalışıyor ben toplamın noktalarını silmiştim düzelltim fakat Spariş olmadığında kapata basınca rapora almasın diye bir kod ekleyebilirmiyiz .

Üstteki kodu güncelledim.

 

[northcyprus]

sayın hocam çok teşekkür ediyorum emeklerinize sağlık...

 

[asi_kral]

sayın hocam çok teşekkür ediyorum emeklerinize sağlık...

Kolay Gelsin.