satır gizle ve göster

[yuzun23]

3 ile 1033 satırları arası otomatik GİZLE ve GÖSTER için ne yapmamız lazım. buton ile yapmak istiyorum . şimdiden teşekkür ederim.

 

[yuzun23]

3 ile 1003

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu deneyiniz.

Sub kod()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim alan As Range
Dim a As Integer
Dim b As Byte
Set alan = Range("A2")
Rows("3:1003").Hidden = True
For a = 3 To 1003
    For b = 1 To 20
        If Cells(a, b) <> "" Then
            Set alan = Union(alan, Range("A" & a))
            Exit For
        End If
    Next
Next
alan.EntireRow.Hidden = False
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

 

[yuzun23]

ömer bey kodu uyguladım ama nasıl çalıştıracam. butonmu oluşturacam ne yapmam lazım

 

[ÖmerBey]

Artık nasıl isteseniz...
Buton oluşturup makro ata diyerek kodu gösterebilirsiniz ya da Alt+F8 diyerek açılan pencereden kodu seçip çalıştırabilirsiniz.
Dilerseniz de fatura sayfasının kod bölümüne aşağıdaki kodu kopyalayarak, fatura sekmesine geçilince kodun otomatik çalışmasını sağlayabilirsiniz.

Private Sub Worksheet_Activate()
Call kod 'Modül içerisindeki çalıştırmak istediğiniz kodun adı
End Sub

 

[yuzun23]

teşekkür ederim ellerinize sağlık

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...

 

[yuzun23]

özür dilerim ama beceremedim. kod özürlüyüm

 

[ÖmerBey]

Dosyanız ekte...

 

[yuzun23]

teşekkür ederim. hakkınızı helal ediniz