Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 29
  • Last Modified:

Changing working code for excel vba

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
Omar Hernandez
Asked:
Omar Hernandez
  • 7
  • 7
1 Solution
 
xtermieCommented:
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
 
Omar HernandezAuthor Commented:
Hello there Xtermie,thanks for your response. I have tried this, with no luck...
0
 
Subodh Tiwari (Neeraj)Excel & VBA ExpertCommented:
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
Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
Omar HernandezAuthor Commented:
Thanks for your response Neeraj, i have tried your suggestion, no luck yet friend.
0
 
Subodh Tiwari (Neeraj)Excel & VBA ExpertCommented:
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
 
Omar HernandezAuthor Commented:
Hey Neeraj i have tried to change even the row that is on the 32 number, no luck
0
 
Subodh Tiwari (Neeraj)Excel & VBA ExpertCommented:
Then why not upload a sample workbook to see why the code doesn't work for you?
0
 
Omar HernandezAuthor Commented:
Forgot about that part :/ , Here you go Neeraj
BK-TO-DO-LIST.xlsm
0
 
Subodh Tiwari (Neeraj)Excel & VBA ExpertCommented:
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
 
Omar HernandezAuthor Commented:
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
 
Subodh Tiwari (Neeraj)Excel & VBA ExpertCommented:
Sorry not getting you here.
Won't it be better if you list your steps when the code doesn't work for you?
0
 
Omar HernandezAuthor Commented:
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
 
Subodh Tiwari (Neeraj)Excel & VBA ExpertCommented:
So all resolved?
0
 
Subodh Tiwari (Neeraj)Excel & VBA ExpertCommented:
Omar!
I must say that you poorly described your requirement but anyways glad your issue has been resolved.
0
 
Omar HernandezAuthor Commented:
I tried a different approach.
0

Featured Post

Concerto Cloud for Software Providers & ISVs

Can Concerto Cloud Services help you focus on evolving your application offerings, while delivering the best cloud experience to your customers? From DevOps to revenue models and customer support, the answer is yes!

Learn how Concerto can help you.

  • 7
  • 7
Tackle projects and never again get stuck behind a technical roadblock.
Join Now