Hi All, I have the following code that is supposed to hide rows that contain certain criteria, and if they don't have the criteria, to autofit the content to the cell. The "cell" is a merged range. The "hidden" part of the code is working, but the autofit is not working however... Strange thing too, the autofit does not even work manually (double clicking the row)... Code is here:
VBA Code:
Set rng1 = Worksheets("Summary").Range("A19:A28").Cells
Set rng2 = Worksheets("Summary").Range("A33:A42").Cells
Set rngData1 = Worksheets("Data").Range("I2:I11").Cells
Set rngData2 = Worksheets("Data").Range("H2:H11").Cells
For Each rCell In rng1
If (rCell.Value = "0" Or rCell.Value = "00.01.1900" Or rCell.Value = "" Or rCell.Value = "00:00:00") Then
If rCell.EntireRow.Hidden = True Then
GoTo 1
Else:
rCell.EntireRow.Hidden = True
End If
End If
1
Next rCell
For Each rCell In rng1
If rCell.EntireRow.Hidden = False Then
rCell.EntireRow.AutoFit
End If
Next rCell
For Each rCell In rng2
If (rCell.Value = "0" Or rCell.Value = "00.01.1900" Or rCell.Value = "" Or rCell.Value = "00:00:00") Then
If rCell.EntireRow.Hidden = True Then
GoTo 2
Else:
rCell.EntireRow.Hidden = True
End If
End If
2
Next rCell
For Each rCell In rng2
If rCell.EntireRow.Hidden = False Then
rCell.EntireRow.AutoFit
End If
Next rCell