If Activecell = Last Day of month Then Run a Loop

[RyanTG]

Hi VBA ninjas!

Is it possible to run a loop based on this?


If Activecell = Last Day of Month


1. Excel 2010; Windows 7 Pro

2. PC

 

[Norie]

What do you want to loop?

Are you trying to find the last day of the month in a column/row/range?

 

[RyanTG]

<style type="text/css">
table.tableizer-table {
font-size: 12px;
border: 1px solid #CCC; font-family: Arial, Helvetica, sans-serif;
}
.tableizer-table td {
padding: 4px;
margin: 3px;
border: 1px solid #ccc;
}
.tableizer-table th {
background-color: #104E8B;
color: #FFF;
font-weight: bold;
}
</style>
<table class="tableizer-table">
<tr class="tableizer-firstrow"><th>Mon, Dec 28</th><th>101</th><th>Old Gm</th><th>?</th><th>101</th><th>30.7%</th><th>49</th><th>70</th><th>0</th><th>5</th><th>16</th><th>10</th><th>0</th><th>0</th><th>0</th></tr>
<tr><td>Tue, Dec 29</td><td>100</td><td>Old Gm</td><td>?</td><td>98</td><td>15.3%</td><td>39</td><td>83</td><td>0</td><td>1</td><td>9</td><td>5</td><td>2</td><td>1</td><td>1</td></tr>
<tr><td>Wed, Dec 30</td><td>22</td><td>Old Gm</td><td>1</td><td>17</td><td>35.3%</td><td>6</td><td>11</td><td>0</td><td>2</td><td>3</td><td>1</td><td>5</td><td>5</td><td>0</td></tr>
<tr><td>Thu, Dec 31</td><td>30</td><td>Old Gm</td><td>2</td><td>30</td><td>30.0%</td><td>13</td><td>21</td><td>0</td><td>1</td><td>7</td><td>1</td><td>0</td><td>0</td><td>0</td></tr>
<tr><td>Totals</td><td>449</td><td> </td><td>3</td><td>401</td><td>33.2%</td><td>188</td><td>268</td><td>4</td><td>19</td><td>81</td><td>33</td><td>48</td><td>35</td><td>13</td></tr>
<tr><td> </td><td> </td><td> </td><td> </td><td> </td><td> </td><td> </td><td> </td><td> </td><td> </td><td> </td><td> </td><td> </td><td> </td><td> </td></tr>
<tr><td>Mon, Jan 04</td><td>62</td><td>Old Gm</td><td>4</td><td>60</td><td>25.0%</td><td>25</td><td>45</td><td>0</td><td>2</td><td>9</td><td>4</td><td>2</td><td>1</td><td>1</td></tr>
<tr><td>Tue, Jan 05</td><td>64</td><td>Old Gm</td><td>4</td><td>59</td><td>27.1%</td><td>21</td><td>43</td><td>0</td><td>5</td><td>6</td><td>5</td><td>5</td><td>5</td><td>0</td></tr>
<tr><td>Wed, Jan 06</td><td>100</td><td>Old Gm</td><td>6</td><td>97</td><td>28.9%</td><td>40</td><td>69</td><td>0</td><td>2</td><td>15</td><td>11</td><td>3</td><td>1</td><td>2</td></tr>
</table>

 

[RyanTG]

In Column A I am trying to say:

If Activecell.value= Last Day in Month then....

 

[Norie]

So are you looping down column A?

 

[RyanTG]

Although I could do that, I am saying range.("a100000").end(xlup).select

Then If Activecell.value= Last Day in Month

 

[RyanTG]

Excel Workbook
	A	B	C	D	E	F	G
80	Tue, Jan 26	74	Old Gm	1	70	28.6%	40
81	Wed, Jan 27	5	?	0	5	20.0%	2
82	Thu, Jan 28	100	Old Gm	0	98	25.5%	43
83	Fri, Jan 29	9	?	0	8	25.0%	4
Stats

 

[RyanTG]

Trying to add a "Totals" row once I hit the last month.

 

[Zack Barresse]

Why not use Subtotals? Or put your data in a table and summarize with a Pivot Table?

 

[RyanTG]

Great idea! Thank you Zack!