Ekli makroda 2.sayfa hariç Sayfa 3,4,5,6,7 ve 8 sayfalarda ki satırların gizlenmesi 30:150 satırlarında veri olmayan satırlar gizleniyor. Oysa ki 2.sayfada ki satırlar ise 41:150 arasındaki satırlar arasında veri olmayanlar gizleniyor. 2.sayfadaki şartı Sayfa 3,5 ve 7. sayfalar için nasıl yaparız. Makro ektedir.
Kod:
Sub Gizle()
Application.ScreenUpdating = False
Sheets("PİYASA ARAŞTIRMA").Unprotect 1978
Sheets("MUAYENE KABUL").Unprotect 1978
Sheets("ÖLÇÜ TESPİT TUTANAĞI").Unprotect 1978
Sheets("METRAJ CETVELİ").Unprotect 1978
Sheets("YAKLAŞIK MALİYET CETVELİ").Unprotect 1978
Sheets("ARIZA TESPİT RAPORU").Unprotect 1978
Dim sat As Long
Dim S1 As Worksheet, S2 As Worksheet, S3 As Worksheet, S4 As Worksheet, S5 As Worksheet, S6 As Worksheet, S7 As Worksheet, S8 As Worksheet
On Error Resume Next
Set S1 = Worksheets("VERİ GİRİŞİ")
Set S2 = Worksheets("PİYASA ARAŞTIRMA")
Set S3 = Worksheets("MUAYENE KABUL")
Set S4 = Worksheets("ÖLÇÜ TESPİT TUTANAĞI")
Set S5 = Worksheets("METRAJ CETVELİ")
Set S6 = Worksheets("YAKLAŞIK MALİYET CETVELİ")
Set S7 = Worksheets("ARIZA TESPİT RAPORU")
Set S8 = Worksheets("TAMİR SONRASI FORM")
S2.Range("I30:I150") = S1.Range("E30:E150").Value
S2.Range("J30:J150") = S1.Range("J30:J150").Value
S2.Range("Q30:T150") = S1.Range("M30:P150").Value
S3.Range("I30:I150") = S1.Range("E30:E150").Value
S3.Range("J30:J150") = S1.Range("J30:J150").Value
S3.Range("Q30:R150") = S1.Range("M30:N150").Value
S4.Range("I30:I150") = S1.Range("E30:E150").Value
S4.Range("J30:J150") = S1.Range("J30:J150").Value
S4.Range("Q30:R150") = S1.Range("M30:N150").Value
S5.Range("I30:I150") = S1.Range("E30:E150").Value
S5.Range("J30:J150") = S1.Range("J30:J150").Value
S5.Range("Q30:R150") = S1.Range("M30:N150").Value
S6.Range("I30:I150") = S1.Range("E30:E150").Value
S6.Range("J30:J150") = S1.Range("J30:J150").Value
S6.Range("Q30:T150") = S1.Range("M30:P150").Value
S7.Range("I30:I150") = S1.Range("E30:E150").Value
S7.Range("J30:J150") = S1.Range("F30:F150").Value
S8.Range("I30:I150") = S1.Range("E30:E150").Value
S8.Range("J30:J150") = S1.Range("J30:J150").Value
S8.Range("Q30:R150") = S1.Range("M30:N150").Value
For Each Sayfa In Worksheets
Select Case Sayfa.Name
Case "VERİ GİRİŞİ", "BİLGİ GİRİŞİ"
Case S2.Name
Sayfa.Rows("41:150").Hidden = False
Sayfa.Range("J41:J150").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
Case Else
Sayfa.Rows("30:150").Hidden = False
Sayfa.Range("J30:J150").SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Select
Next
With Sheets("Veri Girişi").Range("o30:o150")
If WorksheetFunction.CountBlank(.Cells) > 0 Then
.SpecialCells(xlCellTypeBlanks).Value = 0
End If
End With
Sheets("PİYASA ARAŞTIRMA").Protect 1978
Sheets("MUAYENE KABUL").Protect 1978
Sheets("ÖLÇÜ TESPİT TUTANAĞI").Protect 1978
Sheets("METRAJ CETVELİ").Protect 1978
Sheets("YAKLAŞIK MALİYET CETVELİ").Protect 1978
Sheets("ARIZA TESPİT RAPORU").Protect 1978
Application.ScreenUpdating = True
End Sub