vergi listesi düzenleme

[igultekin2000]

iyi günler; vergi dairesinden aldığım dökümün yorumlanabilir hale gelmesi için biraz düzenleme yapmam gerekiyor. uzun listelerde elle yapmak zor oluyor. belli sütünün silinmesi ve belli sütunun renklenmesi şeklinde, rengin önemi yok.teşekkürler.

 

[askm]

Bence sayfa1 olan hali, sayfa2 ye de olması gereken halini yapıp da eklerseniz daha kolay olur. Şu andaki örnekde sadece 2. ve 3. satırı silme işlemi gibi gözüküyor.Onun için de rows(2).delete
rows(3).delete yazmanız yeterli.

 

[igultekin2000]

3 satırda başlayan

Bence sayfa1 olan hali, sayfa2 ye de olması gereken halini yapıp da eklerseniz daha kolay olur. Şu andaki örnekde sadece 2. ve 3. satırı silme işlemi gibi gözüküyor.Onun için de rows(2).delete
rows(3).delete yazmanız yeterli.

3 satırda başlayan ve bitene kadar devam eden
Vergi Kodu Taksit No Ödenen Gecikme Zammı şeklinde yazan satırların tamamının silinmesi , yapmak istediğim

 

[halit3]

kod:

Sub satırsil()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

For i = Cells(Rows.Count, "A").End(3).Row To 2 Step -1
If Cells(i, "A").Value = "Vergi Kodu" Then
Rows(i).Delete
End If
If Val(Len(Cells(i, "D").Value)) = 23 Then
Rows(i).Delete
End If
Next i

MsgBox "Silme İşlemi Tamanlanmıştır"

End Sub

 

[halit3]

kodu güncelliyorum.

Sub satırsil()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

For i = Cells(Rows.Count, "A").End(3).Row To 2 Step -1
If Cells(i, "A").Value = "Vergi Kodu" Then
Rows(i).Delete
End If

[COLOR="Red"]If Cells(i, "A").Value = "Vergi Türü" Then
Rows(i).Delete
End If[/COLOR]


If Val(Len(Cells(i, "D").Value)) = 23 Then
Rows(i).Delete
End If
Next i

MsgBox "Silme İşlemi Tamanlanmıştır"

End Sub

 

[askm]

Aşağıdaki kod işinize yarar sanırım.

Sub askm_Satir_Sil()
Dim SonSat As Long
SonSat = Range("A" & Rows.Count).End(xlUp).Row
For i = SonSat To 2 Step -1
    If Cells(i, 1) = "Vergi Kodu"  Then 'Toplamları da silmek istiyorsanız if den önce tek tırnağı ekleyin.
'    If Cells(i, 1) = "Vergi Kodu" Or Cells(i, 1) = "TOPLAM" Then  'Toplamları da silmek istiyorsanız if den önceki tek tırnağı silin
        Rows(i).Delete
    End If
Next i
MsgBox "İşlem Tamamlandı...", vbInformation, "ASKM"
End Sub

 

[igultekin2000]

Sorunsuz çalışıyor

kodu güncelliyorum.

Sub satırsil()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

For i = Cells(Rows.Count, "A").End(3).Row To 2 Step -1
If Cells(i, "A").Value = "Vergi Kodu" Then
Rows(i).Delete
End If

[COLOR="Red"]If Cells(i, "A").Value = "Vergi Türü" Then
Rows(i).Delete
End If[/COLOR]


If Val(Len(Cells(i, "D").Value)) = 23 Then
Rows(i).Delete
End If
Next i

MsgBox "Silme İşlemi Tamanlanmıştır"

End Sub

teşekkürler, hızlı sorunsuz çalışıyor

 

[igultekin2000]

teşekkürler

Aşağıdaki kod işinize yarar sanırım.

Sub askm_Satir_Sil()
Dim SonSat As Long
SonSat = Range("A" & Rows.Count).End(xlUp).Row
For i = SonSat To 2 Step -1
    If Cells(i, 1) = "Vergi Kodu"  Then 'Toplamları da silmek istiyorsanız if den önce tek tırnağı ekleyin.
'    If Cells(i, 1) = "Vergi Kodu" Or Cells(i, 1) = "TOPLAM" Then  'Toplamları da silmek istiyorsanız if den önceki tek tırnağı silin
        Rows(i).Delete
    End If
Next i
MsgBox "İşlem Tamamlandı...", vbInformation, "ASKM"
End Sub

Halit Bey' in kodu işimi gördü, teşekkürler.

 

[halit3]

kodu birazcık daha kısalttım

Sub satırsil()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

For i = Cells(Rows.Count, "A").End(3).Row To 2 Step -1
If Cells(i, "A").Value = "Vergi Kodu" Or Cells(i, "A").Value = "Vergi Türü" Or Val(Len(Cells(i, "D").Value)) = 23 Then
Rows(i).Delete
End If
Next i

MsgBox "Silme İşlemi Tamanlanmıştır"

End Sub

 

[assenucler]

Sayın halit3,


Toplam satırındaki sayılar "kalın siyah" yapılabilir mi?

Emek, katkı ve paylaşımlar için teşekkürler.

Sevgi ve saygılar.

 

[halit3]

kod:

Sub satırsil()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

For i = Cells(Rows.Count, "A").End(3).Row To 2 Step -1

[COLOR="Red"]If Cells(i, "A").Value = "TOPLAM" Then
Range("A" & i & ":D" & i).Font.Bold = True
End If[/COLOR]

If Cells(i, "A").Value = "Vergi Kodu" Or Cells(i, "A").Value = "Vergi Türü" Or Val(Len(Cells(i, "D").Value)) = 23 Then
Rows(i).Delete
End If
Next i

MsgBox "Silme İşlemi Tamanlanmıştır"

End Sub

 

[assenucler]

Teşekkürler üstadım,


Sevgi ve saygılar.

 

[igultekin2000]

kotta sorun var.

kod:

Sub satırsil()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

For i = Cells(Rows.Count, "A").End(3).Row To 2 Step -1

[COLOR="Red"]If Cells(i, "A").Value = "TOPLAM" Then
Range("A" & i & ":D" & i).Font.Bold = True
End If[/COLOR]

If Cells(i, "A").Value = "Vergi Kodu" Or Cells(i, "A").Value = "Vergi Türü" Or Val(Len(Cells(i, "D").Value)) = 23 Then
Rows(i).Delete
End If
Next i

MsgBox "Silme İşlemi Tamanlanmıştır"

End Sub

ilk heyecanla sorunsuz yazmışım ama eksiklik var. Makro vergi 0003 - G.STOPAJ 01/2014-03/2014 16.2.2015 20150216/03-Fjd/0000772 gibi satırları da siliyor. bu verginin türü ve ödeme zamanını gösteriyor. listede sadece " Vergi Kodu Taksit No Ödenen Gecikme Zammı " yazan satırların silinmesi gerekiyor. kusura bakmayın , eğer mümkünse ,

 

[askm]

Koddaki
If Cells(i, "A").Value = "Vergi Kodu" Or Cells(i, "A").Value = "Vergi Türü" Or Val(Len(Cells(i, "D").Value)) = 23 Then

kısmını
If Cells(i, "A").Value = "Vergi Kodu" Or Cells(i, "A").Value = "Vergi Türü" Then
ile değiştirin.
sanırım olur.

 

[halit3]

Kod tahsilat fiş numaralarını da siliyor bu doğrultuda yazıldı.
eğer silinmeyecekse kodu aşağıdaki ile değiştirin

Sub satırsil()
Application.ScreenUpdating = False
Application.DisplayAlerts = False

For i = Cells(Rows.Count, "A").End(3).Row To 2 Step -1

If Cells(i, "A").Value = "TOPLAM" Then
Range("A" & i & ":D" & i).Font.Bold = True
End If

If Cells(i, "A").Value = "Vergi Kodu" Or Cells(i, "A").Value = "Vergi Türü" Then
Rows(i).Delete

End If
Next i

MsgBox "Silme İşlemi Tamanlanmıştır"

End Sub

 

[igultekin2000]

Sorunsuz çalışıyor

Koddaki
If Cells(i, "A").Value = "Vergi Kodu" Or Cells(i, "A").Value = "Vergi Türü" Or Val(Len(Cells(i, "D").Value)) = 23 Then

kısmını
If Cells(i, "A").Value = "Vergi Kodu" Or Cells(i, "A").Value = "Vergi Türü" Then
ile değiştirin.
sanırım olur.

teşekkürler, dediğiniz şekilde oldu.