Solved

Changing working code for excel vba

Posted on 2016-09-27
15
23 Views
Last Modified: 2016-10-03
Hello guys, i have tried fixing it my self with no luck, i would really appreciate if someone may help me fix this. Again thanks for your time and help.

Priority.png
Present code
Sub RectangleBeveled6_Click()
Select Case UCase(Cells(ActiveCell.Row, "H"))
    Case ""
        Cells(ActiveCell.Row, "H") = "1"
    Case "1"
        Cells(ActiveCell.Row, "H") = "2"
    Case "2"
        Cells(ActiveCell.Row, "H") = "L"
    Case "L"
        Cells(ActiveCell.Row, "H") = "Z"
    Case "Z"
        Cells(ActiveCell.Row, "H") = ""
End Select

End Sub


****Description. *****
On column "H" there is four option that will be shown here. if i click on the small button on the file.

I would like to replace these option as follow.

1 with First P
2 with Second P
3 with Last P
Z with Z Done
0
Comment
Question by:Omar Hernandez
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 7
  • 7
15 Comments
 
LVL 18

Expert Comment

by:xtermie
ID: 41819323
Sub RectangleBeveled6_Click()
 Select Case UCase(Cells(ActiveCell.Row, "H"))
     Case ""
         Cells(ActiveCell.Row, "H") = "First P"
     Case "1"
         Cells(ActiveCell.Row, "H") = "Second P"
     Case "2"
         Cells(ActiveCell.Row, "H") = "Last P"
     Case "L"
         Cells(ActiveCell.Row, "H") = "Z Done"
     Case "Z"
         Cells(ActiveCell.Row, "H") = ""
 End Select

 End Sub
0
 

Author Comment

by:Omar Hernandez
ID: 41820979
Hello there Xtermie,thanks for your response. I have tried this, with no luck...
0
 
LVL 31

Expert Comment

by:Subodh Tiwari (Neeraj)
ID: 41821084
In the code offered by xtermie, Tty to replace the following line...
Select Case UCase(Cells(ActiveCell.Row, "H"))

WITH THIS to see if that works as I guess there might be some spaces in the end.
Select Case UCase(LEFT(Cells(ActiveCell.Row, "H"),1))
0
PeopleSoft Has Never Been Easier

PeopleSoft Adoption Made Smooth & Simple!

On-The-Job Training Is made Intuitive & Easy With WalkMe's On-Screen Guidance Tool.  Claim Your Free WalkMe Account Now

 

Author Comment

by:Omar Hernandez
ID: 41821102
Thanks for your response Neeraj, i have tried your suggestion, no luck yet friend.
0
 
LVL 31

Expert Comment

by:Subodh Tiwari (Neeraj)
ID: 41821105
Omar!
As per the code, the code will only work for the Active Cell's Row and it will replace the content of column H in that particular row only.
Try selecting any cell on Row32 and see if J32 gets changed as per the code.
0
 

Author Comment

by:Omar Hernandez
ID: 41821114
Hey Neeraj i have tried to change even the row that is on the 32 number, no luck
0
 
LVL 31

Expert Comment

by:Subodh Tiwari (Neeraj)
ID: 41821116
Then why not upload a sample workbook to see why the code doesn't work for you?
0
 

Author Comment

by:Omar Hernandez
ID: 41821117
Forgot about that part :/ , Here you go Neeraj
BK-TO-DO-LIST.xlsm
0
 
LVL 31

Expert Comment

by:Subodh Tiwari (Neeraj)
ID: 41821125
I misread the code.
The code works on column H not on column J.
If you select a cell in Row86 and while H86 is 1, the code will change it's content to "Second P" as per the code.
Isn't it what you trying to achieve?
BK-TO-DO-LIST.xlsm
0
 

Author Comment

by:Omar Hernandez
ID: 41821138
Hey there Neeraj, no luck. If you click on the button shown on the pic on top, it works with no prob, but when it has to do with changing the one letter or number to a whole word it gives me an inconvenience. ***The actual code works with any row
0
 
LVL 31

Expert Comment

by:Subodh Tiwari (Neeraj)
ID: 41821145
Sorry not getting you here.
Won't it be better if you list your steps when the code doesn't work for you?
0
 

Accepted Solution

by:
Omar Hernandez earned 0 total points
ID: 41821164
Hello there Neeraj, thanks again for your help, on my way creating a video i tried to add an additional letter to the code it worked, then i tried to keep all of them with ether one style capital letter or small letter and it worked. The code that was this.

Sub RectangleBeveled6_Click()
 Select Case UCase(Cells(ActiveCell.Row, "H"))
     Case ""
         Cells(ActiveCell.Row, "H") = "FIRST P"
     Case "FIRST P"
         Cells(ActiveCell.Row, "H") = "SECOND P"
     Case "SECOND P"
         Cells(ActiveCell.Row, "H") = "LAST P"
     Case "LAST P"
         Cells(ActiveCell.Row, "H") = "ZDONE"
     Case "ZDONE"
         Cells(ActiveCell.Row, "H") = ""
 End Select

 End Sub
0
 
LVL 31

Expert Comment

by:Subodh Tiwari (Neeraj)
ID: 41821165
So all resolved?
0
 
LVL 31

Expert Comment

by:Subodh Tiwari (Neeraj)
ID: 41821168
Omar!
I must say that you poorly described your requirement but anyways glad your issue has been resolved.
0
 

Author Closing Comment

by:Omar Hernandez
ID: 41826031
I tried a different approach.
0

Featured Post

Free Tool: Path Explorer

An intuitive utility to help find the CSS path to UI elements on a webpage. These paths are used frequently in a variety of front-end development and QA automation tasks.

One of a set of tools we're offering as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article descibes how to create a connection between Excel and SAP and how to move data from Excel to SAP or the other way around.
Access developers frequently have requirements to interact with Excel (import from or output to) in their applications.  You might be able to accomplish this with the TransferSpreadsheet and OutputTo methods, but in this series of articles I will di…
This Micro Tutorial demonstrate the bugs in Microsoft Excel for Mac with Pivot Charts.
Although Jacob Bernoulli (1654-1705) has been credited as the creator of "Binomial Distribution Table", Gottfried Leibniz (1646-1716) did his dissertation on the subject in 1666; Leibniz you may recall is the co-inventor of "Calculus" and beat Isaac…

734 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question