Completed

Microsoft Excel - Visual Basic Code help

I have a MS Excel workbook that I use on a daily basis. (screen grab attached).

I have a job number in column A that automatically sorts A-Z each time I create a new entry.

This is achieved using some advice I found on the internet....

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next

If Not Intersect(Target, Range("A2:A200")) Is Nothing Then

Range("A1").Sort Key1:=Range("A200"), _

Order1:=xlAscending, Header:=xlYes, _

OrderCustom:=1, MatchCase:=False, _

Orientation:=xlTopToBottom

End If

End Sub

What I would like to do is add some more conditions to this.

In column L I have a "completed" value - I type YES once the job is completed and conditional formatting turns it green

In column O I have an "archive" value - I Type YES once I am done with the job.

I would like the sheet to automatically sort my data by...

Column A A-Z with where there is no values in L & O

then,

Any rows with values in L

then, any rows with values in O

If you can please paste the code in to your proposal. First response with code that works I'll award & pay

Skills: Excel, Microsoft, Visual Basic, Visual Basic for Apps

See more: vba excel 2016, vba excel tutorial, vba excel functions, useful vba codes for excel, excel vba programming pdf, vba excel download, vba excel pdf, vba excel examples, excel visual basic routine, visual basic code extract excel data, visual basic code mysql, excel visual basic bid price, stock plots visual basic code, excel visual basic function howto, convertir excel visual basic, management conferencing system visual basic code, web data extraction visual basic code excel, visual basic code update excel shared workbook, code import excel visual basic 2008, microsoft excel visual basic reference install

About the Employer:
( 21 reviews ) Newcomb, Australia

Project ID: #17892981

Awarded to:

ilkecokay

Sort key1:=col1, order1:=xlAscending, DataOption1:=xlSortNormal, _ key2:=col2, order2:=xlAscending, DataOption2:=xlSortNormal, _ key3:=col3, order3:=xlAscending, DataOption3:=xlSortNormal, _ do More

$10 AUD in 10 days
(8 Reviews)
3.8

13 freelancers are bidding on average $35 for this job

AlexandrUKR

i can send you first version for your test within 1 day, please clarify possible next steps .

$50 AUD in 1 day
(19 Reviews)
5.1
dataexplorer

"Hello, I am happy to inform you that I have read your project description and understood all of your required requirement. I'd like to help you with confidence and satisfying results. I have professional working h More

$50 AUD in 3 days
(9 Reviews)
2.9
rIbrarahmed

hi, I am very good in Excel vba, macro, chart etc. if you want to see my excel skills i can share with you some of my work on excel. I feel fit myself for this project. please contact with me. Thanks.

$15 AUD in 10 days
(6 Reviews)
2.7
egafiori

we hope it will be helpful... :) Instruction: YES In capital letters Private Sub Worksheet_Change(ByVal Target As Range) For I = 1 To Range("L" & [login to view URL]).End(xlUp).Row If Cells(I, "L") = "YES" Then More

$10 AUD in 0 days
(3 Reviews)
1.6
juancol1990

I AM SPECIALIST IN EXCEL, IT WOULD BE A PLEASURE TO HELP YOU. FROM WHAT I SEE, IN THE PROPOSAL IT IS A SIMPLE CORRECTION IN THE CODE. I LIKE YOU WITH COLLABORATION. I HAVE IT READY IN THREE TO FOUR HOURS.

$15 AUD in 10 days
(0 Reviews)
0.0
Diyanm

this is my full price

$222 AUD in 5 days
(0 Reviews)
0.0
$10 AUD in 10 days
(0 Reviews)
0.0
idealinnovation

Hi, It is a simple work. As it is possible for me to check whether the solution is working or not I expect you to award the project first, I will be able to give you solution exactly what you are expecting.

$25 AUD in 3 days
(0 Reviews)
0.0
$15 AUD in 10 days
(0 Reviews)
0.0
gsfurtado

Took more time than than I expected... feel free to pay a little extra. Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next If Not Intersect(Target, Range("A2:A200")) Is Nothing Then More

$10 AUD in 1 day
(0 Reviews)
0.0
ectyson

Dear Sir/Madam, You asked for solutions in the proposal. This can be done by adding another column with the formula: =IF(O2="Yes",2,IF(L2="Yes",1,0)) You can then use the filter keys to sort column A by A-Z then More

$10 AUD in 0 days
(0 Reviews)
0.0
schandraindya

Hello, Kindly provide me your email id and I will provide you with the code which not only will sort the data as per your requirements, but also will automatically put borders to all the data. The code is not fittin More

$10 AUD in 1 day
(2 Reviews)
0.0