Stock Inventory vs orders sheet

K

Kiwi2020

New Member
Joined
Sep 26, 2018
Messages
6
Hello all,

I am hoping someone can help me. I am looking for a way to highlight any orders that are put in to a sheet that take the requirement over the current stock, But only highlight those orders not the ones there is enough stock for. So in the example below Alice's order of code 123 would need to highlight as there is not enough stock to fulfill this requirement.

[TABLE="class: grid, width: 500"]
<tbody>[TR]
[TD]Name[/TD]
[TD]Order Number[/TD]
[TD]Code 1[/TD]
[TD]Code 2[/TD]
[TD]Code 3[/TD]
[TD]Code 4[/TD]
[TD]Code 5[/TD]
[TD]Code 6[/TD]
[TD]Code 7[/TD]
[TD]Code 8[/TD]
[TD]Code 9[/TD]
[TD]Code 10[/TD]
[TD] [/TD]
[TD]Code[/TD]
[TD]Stock[/TD]
[/TR]
[TR]
[TD]Joe
[/TD]
[TD]1234[/TD]
[TD]123[/TD]
[TD]124[/TD]
[TD]125[/TD]
[TD]128[/TD]
[TD]134[/TD]
[TD]135[/TD]
[TD]136[/TD]
[TD]139[/TD]
[TD]140[/TD]
[TD]141[/TD]
[TD][/TD]
[TD]123[/TD]
[TD]3[/TD]
[/TR]
[TR]
[TD]Bill[/TD]
[TD]1235[/TD]
[TD]128[/TD]
[TD]125[/TD]
[TD]123[/TD]
[TD]134[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]124[/TD]
[TD]10[/TD]
[/TR]
[TR]
[TD]Mary[/TD]
[TD]2345[/TD]
[TD]125[/TD]
[TD]123[/TD]
[TD]134[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]125[/TD]
[TD]6[/TD]
[/TR]
[TR]
[TD]Alice[/TD]
[TD]3658[/TD]
[TD]123[/TD]
[TD]128[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]126[/TD]
[TD]4[/TD]
[/TR]
</tbody>[/TABLE]

I hope this makes sense.

Many thanks in advance for any assistance.
 

Excel Facts

What is =ROMAN(40) in Excel?
The Roman numeral for 40 is XL. Bill "MrExcel" Jelen's 40th book was called MrExcel XL.
Sort by date Sort by votes
Try this code:-
NB:- This code needs to go in the sheet Module:-
Right click sheet Tab ,select "View Code", vbwindow appears, Paste code in vbwindow, close Vb window.
Run code by changing values in columns "C to L"

Code: 
Private [COLOR="Navy"]Sub[/COLOR] Worksheet_Change(ByVal Target [COLOR="Navy"]As[/COLOR] Range)
[COLOR="Navy"]Dim[/COLOR] Rng [COLOR="Navy"]As[/COLOR] Range, Dn [COLOR="Navy"]As[/COLOR] Range, n [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long,[/COLOR] Q [COLOR="Navy"]As[/COLOR] Variant, nRng [COLOR="Navy"]As[/COLOR] Range
[COLOR="Navy"]Set[/COLOR] Rng = Range("N2", Range("N" & Rows.Count).End(xlUp))
[COLOR="Navy"]With[/COLOR] CreateObject("scripting.dictionary")
.CompareMode = vbTextCompare
[COLOR="Navy"]Set[/COLOR] nRng = Range("C2", Range("C" & Rows.Count).End(xlUp)).Resize(, 10)

[COLOR="Navy"]If[/COLOR] Not Intersect(Target, nRng) [COLOR="Navy"]Is[/COLOR] Nothing [COLOR="Navy"]Then[/COLOR]
    [COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] Rng
    .Item(Dn.Value) = Array(Dn.Offset(, 1).Value, 0)
[COLOR="Navy"]Next[/COLOR]
[COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] nRng
    [COLOR="Navy"]If[/COLOR] .exists(Dn.Value) [COLOR="Navy"]Then[/COLOR]
        Q = .Item(Dn.Value)
            Q(1) = Q(1) + 1
        .Item(Dn.Value) = Q
        [COLOR="Navy"]If[/COLOR] .Item(Dn.Value)(1) > .Item(Dn.Value)(0) [COLOR="Navy"]Then[/COLOR]
            Dn.Interior.Color = vbYellow
        [COLOR="Navy"]End[/COLOR] If
    [COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]Next[/COLOR] Dn
[COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]End[/COLOR] With
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]
Regards Mick
 
Upvote 0
Thank you very much Mick,

I have put this in my sheet but It is highlighting everything even if there is stock.

Is there a way to have it ignore anything that has a status of sent? so it is only counting the open orders and then highlighting any that there is not enough stock for?

The product codes are in columns L to U, Status is in column V and the stock figures are in column AD.

Again thank you so much for your help.
 
Upvote 0
Try this for new Locations:-

The product codes are in columns L to U, Status is in column V and the stock figures are in column AD.
Click to expand...

NB:- By "Status" I imagine you mean "Stock Number relating to Column AD
Code: 
Private [COLOR="Navy"]Sub[/COLOR] Worksheet_Change(ByVal Target [COLOR="Navy"]As[/COLOR] Range)
[COLOR="Navy"]Dim[/COLOR] Rng [COLOR="Navy"]As[/COLOR] Range, Dn [COLOR="Navy"]As[/COLOR] Range, n [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long,[/COLOR] Q [COLOR="Navy"]As[/COLOR] Variant, nRng [COLOR="Navy"]As[/COLOR] Range
Set Rng = Range("V2", Range("V" & Rows.Count).End(xlUp)) '[COLOR="Green"][B] "STOCK"[/B][/COLOR]
[COLOR="Navy"]With[/COLOR] CreateObject("scripting.dictionary")
.CompareMode = vbTextCompare

Set nRng = Range("L2", Range("L" & Rows.Count).End(xlUp)).Resize(, 10) '[COLOR="Green"][B] "Code Numbers"[/B][/COLOR]
  nRng.Interior.ColorIndex = xlNone
    [COLOR="Navy"]If[/COLOR] Not Intersect(Target, nRng) [COLOR="Navy"]Is[/COLOR] Nothing [COLOR="Navy"]Then[/COLOR]
        [COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] Rng
            .Item(CStr(Dn.Value)) = Array(Dn.Offset(, 8).Value, 0) '[COLOR="Green"][B](Dn.offset(,8)= Column "AD" = "Amount in Stock"[/B][/COLOR]
        [COLOR="Navy"]Next[/COLOR]
[COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] nRng
    [COLOR="Navy"]If[/COLOR] .exists(CStr(Dn.Value)) [COLOR="Navy"]Then[/COLOR]
        Q = .Item(CStr(Dn.Value))
            Q(1) = Q(1) + 1
        .Item(CStr(Dn.Value)) = Q
        [COLOR="Navy"]If[/COLOR] .Item(CStr(Dn.Value))(1) > .Item(CStr(Dn.Value))(0) [COLOR="Navy"]Then[/COLOR]
            Dn.Interior.Color = vbYellow
        [COLOR="Navy"]End[/COLOR] If
    [COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]Next[/COLOR] Dn
[COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]End[/COLOR] With
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]
Regards Mick
 
Upvote 0
Thanks Mick,

Unfortunately this is now only highlighting blank cells?

Sorry to be a pain.



MickG said:
Try this for new Locations:-



NB:- By "Status" I imagine you mean "Stock Number relating to Column AD
Code: 
Private [COLOR=Navy]Sub[/COLOR] Worksheet_Change(ByVal Target [COLOR=Navy]As[/COLOR] Range)
[COLOR=Navy]Dim[/COLOR] Rng [COLOR=Navy]As[/COLOR] Range, Dn [COLOR=Navy]As[/COLOR] Range, n [COLOR=Navy]As[/COLOR] [COLOR=Navy]Long,[/COLOR] Q [COLOR=Navy]As[/COLOR] Variant, nRng [COLOR=Navy]As[/COLOR] Range
Set Rng = Range("V2", Range("V" & Rows.Count).End(xlUp)) '[COLOR=Green][B] "STOCK"[/B][/COLOR]
[COLOR=Navy]With[/COLOR] CreateObject("scripting.dictionary")
.CompareMode = vbTextCompare

Set nRng = Range("L2", Range("L" & Rows.Count).End(xlUp)).Resize(, 10) '[COLOR=Green][B] "Code Numbers"[/B][/COLOR]
  nRng.Interior.ColorIndex = xlNone
    [COLOR=Navy]If[/COLOR] Not Intersect(Target, nRng) [COLOR=Navy]Is[/COLOR] Nothing [COLOR=Navy]Then[/COLOR]
        [COLOR=Navy]For[/COLOR] [COLOR=Navy]Each[/COLOR] Dn [COLOR=Navy]In[/COLOR] Rng
            .Item(CStr(Dn.Value)) = Array(Dn.Offset(, 8).Value, 0) '[COLOR=Green][B](Dn.offset(,8)= Column "AD" = "Amount in Stock"[/B][/COLOR]
        [COLOR=Navy]Next[/COLOR]
[COLOR=Navy]For[/COLOR] [COLOR=Navy]Each[/COLOR] Dn [COLOR=Navy]In[/COLOR] nRng
    [COLOR=Navy]If[/COLOR] .exists(CStr(Dn.Value)) [COLOR=Navy]Then[/COLOR]
        Q = .Item(CStr(Dn.Value))
            Q(1) = Q(1) + 1
        .Item(CStr(Dn.Value)) = Q
        [COLOR=Navy]If[/COLOR] .Item(CStr(Dn.Value))(1) > .Item(CStr(Dn.Value))(0) [COLOR=Navy]Then[/COLOR]
            Dn.Interior.Color = vbYellow
        [COLOR=Navy]End[/COLOR] If
    [COLOR=Navy]End[/COLOR] If
[COLOR=Navy]Next[/COLOR] Dn
[COLOR=Navy]End[/COLOR] If
[COLOR=Navy]End[/COLOR] With
[COLOR=Navy]End[/COLOR] [COLOR=Navy]Sub[/COLOR]
Regards Mick
Click to expand...
 
Upvote 0
Try this slightly Modified code and Check example File to see what might be the problem in your sheet.

Exampe file:-

https://app.box.com/s/mhhly5l1rkgydx6jywum5v0d2hnx6655

Code: 
Private [COLOR="Navy"]Sub[/COLOR] Worksheet_Change(ByVal Target [COLOR="Navy"]As[/COLOR] Range)
[COLOR="Navy"]Dim[/COLOR] Rng [COLOR="Navy"]As[/COLOR] Range, Dn [COLOR="Navy"]As[/COLOR] Range, n [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long,[/COLOR] Q [COLOR="Navy"]As[/COLOR] Variant, nRng [COLOR="Navy"]As[/COLOR] Range, Rw [COLOR="Navy"]As[/COLOR] [COLOR="Navy"]Long[/COLOR]
Set Rng = Range("V2", Range("V" & Rows.Count).End(xlUp)) '[COLOR="Green"][B] "STOCK"[/B][/COLOR]
[COLOR="Navy"]With[/COLOR] CreateObject("scripting.dictionary")
.CompareMode = vbTextCompare
Rw = ActiveSheet.UsedRange.Rows.Count
[COLOR="Navy"]Set[/COLOR] nRng = Range("L2").Resize(Rw, 10)
  
  nRng.Interior.ColorIndex = xlNone
    [COLOR="Navy"]If[/COLOR] Not Intersect(Target, nRng) [COLOR="Navy"]Is[/COLOR] Nothing [COLOR="Navy"]Then[/COLOR]
        [COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] Rng
            .Item(CStr(Dn.Value)) = Array(Dn.Offset(, 8).Value, 0) '[COLOR="Green"][B](Dn.offset(,8)= Column "AD" = "Amount in Stock"[/B][/COLOR]
        [COLOR="Navy"]Next[/COLOR]
[COLOR="Navy"]For[/COLOR] [COLOR="Navy"]Each[/COLOR] Dn [COLOR="Navy"]In[/COLOR] nRng
    [COLOR="Navy"]If[/COLOR] .exists(CStr(Dn.Value)) [COLOR="Navy"]Then[/COLOR]
        Q = .Item(CStr(Dn.Value))
            Q(1) = Q(1) + 1
        .Item(CStr(Dn.Value)) = Q
        [COLOR="Navy"]If[/COLOR] .Item(CStr(Dn.Value))(1) > .Item(CStr(Dn.Value))(0) [COLOR="Navy"]Then[/COLOR]
            Dn.Interior.Color = vbYellow
        [COLOR="Navy"]End[/COLOR] If
    [COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]Next[/COLOR] Dn
[COLOR="Navy"]End[/COLOR] If
[COLOR="Navy"]End[/COLOR] With
[COLOR="Navy"]End[/COLOR] [COLOR="Navy"]Sub[/COLOR]
Regards Mick
 
Upvote 0
Hi Mick,

Please forgive my ignorance but it still does not seem to be working.

I can't see anywhere to attach my sheet to give you a better view of what i am doing. But I changed my columns to the same as on your example and it is highlighting everything except for certain cells which seem to be both out of stock and in stock. I am obviously doing something wrong but i can not figure anything out. Please see as close to an example of my actual sheet as i can get. Using this table for example with the last code all the cells are highlighted yellow (including the blanks) except for 10STD0011 which is not, but has a negative stock number? In my actual sheet this has happened with several number that have no stock.

[TABLE="class: grid, width: 500, align: center"]
<tbody>[TR]
[TD]A[/TD]
[TD]L[/TD]
[TD]M[/TD]
[TD]N[/TD]
[TD]O[/TD]
[TD]P[/TD]
[TD]Q[/TD]
[TD]R[/TD]
[TD]S[/TD]
[TD]T[/TD]
[TD]U[/TD]
[TD]V[/TD]
[TD]W[/TD]
[TD]AA[/TD]
[TD]AB[/TD]
[TD]AC[/TD]
[TD]AD[/TD]
[/TR]
[TR]
[TD]Date[/TD]
[TD]Swatch 1[/TD]
[TD]Swatch 2[/TD]
[TD]Swatch 3[/TD]
[TD]Swatch 4[/TD]
[TD]Swatch 5[/TD]
[TD]Swatch 6[/TD]
[TD]Swatch 7[/TD]
[TD]Swatch 8[/TD]
[TD]Swatch 9[/TD]
[TD]Swatch 10[/TD]
[TD]Status[/TD]
[TD][/TD]
[TD]Code[/TD]
[TD]Current Stock Total[/TD]
[TD]Total Dispatched[/TD]
[TD]Stock[/TD]
[/TR]
[TR]
[TD][TABLE="width: 61"]
<tbody>[TR="class: grid"]
[TD="width: 61"]21/06/18[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]10STD0001[/TD]
[TD][TABLE="width: 84"]
<tbody>[TR="class: grid"]
[TD="width: 84"]10STD0002[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]10STD0003[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]21/06/2018[/TD]
[TD][/TD]
[TD]10STD0001[/TD]
[TD]660[/TD]
[TD]224[/TD]
[TD]436[/TD]
[/TR]
[TR]
[TD][TABLE="width: 61"]
<tbody>[TR="class: grid"]
[TD="width: 61"]21/06/18[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]10STD0002[/TD]
[TD]10STD0003[/TD]
[TD]10STD0011[/TD]
[TD]10STD0020[/TD]
[TD]10STD0023[/TD]
[TD]10STD0037[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]21/06/2018[/TD]
[TD][/TD]
[TD]10STD0002[/TD]
[TD]144[/TD]
[TD]204[/TD]
[TD]-60[/TD]
[/TR]
[TR]
[TD][TABLE="width: 61"]
<tbody>[TR="class: grid"]
[TD="width: 61"]21/06/18[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]10STD0001[/TD]
[TD]10STD0003[/TD]
[TD]10STD0020[/TD]
[TD]10STD0023[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]21/06/2018[/TD]
[TD][/TD]
[TD]10STD0003[/TD]
[TD]683[/TD]
[TD]298[/TD]
[TD]385[/TD]
[/TR]
[TR]
[TD][TABLE="width: 61"]
<tbody>[TR="class: grid"]
[TD="width: 61"]21/06/18[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]10STD0056[/TD]
[TD]10STD0057[/TD]
[TD]10STD0058[/TD]
[TD]10STD0061[/TD]
[TD]10STD0068[/TD]
[TD]10STD0069[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]21/06/2018[/TD]
[TD][/TD]
[TD]10STD0011[/TD]
[TD]50[/TD]
[TD]155[/TD]
[TD]-105[/TD]
[/TR]
[TR]
[TD][TABLE="width: 61"]
<tbody>[TR="class: grid"]
[TD="width: 61"]21/06/18[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]10STD0002[/TD]
[TD]10STD0003[/TD]
[TD]10STD0011[/TD]
[TD]10STD0020[/TD]
[TD]10STD0023[/TD]
[TD]10STD0030[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]21/06/2018[/TD]
[TD][/TD]
[TD]10STD0015[/TD]
[TD]568[/TD]
[TD]123[/TD]
[TD]445[/TD]
[/TR]
[TR]
[TD][TABLE="width: 61"]
<tbody>[TR="class: grid"]
[TD="width: 61"]21/06/18[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]10STD0065[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]21/06/2018[/TD]
[TD][/TD]
[TD]10STD0017[/TD]
[TD]320[/TD]
[TD]36[/TD]
[TD]284[/TD]
[/TR]
[TR]
[TD][TABLE="width: 61"]
<tbody>[TR="class: grid"]
[TD="width: 61"]21/06/18[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]10STD0002[/TD]
[TD]10STD0011[/TD]
[TD]10STD0020[/TD]
[TD][/TD]
[TD]10STD0023[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]21/06/2018[/TD]
[TD][/TD]
[TD]10STD0020[/TD]
[TD]168[/TD]
[TD]240[/TD]
[TD]-72[/TD]
[/TR]
[TR]
[TD][TABLE="width: 61"]
<tbody>[TR="class: grid"]
[TD="width: 61"]21/06/18[/TD]
[/TR]
</tbody>[/TABLE]
[/TD]
[TD]10STD0011[/TD]
[TD]10STD0028[/TD]
[TD]10STD0037[/TD]
[TD]10STD0056[/TD]
[TD]10STD0059[/TD]
[TD]10STD0067[/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD][/TD]
[TD]21/06/2018[/TD]
[TD][/TD]
[TD]10STD0023[/TD]
[TD]0[/TD]
[TD]205[/TD]
[TD]-205[/TD]
[/TR]
</tbody>[/TABLE]


Again i am sorry for being dense but this is outside of my excel skills unfortunately.
 
Upvote 0
No problem !!
See new code below. It now reference column "AA" instead of "V".
See example file "Sheet2"
NB: Negative stock amounts will show Yellow in columns "L to U"
https://app.box.com/s/x0sg4mr652j0z4yg5qbmc39r36ynegx2

Code: 
Private [COLOR=navy]Sub[/COLOR] Worksheet_Change(ByVal Target [COLOR=navy]As[/COLOR] Range)
[COLOR=navy]Dim[/COLOR] Rng [COLOR=navy]As[/COLOR] Range, Dn [COLOR=navy]As[/COLOR] Range, n [COLOR=navy]As[/COLOR] [COLOR=navy]Long,[/COLOR] Q [COLOR=navy]As[/COLOR] Variant, nRng [COLOR=navy]As[/COLOR] Range, Rw [COLOR=navy]As[/COLOR] [COLOR=navy]Long[/COLOR]
Set Rng = Range("AA2", Range("AA" & Rows.Count).End(xlUp)) 
[COLOR=navy]With[/COLOR] CreateObject("scripting.dictionary")
.CompareMode = vbTextCompare
Rw = ActiveSheet.UsedRange.Rows.Count
[COLOR=navy]Set[/COLOR] nRng = Range("L2").Resize(Rw, 10)
  nRng.Interior.ColorIndex = xlNone
    [COLOR=navy]If[/COLOR] Not Intersect(Target, nRng) [COLOR=navy]Is[/COLOR] Nothing [COLOR=navy]Then[/COLOR]
        [COLOR=navy]For[/COLOR] [COLOR=navy]Each[/COLOR] Dn [COLOR=navy]In[/COLOR] Rng
            [COLOR=navy]If[/COLOR] Dn.Value <> "" [COLOR=navy]Then[/COLOR]
            .Item(CStr(Dn.Value)) = Array(Dn.Offset(, 3).Value, 0) 
            [COLOR=navy]End[/COLOR] If
        [COLOR=navy]Next[/COLOR]
[COLOR=navy]For[/COLOR] [COLOR=navy]Each[/COLOR] Dn [COLOR=navy]In[/COLOR] nRng
    [COLOR=navy]If[/COLOR] .exists(CStr(Dn.Value)) [COLOR=navy]Then[/COLOR]
        Q = .Item(CStr(Dn.Value))
            Q(1) = Q(1) + 1
        .Item(CStr(Dn.Value)) = Q
        [COLOR=navy]If[/COLOR] .Item(CStr(Dn.Value))(1) > .Item(CStr(Dn.Value))(0) [COLOR=navy]Then[/COLOR]
            Dn.Interior.Color = vbYellow
        [COLOR=navy]End[/COLOR] If
    [COLOR=navy]End[/COLOR] If
[COLOR=navy]Next[/COLOR] Dn
[COLOR=navy]End[/COLOR] If
[COLOR=navy]End[/COLOR] With
[COLOR=navy]End[/COLOR] [COLOR=navy]Sub[/COLOR]
Regards Mick
 
Last edited:
Upvote 0
You must log in or register to reply here.

Similar threads

F
  • Question Question
Hi. I am looking for an excel formular to filter the data with columns heading a-g if columns heading dog to house has "new" in the cell.
2
Replies
10
Views
542
Fluff
Fluff
F
  • Question Question
Allocating cost based on balance on PO line
2
Replies
12
Views
619
Tetra201
Tetra201
A
  • Question Question
VBA to Categorise based on columns
Replies
3
Views
160
Peter_SSs
Peter_SSs
T
  • Question Question
cross country meet scoring
Replies
7
Views
951
Joe4
Joe4
C
  • Question Question
Excel Formula to keep records of drawn cards
Replies
3
Views
297
Cquake
C

Forum statistics

Threads
1,224,820
Messages
6,181,154
Members
453,021
Latest member
Justyna P

Share this page

We've detected that you are using an adblocker.

We have a great community of people providing Excel help here, but the hosting costs are enormous. You can help keep this site running by allowing ads on MrExcel.com.
Allow Ads at MrExcel

Which adblocker are you using?

Disable AdBlock

Follow these easy steps to disable AdBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the icon in the browser’s toolbar.
2)Click on the "Pause on this site" option.
Go back

Disable AdBlock Plus

Follow these easy steps to disable AdBlock Plus

1)Click on the icon in the browser’s toolbar.
2)Click on the toggle to disable it for "mrexcel.com".
Go back

Disable uBlock Origin

Follow these easy steps to disable uBlock Origin

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back

Disable uBlock

Follow these easy steps to disable uBlock

1)Click on the icon in the browser’s toolbar.
2)Click on the "Power" button.
3)Click on the "Refresh" button.
Go back
Back
Top