Read our blogs, tips and tutorials
Try our exercises or test your skills
Watch our tutorial videos or shorts
Take a self-paced course
Read our recent newsletters
License our courseware
Book expert consultancy
Buy our publications
Get help in using our site
548 attributed reviews in the last 3 years
Refreshingly small course sizes
Outstandingly good courseware
Whizzy online classrooms
Wise Owl trainers only (no freelancers)
Almost no cancellations
We have genuine integrity
We invoice after training
Review 30+ years of Wise Owl
View our top 100 clients
Search our website
We also send out useful tips in a monthly email newsletter ...
Showing blogs 1-11 (out of 11)
Posted by Andy Brown on 07 June 2023
Posted by Andrew Gould on 31 January 2022
Posted by Andy Brown on 02 February 2021
Posted by Andy Brown on 01 February 2021
Posted by Andy Brown on 25 August 2020
Posted by Sam Lowrie on 26 June 2020
Posted by Andy Brown on 13 March 2020
Posted by Andy Brown on 10 January 2020
Posted by Andy Brown on 17 June 2019
Posted by Andrew Gould on 26 November 2015
Posted by Michael Allsop on 01 June 2011
Some other pages relevant to the above blogs include:
From: | zeno |
When: | 15 Mar 17 at 16:36 |
Dear Andrew et al I have been studying and enjoying your amazing videos for quite a while a while. I managed to (1). Create a payment system with vba code with application inputbox (2). I created vba code to review the payment system in (1) to ensure accuracy of date entry.
The first problem I have now is that when I run the review code and if no change was made to the payment entry in (2), the original entry are being changed to either '£0' or 'false' I have been scouting through the internet for solution to no avail. Please what vba code to write so that the original entry is not changed if no change is made at the review code stage?
The second problem I have is with the following code:
ActiveCell.Value = PaymentAddress
Worksheets("PCN Form").Select
For Each Cell In Selection
Do
If ActiveCell = "" Then Exit Do
Cell.Value = UCase(Cell.Value)
On Error GoTo 0
Exit Sub
Loop
Next Cell
Application.DisplayAlerts = True
Application.ScreenUpdating = True
On Error GoTo 0
End Sub
When I place this code at the begining or middle or procedure, it stops after running without completing other procedures. I have therefore being constrained to put this procedure at the end. Otherwise, would prefer to bring it in the middle.
The third problem I have is how to write a vba code to validate a payment_reference to contain alphanumeric and also not more than 10 digits.
Can't thank you enough for your amazing videos. Keep us tuned! Kindest regards Zeno
From: | Andrew G |
When: | 16 Mar 17 at 09:01 |
Hi Zeno,
Thanks for your comments and questions. Your first question is difficult to answer as you haven't shown the code that you've written. I'd suggest using an IF statement to check whether the new value is different to the old value and only write changes to the cell if that is true.
For your second question I have to admit that it's quite difficult to work out what it is you're trying to do! Some of the code you've written, particularly the Do Loop and Exit Sub statements, appear to be unnecessary. If you're simply trying to change the value of a single cell to upper case text then the only line that you need would be something like this:
ActiveCell.Value = UCase(ActiveCell.Value)
For your third question you'll need to know a little about manipulating strings. Fortunately, we have a few videos on this topic. You may find these ones useful:
https://www.wiseowl.co.uk/vba-macros/videos/vba-functions/working-with-strings/
https://www.wiseowl.co.uk/vba-macros/videos/vba-functions/asc-chr-functions/
I hope that helps!
Kingsmoor House
Railway Street
GLOSSOP
SK13 2AA
Landmark Offices
99 Bishopsgate
LONDON
EC2M 3XD
Holiday Inn
25 Aytoun Street
MANCHESTER
M1 3AE
© Wise Owl Business Solutions Ltd 2024. All Rights Reserved.