sabit olarak bulunan; F5 Hücresindeki =EĞER(E5<>"";C5*E5;"") ve G5 hücrsindeki =EĞER(E5<>"";M5;"") fomülünü
eklenen satıra otomatik olarak ekleye bilmek için nasıl bir değişiklik yapmak gerekir.
Kod: Tümünü seç
Sub Ekle()
Dim i As Integer
s = Sheets("Teklif").[H65536].End(3).Row
Sheets("Teklif").Range("B" & s & ":H" & s).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
For i = 5 To s
Top = Top + (Sheets("Teklif").Range("H" & i) * Sheets("Teklif").Range("H" & i))
Next i
If Top = 0 Then Exit Sub
Sheets("Teklif").Range("H" & s + 1) = Round(Top, 2)
End Sub
Sub Sil()
Dim i, s As Integer
s = Sheets("Teklif").[H65536].End(3).Row - 1
If s = 5 Then MsgBox "SİLİNECEK SATIR YOK", vbInformation, "BİLGİ": Exit Sub
Sheets("Teklif").Range("B" & s & ":H" & s).Delete Shift:=xlUp
For i = 5 To s - 1
Top = Top + (Sheets("Teklif").Range("H" & i) * Sheets("Teklif").Range("H" & i))
Next i
If Top = 0 Then Exit Sub
Sheets("Teklif").Range("B" & s) = Round(Top, 2)
End Sub
Sub Sıfırla()
Dim i, s As Integer
s = Sheets("Teklif").[H65536].End(3).Row
If s > 6 Then Sheets("Teklif").Range("B6:H" & s - 1).Delete Shift:=xlUp
End Sub