sabit satır

[sisozen]

sayın arkadaşlar. merhaba..
a2 a9981 kadar verilerim var.
a9982 a18800 ilgili toplamlarım var.
ben userformda sili çalıştırınca satır satır siliniyor güzel..
ancak bu esnada toplamlarımda kaydırıyor.
mesala a5 silince toplamlarım a9981 kaymış oluyor..
toplamlar kısmındaki a9982 başlayan kısmı sabit tutabilirmiyim.

 

[Recep İpek]

Silme makrosunu ekleyebilirmisiniz?

Sanırım makronuz satırı olduğu gibi siliyor.

 

[sisozen]

Private Sub CommandButton3_Click()

satır = ActiveCell.Row
Rows(satır).Delete Shift:=xlUp

For i = 1 To WorksheetFunction.CountA(Range("a2:a9981"))

Cells(i + 1, 1) = i
Next

End Sub