DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Kutu()
For sayfa = 1 To Sheets.Count
If Sheets(sayfa).Name <> "Master" Then
For i = 1 To 28
If Cells(1, i) > Sheets("Master").Range("G11") Then Cells(6, i) = Cells(1, i) Else Cells(6, i) = ""
If Cells(2, i) > Sheets("Master").Range("J11") Then Cells(7, i) = Cells(2, i) Else Cells(7, i) = ""
If Cells(3, i) > Sheets("Master").Range("M11") Then Cells(8, i) = Cells(3, i) Else Cells(8, i) = ""
If Cells(6, i) <> "" And Cells(7, i) <> "" And Cells(8, i) <> "" Then Cells(9, i) = Cells(6, i) * Cells(7, i) * Cells(8, i) Else Cells(9, i) = ""
Next i
End If
Range("A15") = WorksheetFunction.Min(Range("A9:AB9"))
Next
End Sub
Sub Kutu()
For sayfa = 1 To Sheets.Count
If Sheets(sayfa).Name <> "Master" Then
For i = 1 To 28
If Sheets(sayfa).Cells(1, i) > Sheets("Master").Range("G11") Then Sheets(sayfa).Cells(6, i) = Sheets(sayfa).Cells(1, i) Else Sheets(sayfa).Cells(6, i) = ""
If Sheets(sayfa).Cells(2, i) > Sheets("Master").Range("J11") Then Sheets(sayfa).Cells(7, i) = Sheets(sayfa).Cells(2, i) Else Sheets(sayfa).Cells(7, i) = ""
If Sheets(sayfa).Cells(3, i) > Sheets("Master").Range("M11") Then Sheets(sayfa).Cells(8, i) = Sheets(sayfa).Cells(3, i) Else Sheets(sayfa).Cells(8, i) = ""
If Sheets(sayfa).Cells(6, i) <> "" And Sheets(sayfa).Cells(7, i) <> "" And Sheets(sayfa).Cells(8, i) <> "" Then Sheets(sayfa).Cells(9, i) = Sheets(sayfa).Cells(6, i) * Sheets(sayfa).Cells(7, i) * Sheets(sayfa).Cells(8, i) Else Sheets(sayfa).Cells(9, i) = ""
Next i
End If
Range("A15") = WorksheetFunction.Min(Range("A9:AB9"))
Next
End Sub
Sub Kutu()
For sayfa = 1 To Sheets.Count
If Sheets(sayfa).Name <> "Master" Then
For i = 1 To 28
If Sheets(sayfa).Cells(1, i) > Sheets("Master").Range("G11") Then Sheets(sayfa).Cells(6, i) = Sheets(sayfa).Cells(1, i) Else Sheets(sayfa).Cells(6, i) = ""
If Sheets(sayfa).Cells(2, i) > Sheets("Master").Range("J11") Then Sheets(sayfa).Cells(7, i) = Sheets(sayfa).Cells(2, i) Else Sheets(sayfa).Cells(7, i) = ""
If Sheets(sayfa).Cells(3, i) > Sheets("Master").Range("M11") Then Sheets(sayfa).Cells(8, i) = Sheets(sayfa).Cells(3, i) Else Sheets(sayfa).Cells(8, i) = ""
If Sheets(sayfa).Cells(6, i) <> "" And Sheets(sayfa).Cells(7, i) <> "" And Sheets(sayfa).Cells(8, i) <> "" Then Sheets(sayfa).Cells(9, i) = Sheets(sayfa).Cells(6, i) * Sheets(sayfa).Cells(7, i) * Sheets(sayfa).Cells(8, i) Else Sheets(sayfa).Cells(9, i) = ""
Next i
End If
Sheets(sayfa).Range("A15") = WorksheetFunction.Min(Range("A9:AB9"))
Next
End Sub