I cannot keep trying to solve this...It will eventually do me in.
So I found you on google. I hope someone can help.
I need a vba code for the attached excel 2010 file
Once i have a vba code, i can then adjust it for further vba challenges.
Thanks in advance for anyone willing to help.
<?xml version="1.0"?>
<?mso-application progid="Excel.Sheet"?>
<Workbook xmlns="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:o="urn:schemas-microsoft-com:office:office"
xmlns:x="urn:schemas-microsoft-com:office:excel"
xmlns:ss="urn:schemas-microsoft-com:office:spreadsheet"
xmlns:html="http://www.w3.org/TR/REC-html40">
<DocumentProperties xmlns="urn:schemas-microsoft-com:office:office">
<Author>Hayden</Author>
<LastAuthor>Hayden</LastAuthor>
<Created>2011-09-21T15:26:17Z</Created>
<LastSaved>2011-09-21T16:00:04Z</LastSaved>
<Version>14.00</Version>
</DocumentProperties>
<OfficeDocumentSettings xmlns="urn:schemas-microsoft-com:office:office">
<AllowPNG/>
</OfficeDocumentSettings>
<ExcelWorkbook xmlns="urn:schemas-microsoft-com:office:excel">
<WindowHeight>12330</WindowHeight>
<WindowWidth>24915</WindowWidth>
<WindowTopX>480</WindowTopX>
<WindowTopY>45</WindowTopY>
<ProtectStructure>False</ProtectStructure>
<ProtectWindows>False</ProtectWindows>
</ExcelWorkbook>
<Styles>
<Style ss:ID="Default" ss:Name="Normal">
<Alignment ss:Vertical="Bottom"/>
<Borders/>
<Font ss:FontName="Calibri" x:Family="Swiss" ss:Size="11" ss:Color="#000000"/>
<Interior/>
<NumberFormat/>
<Protection/>
</Style>
<Style ss:ID="s16">
<Font ss:FontName="Calibri" x:Family="Swiss" ss:Size="9" ss:Color="#000000"/>
</Style>
<Style ss:ID="s17">
<Alignment ss:Horizontal="Left" ss:Vertical="Bottom"/>
<Font ss:FontName="Calibri" x:Family="Swiss" ss:Size="9" ss:Color="#000000"/>
</Style>
<Style ss:ID="s18">
<Borders>
<Border ss:Position="Left" ss:LineStyle="Continuous" ss:Weight="1"/>
</Borders>
<Font ss:FontName="Calibri" x:Family="Swiss" ss:Size="9" ss:Color="#000000"/>
<NumberFormat ss:Format="0"/>
</Style>
<Style ss:ID="s19">
<Font ss:FontName="Calibri" x:Family="Swiss" ss:Size="9" ss:Color="#000000"/>
<NumberFormat ss:Format="0"/>
</Style>
<Style ss:ID="s20">
<Borders>
<Border ss:Position="Left" ss:LineStyle="Continuous" ss:Weight="1"/>
</Borders>
<Font ss:FontName="Calibri" x:Family="Swiss" ss:Size="9" ss:Color="#000000"/>
</Style>
<Style ss:ID="s21">
<Font ss:FontName="Calibri" x:Family="Swiss" ss:Size="9" ss:Color="#000000"
ss:StrikeThrough="1"/>
</Style>
<Style ss:ID="s22">
<Alignment ss:Horizontal="Left" ss:Vertical="Bottom"/>
<Font ss:FontName="Calibri" x:Family="Swiss" ss:Size="9" ss:Color="#000000"
ss:StrikeThrough="1"/>
</Style>
<Style ss:ID="s23">
<Borders>
<Border ss:Position="Left" ss:LineStyle="Continuous" ss:Weight="1"/>
</Borders>
<Font ss:FontName="Calibri" x:Family="Swiss" ss:Size="9" ss:Color="#000000"
ss:StrikeThrough="1"/>
<NumberFormat ss:Format="0"/>
</Style>
<Style ss:ID="s24">
<Font ss:FontName="Calibri" x:Family="Swiss" ss:Size="9" ss:Color="#000000"
ss:StrikeThrough="1"/>
<NumberFormat ss:Format="0"/>
</Style>
<Style ss:ID="s25">
<Borders>
<Border ss:Position="Left" ss:LineStyle="Continuous" ss:Weight="1"/>
</Borders>
<Font ss:FontName="Calibri" x:Family="Swiss" ss:Size="9" ss:Color="#000000"
ss:StrikeThrough="1"/>
</Style>
<Style ss:ID="s26">
<Alignment ss:Horizontal="Left" ss:Vertical="Bottom"/>
<Font ss:FontName="Calibri" x:Family="Swiss" ss:Color="#000000"/>
</Style>
<Style ss:ID="s27">
<Alignment ss:Horizontal="Left" ss:Vertical="Bottom"/>
<Font ss:FontName="Calibri" x:Family="Swiss" ss:Color="#000000"
ss:StrikeThrough="1"/>
</Style>
<Style ss:ID="s28">
<Borders>
<Border ss:Position="Left" ss:LineStyle="Continuous" ss:Weight="1"/>
</Borders>
<Font ss:FontName="Calibri" x:Family="Swiss" ss:Size="9" ss:Color="#000000"/>
<Interior ss:Color="#C4D79B" ss:Pattern="Solid"/>
<NumberFormat ss:Format="0"/>
</Style>
<Style ss:ID="s29">
<Font ss:FontName="Calibri" x:Family="Swiss" ss:Size="9" ss:Color="#000000"/>
<Interior ss:Color="#C4D79B" ss:Pattern="Solid"/>
<NumberFormat ss:Format="0"/>
</Style>
<Style ss:ID="s30">
<Borders>
<Border ss:Position="Left" ss:LineStyle="Continuous" ss:Weight="1"/>
</Borders>
<Font ss:FontName="Calibri" x:Family="Swiss" ss:Size="9" ss:Color="#000000"/>
<Interior/>
<NumberFormat ss:Format="0"/>
</Style>
<Style ss:ID="s31">
<Font ss:FontName="Calibri" x:Family="Swiss" ss:Size="9" ss:Color="#000000"/>
<Interior/>
<NumberFormat ss:Format="0"/>
</Style>
</Styles>
<Worksheet ss:Name="Sheet2">
<Table ss:ExpandedColumnCount="50" ss:ExpandedRowCount="2273" x:FullColumns="1"
x:FullRows="1" ss:StyleID="s16" ss:DefaultColumnWidth="24.75"
ss:DefaultRowHeight="10.5">
<Column ss:StyleID="s26" ss:AutoFitWidth="0" ss:Width="403.5"/>
<Column ss:StyleID="s16" ss:AutoFitWidth="0" ss:Width="13.5"/>
<Column ss:StyleID="s16" ss:AutoFitWidth="0" ss:Width="22.5"/>
<Column ss:StyleID="s16" ss:AutoFitWidth="0" ss:Width="79.5"/>
<Column ss:StyleID="s17" ss:AutoFitWidth="0" ss:Width="14.25"/>
<Column ss:StyleID="s17" ss:AutoFitWidth="0" ss:Width="22.5"/>
<Column ss:StyleID="s16" ss:AutoFitWidth="0" ss:Width="53.25"/>
<Column ss:StyleID="s16" ss:AutoFitWidth="0" ss:Width="9.75" ss:Span="1"/>
<Column ss:Index="10" ss:StyleID="s16" ss:AutoFitWidth="0" ss:Width="17.25"/>
<Column ss:StyleID="s16" ss:Width="18.75"/>
<Column ss:StyleID="s18" ss:AutoFitWidth="0" ss:Width="18"/>
<Column ss:StyleID="s19" ss:AutoFitWidth="0" ss:Width="18"/>
<Column ss:Index="15" ss:StyleID="s18" ss:AutoFitWidth="0" ss:Width="12.75"/>
<Column ss:StyleID="s19" ss:AutoFitWidth="0" ss:Width="12.75" ss:Span="1"/>
<Column ss:Index="18" ss:StyleID="s18" ss:AutoFitWidth="0" ss:Width="12.75"/>
<Column ss:StyleID="s19" ss:AutoFitWidth="0" ss:Width="12.75" ss:Span="3"/>
<Column ss:Index="24" ss:StyleID="s20" ss:AutoFitWidth="0" ss:Width="17.25"/>
<Column ss:StyleID="s16" ss:AutoFitWidth="0" ss:Width="18"/>
<Column ss:StyleID="s16" ss:AutoFitWidth="0" ss:Width="17.25"/>
<Column ss:StyleID="s18" ss:AutoFitWidth="0" ss:Width="13.5"/>
<Column ss:StyleID="s19" ss:AutoFitWidth="0" ss:Width="17.25"/>
<Column ss:StyleID="s16" ss:AutoFitWidth="0" ss:Width="19.5"/>
<Column ss:AutoFitWidth="0" ss:Span="2"/>
<Column ss:Index="33" ss:StyleID="s16" ss:AutoFitWidth="0" ss:Width="20.25"/>
<Column ss:Index="46" ss:StyleID="s19" ss:AutoFitWidth="0" ss:Width="13.5"
ss:Span="4"/>
<Row ss:AutoFitHeight="0">
<Cell ss:Index="2"><Data ss:Type="String">data data data data data data data data data data data data data data data data data data data data data data data data data data data data data data data data data data data data data data data data data data data data data data data data data data data 5 WARWICK FARM 21/09/2011 1600m LAKE MOORE HCP BM73 *54* $27000 3yo+ Benchmark 73 Fillies & Mares Hcp</Data></Cell>
<Cell ss:Index="30" ss:StyleID="s16"/>
<Cell ss:StyleID="s16"/>
<Cell ss:StyleID="s16"/>
<Cell ss:Index="45"><Data ss:Type="String">HORSE</Data></Cell>
</Row>
<Row ss:AutoFitHeight="0">
<Cell ss:Index="2"><Data ss:Type="String">TNO</Data></Cell>
<Cell ss:Index="15"><Data ss:Type="String">ST1</Data></Cell>
<Cell><Data ss:Type="String">ST2</Data></Cell>
<Cell><Data ss:Type="String">ST3</Data></Cell>
<Cell><Data ss:Type="Number">0</Data></Cell>
<Cell><Data ss:Type="Number">0</Data></Cell>
<Cell><Data ss:Type="Number">0</Data></Cell>
<Cell><Data ss:Type="Number">0</Data></Cell>
<Cell><Data ss:Type="Number">0</Data></Cell>
<Cell><Data ss:Type="String">CLS</Data></Cell>
<Cell ss:Index="30" ss:StyleID="s16"/>
<Cell ss:StyleID="s16"/>
<Cell ss:StyleID="s16"/>
<Cell ss:Index="45"><Data ss:Type="String">Yamunotri</Data></Cell>
<Cell><Data ss:Type="Number">60.1</Data></Cell>
<Cell><Data ss:Type="Number">55.9</Data></Cell>
<Cell><Data ss:Type="Number">54.5</Data></Cell>
<Cell><Data ss:Type="Number">54.4</Data></Cell>
<Cell><Data ss:Type="Number">50.7</Data></Cell>
</Row>
<Row ss:AutoFitHeight="0">
<Cell><Data ss:Type="String">Hello</Data></Cell>
<Cell><Data ss:Type="Number">1</Data></Cell>
<Cell ss:Index="15"><Data ss:Type="Number">52.6</Data></Cell>
<Cell><Data ss:Type="Number">51.1</Data></Cell>
<Cell><Data ss:Type="Number">53.5</Data></Cell>
<Cell><Data ss:Type="Number">58</Data></Cell>
<Cell ss:StyleID="s31"><Data ss:Type="Number">57.2</Data></Cell>
<Cell><Data ss:Type="Number">56.3</Data></Cell>
<Cell><Data ss:Type="Number">54.2</Data></Cell>
<Cell ss:StyleID="s31"><Data ss:Type="Number">53.5</Data></Cell>
<Cell ss:Index="30" ss:StyleID="s16"/>
<Cell ss:StyleID="s16"/>
<Cell ss:StyleID="s16"/>
<Cell ss:Index="45"><Data ss:Type="String">Warburg</Data></Cell>
<Cell><Data ss:Type="Number">54.1</Data></Cell>
<Cell><Data ss:Type="Number">53.5</Data></Cell>
<Cell><Data ss:Type="Number">53.3</Data></Cell>
<Cell><Data ss:Type="Number">52.9</Data></Cell>
<Cell><Data ss:Type="Number">52.8</Data></Cell>
</Row>
<Row ss:AutoFitHeight="0">
<Cell><Data ss:Type="String">What I need is a vba code than highlights certain numbers in the columns O-V.</Data></Cell>
<Cell><Data ss:Type="Number">2</Data></Cell>
<Cell ss:Index="15"><Data ss:Type="Number">54.3</Data></Cell>
<Cell ss:StyleID="s29"><Data ss:Type="Number">52.4</Data></Cell>
<Cell ss:StyleID="s29"><Data ss:Type="Number">56.5</Data></Cell>
<Cell><Data ss:Type="Number">56.5</Data></Cell>
<Cell><Data ss:Type="Number">56.3</Data></Cell>
<Cell><Data ss:Type="Number">54.8</Data></Cell>
<Cell><Data ss:Type="Number">54.3</Data></Cell>
<Cell ss:StyleID="s31"><Data ss:Type="Number">53.9</Data></Cell>
<Cell ss:Index="30" ss:StyleID="s16"/>
<Cell ss:StyleID="s16"/>
<Cell ss:StyleID="s16"/>
<Cell ss:Index="45"><Data ss:Type="String">Very Bizarre</Data></Cell>
<Cell><Data ss:Type="Number">54.9</Data></Cell>
<Cell><Data ss:Type="Number
Why can't you do it with conditional formatting (or a macro that set's conditional formatting?
for example conditional formating rule for range O50:O57
when value between =max(O50:O57) -2 to = max(O50:O57)
To handle the cells with strikethrough it will be a bit hard, but it can be done from VBA.
We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.