Eta Nakli Yekun Araligini Silme

Bir arkadasimizin sorusu uzerine ETA adli prigramdan aldigi muavindeki nakli yekun araliklari, bunlar sayfalar arasi araliklari ifade ediyor. Bilemiyorum bu programi kullananlariniz varmi ama varsa yararli olabilir sanirim..

Sub nakli_yekun_sil()
On Error GoTo hata
10
Cells.Find(What:="ARA TOPLAM", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=True, SearchFormat:=False).Offset(-1, 0).Select
For a = 1 To 11
Rows(ActiveCell.Row).EntireRow.Delete shift:=xlUp
Next a
GoTo 10
hata:
MsgBox "Temizlik Islemi Tamamlandi!!!!"
End Sub


Yazar: mmustafaaslan

2004 yilindan itibaren ozel bir sirketin finans departmaninda calismaktadir. Kendini excel, visual basic kullaniminda gelistirmis olan yazarimiz; Meslegi geregi SAP konusunda ileri derecede bilgilidir.

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


1 + 3 =