57076_zvyrazneni-bunek.xlsx
Veď stačí PF na oblasť $I$2:$AW$17 so vzorcom
=AND($G2="receipts";I2>0)
=A($G2="receipts";I2>0)
EDIT:
Makro by vyzeralo asi takto:
Sub Zvyraznit()
Dim RNG As Range
Dim R As Long, y As Integer
Dim D()
With Worksheets("mrp_daily")
R = .UsedRange.Rows.Count - 1
If R < 1 Then MsgBox "Žádné data", vbExclamation: Exit Sub
With .Range("G2:AW" & R + 1)
D = .Value2
For R = 1 To R
If D(R, 1) = "Receipts" Then
For y = 3 To UBound(D, 2)
If D(R, y) > 0 Then
If RNG Is Nothing Then Set RNG = .Cells(R, y) Else Set RNG = Union(RNG, .Cells(R, y))
End If
Next y
End If
Next R
End With
If Not RNG Is Nothing Then RNG.Select
End With
Set RNG = Nothing
End Sub
=AND($G2="receipts";I2>0)
=A($G2="receipts";I2>0)
EDIT:
Makro by vyzeralo asi takto:
Sub Zvyraznit()
Dim RNG As Range
Dim R As Long, y As Integer
Dim D()
With Worksheets("mrp_daily")
R = .UsedRange.Rows.Count - 1
If R < 1 Then MsgBox "Žádné data", vbExclamation: Exit Sub
With .Range("G2:AW" & R + 1)
D = .Value2
For R = 1 To R
If D(R, 1) = "Receipts" Then
For y = 3 To UBound(D, 2)
If D(R, y) > 0 Then
If RNG Is Nothing Then Set RNG = .Cells(R, y) Else Set RNG = Union(RNG, .Cells(R, y))
End If
Next y
End If
Next R
End With
If Not RNG Is Nothing Then RNG.Select
End With
Set RNG = Nothing
End Sub
Příloha: 
57079_zvyrazneni-bunek.zip (21kB, staženo 0x)
citovat57079_zvyrazneni-bunek.zip (21kB, staženo 0x)
RSS nejnovější články