Gİzle GÖster

[86126]

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&#304;ZLE"
ToggleButton1.ForeColor = vbRed
Cells.EntireRow.Hidden = False
Cells.EntireColumn.Hidden = False
End If
End Sub

Arkada&#351;lar elimde yukar&#305;daki gibi gizleyip g&#246;stermesi i&#231;in kod var. ancak sat&#305;r 389 a kadar hesaplama yapmas&#305; gerekirken 350 ye kadar yap&#305;yor. bunu nas&#305;l d&#252;zeltebilirim.

a&#231;&#305;k&#231;as&#305; "N" sutunundaki 0 de&#287;erli verileri bulunan sutunlar&#305; gizlemesini istiyorum.

 

[emrexcel123]

sn 86126 şu kodları deneyebilirmisiniz ?
Sub gizle()
For x = 1 To [n65536].End(3).Row
If Cells(x, "N").Value = 0 Then
Rows(x).EntireRow.Hidden = True
End If
Next
End Sub
ii çalışmalar...