Tablo sonuna satır ekleme ve formülleme

[EKREM1661]

Saygıdeğer arkadaşlar..! Evvela selamlar..!

Elimizde bir tablo ve sonunda toplam satırı var..
Fakat bu tabloya ileride satır eklenebilir..
Bunun için bir düğmeden;

1-toplam satırının hemen üstüne bir satır ilave yapacak ve
2-ilave yaptığı satıra, sıra numarası verecek
3-ilave olan satırda formül olmayacağı için, bir üst satırda veya hücrede var olan formülleri (verileri değil) kendisine kopyalayacak

Ekte birşeyler yapmaya çalıştım, fakat herhalde sağlıklı olmayacak..

 

[Seyit Tiken]

Ekli dosyayı inceleyiniz.

Private Sub CommandButton1_Click()
[B1:B1000].Find("TOPLAM").Offset(0, 4).EntireRow.Insert
[B1:B1000].Find("TOPLAM").Offset(0, 1) = "=SUM(R[-22]C:R[-1]C)"
[B1:B1000].Find("TOPLAM").Offset(0, 2) = "=SUM(R[-22]C:R[-1]C)"
[B1:B1000].Find("TOPLAM").Offset(0, 4) = "=SUM(R[-22]C:R[-1]C)"
[B1:B1000].Find("TOPLAM").Offset(0, 5) = "=SUM(R[-22]C:R[-1]C)"
[B1:B1000].Find("TOPLAM").Offset(-1, 4) = "=IF(RC[-3]=RC[-2],0,IF((CEILING((RC[-3]*RC[-1])/100,0.01))>(RC[-3]-RC[-2]),RC[-3]-RC[-2],CEILING((RC[-3]*RC[-1])/100,0.01)))"
[B1:B1000].Find("TOPLAM").Offset(-1, 5) = "=RC[-1]+RC[-3]"
[A6500].End(3).Offset(1) =  [A6500].End(3).Value+1
[B1:B1000].Find("TOPLAM").Select
Selection.End(xlUp).Offset(1).Select
End Sub

 

[EKREM1661]

Sayın Seyit_Tiken hocama teşekkürlerimi ve memnuniyetimi ifade ederim..!

Talep ettiğim karşılığı tam olarak buldum.. eksik olmasınlar.. Cümle hayatında başarılar diliyorum..