Akif59
Altın Üye
- Katılım
- 15 Mart 2020
- Mesajlar
- 66
- Excel Vers. ve Dili
- 2013 ve 2016
- Altın Üyelik Bitiş Tarihi
- 20-03-2025
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
For i = 32 To 64
If Target.Address = Cells(i, 3).Address Then
Select Case Target.Value
Case Is = ""
Call Rows1
Case Is <> ""
Call Rows2
End Select
End If
Next i
For i = 83 To 115
If Target.Address = Cells(i, 3).Address Then
Select Case Target.Value
Case Is = ""
Call Rows3
Case Is <> ""
Call Rows4
End Select
End If
Next i
For i = 33 To 110
If Target.Address = Cells(12, i).Address Then
Select Case Target.Value
Case Is <> ""
Call Columns1
Case Is = ""
Call Columns2
End Select
End If
Next i
End Sub
Sub Columns1()
Application.ScreenUpdating = False
For i = 33 To 110
If Cells(12, i) <> "" Then
Columns(i + 3).EntireColumn.Hidden = False
End If
Next i
Application.ScreenUpdating = True
End Sub
Sub Columns2()
Application.ScreenUpdating = False
For i = 33 To 110
If Cells(12, i) = "" Then
Columns(i + 3).EntireColumn.Hidden = True
End If
Next i
Application.ScreenUpdating = True
End Sub
Sub Rows1()
Application.ScreenUpdating = False
For i = 32 To 64
If Cells(i - 1, 3) = "" Then
Rows(i + 3).EntireRow.Hidden = True
End If
Next i
Application.ScreenUpdating = True
End Sub
Sub Rows2()
Application.ScreenUpdating = False
For i = 32 To 64
If Cells(i - 1, 3) <> "" Then
Rows(i + 3).EntireRow.Hidden = False
End If
Next i
Application.ScreenUpdating = True
End Sub
Sub Rows3()
Application.ScreenUpdating = False
For i = 83 To 115
If Cells(i - 1, 3) = "" Then
Rows(i + 3).EntireRow.Hidden = True
End If
Next i
Application.ScreenUpdating = True
End Sub
Sub Rows4()
Application.ScreenUpdating = False
For i = 83 To 115
If Cells(i - 1, 3) <> "" Then
Rows(i + 3).EntireRow.Hidden = False
End If
Next i
Application.ScreenUpdating = True
End Sub
For i = 32 To 64
If Target.Address = Cells(i, 3).Address Then
Select Case Target.Value
Case Is = ""
Call Rows1
Case Is <> ""
Call Rows2
End Select
End If
Next i
For i = 83 To 115
If Target.Address = Cells(i, 3).Address Then
Select Case Target.Value
Case Is = ""
Call Rows3
Case Is <> ""
Call Rows4
End Select
End If
Next i
For i = 33 To 110
If Target.Address = Cells(12, i).Address Then
Select Case Target.Value
Case Is <> ""
Call Columns1
Case Is = ""
Call Columns2
End Select
End If
Next i
End Sub
Sub Columns1()
Application.ScreenUpdating = False
For i = 33 To 110
If Cells(12, i) <> "" Then
Columns(i + 3).EntireColumn.Hidden = False
End If
Next i
Application.ScreenUpdating = True
End Sub
Sub Columns2()
Application.ScreenUpdating = False
For i = 33 To 110
If Cells(12, i) = "" Then
Columns(i + 3).EntireColumn.Hidden = True
End If
Next i
Application.ScreenUpdating = True
End Sub
Sub Rows1()
Application.ScreenUpdating = False
For i = 32 To 64
If Cells(i - 1, 3) = "" Then
Rows(i + 3).EntireRow.Hidden = True
End If
Next i
Application.ScreenUpdating = True
End Sub
Sub Rows2()
Application.ScreenUpdating = False
For i = 32 To 64
If Cells(i - 1, 3) <> "" Then
Rows(i + 3).EntireRow.Hidden = False
End If
Next i
Application.ScreenUpdating = True
End Sub
Sub Rows3()
Application.ScreenUpdating = False
For i = 83 To 115
If Cells(i - 1, 3) = "" Then
Rows(i + 3).EntireRow.Hidden = True
End If
Next i
Application.ScreenUpdating = True
End Sub
Sub Rows4()
Application.ScreenUpdating = False
For i = 83 To 115
If Cells(i - 1, 3) <> "" Then
Rows(i + 3).EntireRow.Hidden = False
End If
Next i
Application.ScreenUpdating = True
End Sub