Faturada boşluklar gözükmesin

[Kübra Sarıkaya]

Merhaba,

Ben bu konuyu daha önce farklı konu altında açtım fakat anlatamadım o yüzden sağlıklı sonuç alamadım. şimdi gerçek listeyi ekledim. basitcene yaptım.

benim istediğim sipariş formuna yazılan miktarların geldiği fatura alanında boş alanlar gözükmesin. dosyada herşey o kadar açık ve netki umarım bu sefer çözüm bulurum.

Boş alanlar gözükmeyince doğal olarak alt kısımdaki toplam, banka bilgisi, kap bilgisi ürünler bitikten sonra gelicek.

Şimdiden teşekkürler,

 

[uzmanamele]

Merhaba
Yazmadan önce A sütununda filtre uygulamak çözüm olabilir.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Range("A16:I16").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$16:$I$132").AutoFilter Field:=1, Criteria1:="<>"
End Sub

Tavsiyem, bunu makro ile yapmak yerine kendiniz yapın.

 

[Necdet]

Merhaba,

Aşağıdaki iki yordamı iki ayrı butona bağlayabilirsiniz. Başka yöntemlerde olabilir.

Sub Gizle()
    
    Dim i As Integer
    
    If Not ActiveSheet.Name = "Invoice (TL)" Then Exit Sub
    
    Application.ScreenUpdating = False
    
    i = 16
    
    Do
    i = i + 1
    Loop Until Cells(i, "A") = ""
    If i < 133 Then Rows(i & ":132").Hidden = True
    
    Application.ScreenUpdating = False
    
End Sub

Sub Goster()
    
    If Not ActiveSheet.Name = "Invoice (TL)" Then Exit Sub
    
    Application.ScreenUpdating = False
    
    Rows("17:132").Hidden = False
    
    Application.ScreenUpdating = False
    
End Sub

 

[Kübra Sarıkaya]

Merhaba
Yazmadan önce A sütununda filtre uygulamak çözüm olabilir.

Private Sub Workbook_BeforePrint(Cancel As Boolean)
    Range("A16:I16").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$16:$I$132").AutoFilter Field:=1, Criteria1:="<>"
End Sub

Tavsiyem, bunu makro ile yapmak yerine kendiniz yapın.

merhaba, yaptım fakat çalışmadı yada ben çalıştıramadım ....

 

[Kübra Sarıkaya]

Merhaba,

Aşağıdaki iki yordamı iki ayrı butona bağlayabilirsiniz. Başka yöntemlerde olabilir.

Sub Gizle()
    
    Dim i As Integer
    
    If Not ActiveSheet.Name = "Invoice (TL)" Then Exit Sub
    
    Application.ScreenUpdating = False
    
    i = 16
    
    Do
    i = i + 1
    Loop Until Cells(i, "A") = ""
    If i < 133 Then Rows(i & ":132").Hidden = True
    
    Application.ScreenUpdating = False
    
End Sub

Sub Goster()
    
    If Not ActiveSheet.Name = "Invoice (TL)" Then Exit Sub
    
    Application.ScreenUpdating = False
    
    Rows("17:132").Hidden = False
    
    Application.ScreenUpdating = False
    
End Sub

butona bağlamayı bilmiyorum pek bilgim yok makro buton ilişkisinde... yardımcı olursanız çok sevinirim. çünkü alt f11 le ekledim fakat çalıştıramadım butona bağlamayınca

 

[uzmanamele]

merhaba, yaptım fakat çalışmadı yada ben çalıştıramadım ....

Merhaba
Makro yerine manuel yapmanızı tavsiye etmiştim zaten.
Alt+F11 ile kod bölümüne girdiğinizde, Bu Çalışma Kitabı yani ThisWorkbook kısmına yazacaksınız.

 

[Kübra Sarıkaya]

Merhaba
Makro yerine manuel yapmanızı tavsiye etmiştim zaten.
Alt+F11 ile kod bölümüne girdiğinizde, Bu Çalışma Kitabı yani ThisWorkbook kısmına yazacaksınız.

merhaba, sizin ekledğiniz örneği makroları etkinleştirererk çalıştırdım hiçbişey olmadı ? nerde hata yapıyorum anlamadım...

 

[uzmanamele]

merhaba, sizin ekledğiniz örneği makroları etkinleştirererk çalıştırdım hiçbişey olmadı ? nerde hata yapıyorum anlamadım...

Merhaba

Merakımı mazur görün, makroları etkinleştirdikten sonra yazdır butonuna bastınız mı acaba?

 

[Necdet]

Merhaba,

Excel2010 da Workbook'un içinde SheetBeforePrint olayını göremedim.

Bende kodları değiştirdim. Kodların butonla ilişkili halini inceleyiniz. Kodlar ilgili sayfanın kod bölümünde olmalı.

Private Sub CommandButton1_Click()
    
    Dim i As Integer
        
    Application.ScreenUpdating = False
    
    If CommandButton1.Caption = "GIZLE" Then
        i = 16
        Do
        i = i + 1
        Loop Until Cells(i, "A") = ""
        
        If i < 133 Then Rows(i & ":132").Hidden = True
        
        CommandButton1.Caption = "GOSTER"
    Else
        Rows("17:132").Hidden = False
        CommandButton1.Caption = "GIZLE"
    End If
    
    Application.ScreenUpdating = False
    
End Sub

 

[Kübra Sarıkaya]

yardımlarınız içi çok teşekkürler. çok güzel olmuş hepsi... çok çok teşekkürler Allah a emanet ol