Private Sub ToggleButton1_Click()
If ToggleButton1 = True Then
ToggleButton1.Caption = "GÖSTER"
ToggleButton1.ForeColor = vbBlue
Cells.EntireRow.Hidden = False
Cells.EntireColumn.Hidden = False
For X = 5 To [A65536].End(3).Row
If Cells(X, "N") = 0 Then Rows(X).EntireRow.Hidden = True
Next
For X = 1 To [IV389].End(1).Column
If Cells(389, X) <> "" And Cells(389, X) = 0 Then Columns(X).EntireColumn.Hidden = True
Next
Else
ToggleButton1.Caption = "GİZLE"
ToggleButton1.ForeColor = vbRed
Cells.EntireRow.Hidden = False
Cells.EntireColumn.Hidden = False
End If
End Sub
Arkadaşlar elimde yukarıdaki gibi gizleyip göstermesi için kod var. ancak satır 389 a kadar hesaplama yapması gerekirken 350 ye kadar yapıyor. bunu nasıl düzeltebilirim.
açıkçası "N" sutunundaki 0 değerli verileri bulunan sutunları gizlemesini istiyorum.
If ToggleButton1 = True Then
ToggleButton1.Caption = "GÖSTER"
ToggleButton1.ForeColor = vbBlue
Cells.EntireRow.Hidden = False
Cells.EntireColumn.Hidden = False
For X = 5 To [A65536].End(3).Row
If Cells(X, "N") = 0 Then Rows(X).EntireRow.Hidden = True
Next
For X = 1 To [IV389].End(1).Column
If Cells(389, X) <> "" And Cells(389, X) = 0 Then Columns(X).EntireColumn.Hidden = True
Next
Else
ToggleButton1.Caption = "GİZLE"
ToggleButton1.ForeColor = vbRed
Cells.EntireRow.Hidden = False
Cells.EntireColumn.Hidden = False
End If
End Sub
Arkadaşlar elimde yukarıdaki gibi gizleyip göstermesi için kod var. ancak satır 389 a kadar hesaplama yapması gerekirken 350 ye kadar yapıyor. bunu nasıl düzeltebilirim.
açıkçası "N" sutunundaki 0 değerli verileri bulunan sutunları gizlemesini istiyorum.
Son düzenleme: