condition between number in macro

[sksanjeev786]

Hi Team

I have a below macro but I need condition between

1. =+10 and above Green
2. =-10 and above = Red
3.=+5 and +9= light green
4.=-5 and -9 =light Red.

and also while running this below macro it is running for all slide I need for certain slides like (slide 6,10,12)

Thanks in advance.

Sub colorformat()

   Dim s As Slide
   Dim oSh As Shape
   Dim oTbl As Table
   Dim lRow As Long
   Dim lCol As Long
    Dim cell As ReflectionFormat
  
   For Each s In ActivePresentation.Slides
       For Each oSh In s.Shapes
           If oSh.HasTable Then
               Set oTbl = oSh.Table
               For lRow = 2 To oTbl.Rows.Count
                   For lCol = 3 To oTbl.Columns.Count
                     
                       If IsNumeric(oTbl.cell(lRow, lCol).Shape.TextFrame.TextRange) = True Then
                      
                       If oTbl.cell(lRow, lCol).Shape.TextFrame.TextRange >= 5 Then
                       oTbl.cell(lRow, lCol).Shape.Fill.ForeColor.RGB = RGB(102, 228, 102)
                       oTbl.cell(lRow, lCol).Shape.TextFrame.TextRange.Font.Color.RGB = RGB(255, 255, 255)
                        Else
                        If oTbl.cell(lRow, lCol).Shape.TextFrame.TextRange <= -5 Then
                        oTbl.cell(lRow, lCol).Shape.Fill.ForeColor.RGB = RGB(237, 102, 102)
                        oTbl.cell(lRow, lCol).Shape.TextFrame.TextRange.Font.Color.RGB = RGB(255, 255, 255)
                        Else
                        If oTbl.cell(lRow, lCol).Shape.TextFrame.TextRange = Null Then
                        End If

                        End If
                        End If
                        End If
                       
                   Next
               Next
           End If
       Next    ' Shape
   Next s
End Sub

 

[sksanjeev786]

Hi Team,

Can anyone help me with this

Thanks in advance.
Thanks.
Regards,
sanjeev

 

[sksanjeev786]

Hi Team

I have a below macro but I need condition between

1. =+10 and above Green
2. =-10 and above = Red
3.=+5 and +9= light green
4.=-5 and -9 =light Red.

and also while running this below macro it is running for all slide I need for certain slides like (slide 6,10,12)

Thanks in advance.

Sub colorformat()

   Dim s As Slide
   Dim oSh As Shape
   Dim oTbl As Table
   Dim lRow As Long
   Dim lCol As Long
    Dim cell As ReflectionFormat
 
   For Each s In ActivePresentation.Slides
       For Each oSh In s.Shapes
           If oSh.HasTable Then
               Set oTbl = oSh.Table
               For lRow = 2 To oTbl.Rows.Count
                   For lCol = 3 To oTbl.Columns.Count
                    
                       If IsNumeric(oTbl.cell(lRow, lCol).Shape.TextFrame.TextRange) = True Then
                     
                       If oTbl.cell(lRow, lCol).Shape.TextFrame.TextRange >= 5 Then
                       oTbl.cell(lRow, lCol).Shape.Fill.ForeColor.RGB = RGB(102, 228, 102)
                       oTbl.cell(lRow, lCol).Shape.TextFrame.TextRange.Font.Color.RGB = RGB(255, 255, 255)
                        Else
                        If oTbl.cell(lRow, lCol).Shape.TextFrame.TextRange <= -5 Then
                        oTbl.cell(lRow, lCol).Shape.Fill.ForeColor.RGB = RGB(237, 102, 102)
                        oTbl.cell(lRow, lCol).Shape.TextFrame.TextRange.Font.Color.RGB = RGB(255, 255, 255)
                        Else
                        If oTbl.cell(lRow, lCol).Shape.TextFrame.TextRange = Null Then
                        End If

                        End If
                        End If
                        End If
                      
                   Next
               Next
           End If
       Next    ' Shape
   Next s
End Sub

Hi Team,

Any help on the above query condition.

Thanks in advance.
sanjeev

 

[sksanjeev786]

Any help on the above query condition.

Thanks in advance.
sanjeev

Can anyone help me on the above query?

Thanks

 

[sksanjeev786]

Hi Team,

To simplify the above macro i need data with the below condition as of now I have only greater than and less than 5 macro

1. =+10 and above Green
2. =-10 and above = Red
3.=+5 and +9= light green
4.=-5 and -9 =light Red.


If oTbl.cell(lRow, lCol).Shape.TextFrame.TextRange >= 5 Then

If oTbl.cell(lRow, lCol).Shape.TextFrame.TextRange <= -5 Then

 

[sksanjeev786]

Hi Team,

To simplify the above macro i need data with the below condition as of now I have only greater than and less than 5 macro

1. =+10 and above Green
2. =-10 and above = Red
3.=+5 and +9= light green
4.=-5 and -9 =light Red.


If oTbl.cell(lRow, lCol).Shape.TextFrame.TextRange >= 5 Then

If oTbl.cell(lRow, lCol).Shape.TextFrame.TextRange <= -5 Then

HI Team,

Anyone have solution

Thanks
Sanjeev