Hi All ,
This below thread has been solved but I had a similar data scenario and replied to that instead of sending a new post. Because it seems solved that's why it didn't get any attention I'm afraid
Could anyone help me on this please??
http://www.vbaexpress.com/forum/showthread.php?t=43013
Cheers
Yeliz
Sub Learning VBA()
Do
Practice Most Useful VBA Examples
Loop Until Become an Expert in VBA
End Sub
[VBA]Sub alex()
Dim cell As Range
Dim lr, lr2 As Long
ActiveWorkbook.Sheets(1).Activate
lr = Range("F" & Rows.Count).End(xlUp).Row
lr2 = Range("G" & Rows.Count).End(xlUp).Row
If lr2 > lr Then
lr = lr2
End If
For Each cell In Range("F1:F" & lr)
If cell.Value = "" And UCase(Right(cell.Offset(0, 1).Text, 4)) = "ROAD" Then
cell.Value = cell.Offset(0, 1).Text
cell.Offset(0, 1).ClearContents
End If
Next cell
End Sub[/VBA]
------------------------------------------------
Happy Coding my friends
Thanks very much for your responseI've run the script but nothing changed. Would you mind to see references G33-37-40-62 (in split) in attachment?
PS: I've changed only Sheet object as Sheets(2) in below code, didn't touch rest of it.
Cheers
Yeliz
Originally Posted by CatDaddy
Sub Learning VBA()
Do
Practice Most Useful VBA Examples
Loop Until Become an Expert in VBA
End Sub
Sorry forgot the attachment in previous reply.
Sub Learning VBA()
Do
Practice Most Useful VBA Examples
Loop Until Become an Expert in VBA
End Sub
hi.
you have trailing spaces in cells. trim function will remove excess spaces from cells.
change
[VBA]
If cell.Value = "" And UCase(Right(cell.Offset(0, 1).Text, 4)) = "ROAD" Then[/VBA]
to
[VBA]
If cell.Value = "" And UCase(Right(Trim(cell.Offset(0, 1).Text), 4)) = "ROAD" Then[/VBA]
PLS DO NOT PM; OPEN A THREAD INSTEAD!!!
1) Posting Code
[CODE]PasteYourCodeHere[/CODE]
(or paste your code, select it, click # button)
2) Uploading File(s)
Go Advanced / Attachments - Manage Attachments / Add Files / Select Files / Select the file(s) (multiple files can be selected while holding Ctrl key) / Upload Files / Done
Replace company specific / sensitive / confidential data. Include so many rows and sheets etc in the uploaded workbook to enable the helpers visualize the data and table structure. Helpers do not need the entire workbook.
3) Testing the Codes
always back up your files before testing the codes.
4) Marking the Thread as Solved
from Thread Tools (on the top right corner, above the first message)
That's brilliant!!
tHANKS VERy much mancubus as always
PS: sorry for the late reply.
Cheers
Yeliz
Sub Learning VBA()
Do
Practice Most Useful VBA Examples
Loop Until Become an Expert in VBA
End Sub
Nice, very useful!
Posting Permissions
Reply With Quote
