vergileri ayrı sayfaya yazdırmak

[igultekin2000]

iyi akşamlar; firmaya çeşitli vergilr tek sayfa halinde listeleniyor. bunları türüne göre yani; KDV, STOPAJ vb. gibi türüne göre ayrı sayfalara yazdırmak istiyorum. şimdiden teşekkür ederim.

 

[Ömer BARAN]

Merhaba.

Aşağıdaki kodu boş bir Modüle yapıştırın,
Kod'u çalıştırmadan önce;
-- Ya Sayfa1 dışındaki sayfaları silin (kod gerekli sayfaları oluşturacak)
-- Ya da Sayfa1 hariç tüm sayfalarda mevcut verileri silin.
Sonra da kod'u çalıştırın.
.

[B]Sub aktar()[/B]
Set s1 = Sheets("Sayfa1")
s1son = s1.Cells(Rows.Count, "A").End(3).Row
Application.ScreenUpdating = False

For sat = 1 To s1son
    If s1.Cells(sat, 1) = "Vergi Türü" Or s1.Cells(sat, 1) = "TOPLAM" Then
    If sat = s1son Then GoTo 10
        sayfa = s1.Cells(sat + 1, "A")
            For s = 1 To Sheets.Count
                If Sheets(s).Name = sayfa Then ss = 1
            Next
            If ss = 0 Then
                Sheets.Add After:=ActiveSheet
                ActiveSheet.Name = sayfa
                For sut = 1 To 4
                    ActiveSheet.Columns(sut).ColumnWidth = s1.Columns(sut).ColumnWidth
                Next
            End If: ss = 0: sat = sat + 1
        For satt = sat To s1son
            ssat = Sheets(sayfa).Cells(Rows.Count, "A").End(3).Row + 1
            If ssat = 2 Then s1.Range("A1:D1").Copy Sheets(sayfa).[A1]
            s1.Range("A" & satt & ":D" & satt).Copy Sheets(sayfa).Cells(ssat, "A")
                If s1.Cells(satt, "A") = "TOPLAM" Then
                    sat = satt - 1: Exit For
                End If
        Next
    End If
Next
10: s1.Activate: Application.ScreenUpdating = True
MsgBox "İşlem tamamlandı.", vbInformation, "..:: Ömer BARAN ::.."
[B]End Sub[/B]

 

[igultekin2000]

sorunsuz çalışıyor

Merhaba.

Aşağıdaki kodu boş bir Modüle yapıştırın,
Kod'u çalıştırmadan önce;
-- Ya Sayfa1 dışındaki sayfaları silin (kod gerekli sayfaları oluşturacak)
-- Ya da Sayfa1 hariç tüm sayfalarda mevcut verileri silin.
Sonra da kod'u çalıştırın.

Teşekkür ederim, sorunsuz çalışıyor, iyi çalışmalar.