<div>
Your request is not clear, at least to me.<br />
Would you please elaborate it to let us know your exact requirement?
</div>


<div>
Neeraj, &nbsp;my apologies. <br />
<br />
I have three cells where there are list box drop downs. &nbsp;In the first cell (E8) you can select 6 different choices. &nbsp;What I want a Macro to do is that if the first choice in the selection for E8, &quot;Consistently&quot;, is selected, I want it to automatically place the choices for the other two boxes. &nbsp;For F8, it would place &quot;Achieve&quot; in the box and for F10, &quot;n/a&quot;. &nbsp;IF &quot;Consistently&quot; is not selected for E8, then any dropdown selection can be choosen for all three boxes.<br />
<br />
Does that make sense?<br />
<br />
B.
</div>


<div>
Neeraj,<br />
<br />
You nailed it! &nbsp;Thank you very much. Great job. &nbsp;Works perfectly.<br />
<br />
B.
</div>


<div>
Neeraj,<br />
<br />
Quick question. &nbsp;Let's say I need the same capability down the E column, say E8:E26, how would I set up the macro to adapt to choices in other E selections between that range? &nbsp;In other words, if I went to E25 and selected &quot;Consistently&quot; in E25, how would I get it to properly populate the other F &amp;&nbsp;H25 cells?<br />
<br />
B.
</div>


<div>
You're welcome. Glad to help.<br />
<br />
In that case replace the existing code with the following one...<br />
<br />

<pre><code class="code-1 nolinks" id="code-20-41737569-1"><span>Private Sub Worksheet_Change(ByVal Target As Range)</span>
<span>If Target.CountLarge &gt; 1 Then Exit Sub</span>
<span>If Not Intersect(Target, Range(&quot;E8:E26&quot;)) Is Nothing Then</span>
<span>    Application.EnableEvents = False</span>
<span>    Target.Offset(0, 1).Value = &quot;ACHIEVE&quot;</span>
<span>    Target.Offset(0, 3).Value = &quot;n/a&quot;</span>
<span>    Application.EnableEvents = True</span>
<span>End If</span>
<span>End Sub</span>
</code></pre>
</div>


<div>
This works, but one small problem. &nbsp;In the original ask, I had said, &quot;if the first choice in the selection for E8, &quot;Consistently&quot;, is selected....&quot; &nbsp;The way the macro is presently written, if any selection is made in E8:E26, it populates F8:26 with &quot;Achieve&quot;. &nbsp;It's only suppose to do that when &quot;Consistently&quot; is choosen in the E Cells.<br />
<br />
B.
</div>


<div>
Ah.. okay got it. <br />
Please try the below code.....<br />

<pre><code class="code-10 nolinks" id="code-20-41737613-1"><span>Private Sub Worksheet_Change(ByVal Target As Range)</span>
<span>If Target.CountLarge &gt; 1 Then Exit Sub</span>
<span>If Not Intersect(Target, Range(&quot;E8:E26&quot;)) Is Nothing Then</span>
<span>    If Target = &quot;CONSISTENTLY&quot; Then</span>
<span>        Application.EnableEvents = False</span>
<span>        Target.Offset(0, 1).Value = &quot;ACHIEVE&quot;</span>
<span>        Target.Offset(0, 3).Value = &quot;n/a&quot;</span>
<span>        Application.EnableEvents = True</span>
<span>    End If</span>
<span>End If</span>
<span>End Sub</span>
</code></pre>
</div>


<div>
Thank you! &nbsp;Now it works perfectly.<br />
<br />
B.
</div>


<div>
<div class="content wysiwyg-content">
EE Pros,<br />
<br />
I have a Worksheet that has a 3 dropdown cells. &nbsp;In the first cell, if you select &quot;Consistently&quot;, then the other two cells identified, are auto. populated. &nbsp;If &quot;Consistently&quot; is not selected, you can put any other choice from the list box in the cells.<br />
<br />
That's it! &nbsp;Much thanks in advance.<br />
<br />
B.<br />
<a href="https://filedb.experts-exchange.com/incoming/2016/08_w32/1109409/Macro-for-populating-Cells.xlsm" target="_blank" class="file-inline" title="Cell Population with Macro (15 KB)"><svg xmlns="http://www.w3.org/2000/svg" viewBox="0 0 512 512"><path d="M67.508 468.467c-58.005-58.013-58.016-151.92 0-209.943l225.011-225.04c44.643-44.645 117.279-44.645 161.92 0 44.743 44.749 44.753 117.186 0 161.944l-189.465 189.49c-31.41 31.413-82.518 31.412-113.926.001-31.479-31.482-31.49-82.453 0-113.944L311.51 110.491c4.687-4.687 12.286-4.687 16.972 0l16.967 16.971c4.685 4.686 4.685 12.283 0 16.969L184.983 304.917c-12.724 12.724-12.73 33.328 0 46.058 12.696 12.697 33.356 12.699 46.054-.001l189.465-189.489c25.987-25.989 25.994-68.06.001-94.056-25.931-25.934-68.119-25.932-94.049 0l-225.01 225.039c-39.249 39.252-39.258 102.795-.001 142.057 39.285 39.29 102.885 39.287 142.162-.028A739446.174 739446.174 0 0 1 439.497 238.49c4.686-4.687 12.282-4.684 16.969.004l16.967 16.971c4.685 4.686 4.689 12.279.004 16.965a755654.128 755654.128 0 0 0-195.881 195.996c-58.034 58.092-152.004 58.093-210.048.041z"/></svg>Macro-for-populating-Cells.xlsm</a>
</div>
</div>


Macro-for-populating-Cells.xlsm

EE Pros,

I have a Worksheet that has a 3 dropdown cells.  In the first cell, if you select "Consistently", then the other two cells identified, are auto. populated.  If "Consistently" is not selected, you can put any other choice from the list box in the cells.

That's it!  Much thanks in advance.

B.

Macro to populate cells or allow for validation input

Microsoft Excel topics include formulas, formatting, VBA macros and user-defined functions, and everything else related to the spreadsheet user interface, including error messages.