Hello.
In Excel 2016 I have a Sheet with a range of cells with data and others cells with no data.
I have a code which works well in a cell with data.
However, I need to write the code into a loop to apply the code in all cells with data.
I've searched the web trying to find help on how to complete my script, but I just can't seem to get how to do it.
Any help is welcome
Please Login or Register to view this content.
Last edited by Leith Ross; 08-01-2018 at 04:33 PM. Reason: Added Code Tags
Hello gipsyfkls14,
Does your data start in cell "A11" and continue down column "A" ?
Sincerely,
Leith Ross
Remember To Do the Following....
1. Use code tags. Place [CODE] before the first line of code and [/CODE] after the last line of code.2. Thank those who have helped you by clicking the Starbelow the post.
3. Please mark your post [SOLVED] if it has been answered satisfactorily.
Old Scottish Proverb...
Luathaid gu deanamh maille! (Rushing causes delays!)
I really appreciate your reply.
I apologyze.
My data starts at G2 and continue down and right in a range until the last cell with data.
Hello gipsyfkls14,
One more thing, what do you consider to be an empty cell? I know sometimes people consider a zero value as empty.
I consider an empty cell with no data at all.
Many thanks
Hello gipsyfkls14,
This should work for you ...
Note: You may need to change the worksheet name from "Sheet1" to whichever sheet the data is on.
Please Login or Register to view this content.
Leith Ross.
I think I did not explain myself correctly. I apologize.
If I run my code in Cells(2, 9) returns all character left to the period (,)
Note.
See last cells with data to the right
I enclose a workbook where Sheet1 has the original data and Sheet2 the data I am looking for.
Thanks againg
Hello Hello gipsyfkls14,
The attached workbook has the macro below added to it.
Please Login or Register to view this content.
Leith Ross.
Your code works as I expected.
Thank you very much indeed.
Hello gipsyfkls14,
De nada.
Hi ! Another way …
As a beginner starter :
PHP Code:Sub Demo1()
Dim Rg As Range
Application.ScreenUpdating = False
With Sheet1.Range("G2:DK" & Sheet1.UsedRange.Rows.Count)
Set Rg = .Find("_", , xlValues, xlPart)
Do Until Rg Is Nothing
Rg.Value2 = Val(Rg.Value2)
Set Rg = .FindNext(Rg)
Loop
End With
Application.ScreenUpdating = True
End Sub
Do you like it ? So thanks to click on bottom left star icon « ★ Add Reputation » !
Baby level for the data uploaded.
Please Login or Register to view this content.
gipsyfkls14
Thanks for the rep and glad you like it.
gipsy, thanks for the rep' !
But jindon's way is the best one as following the main first rule : Think Excel Before VBA ! …
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks