paste this code in vba module 

Sub Extracterdata()

Dim lr As Long

lr = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To lr
d = Replace(Cells(i, 1).Value, "Campaign_P_", "")
d = Replace(d, "Campaign_S_", "")
v = Split(d, "_")
lr = Range("B65536").End(xlUp).Offset(1, 0).Row
Range("B" & lr).Resize(rowsize:=UBound(v) + 1) = Application.Transpose(v)
Next

End Sub














On Friday, July 17, 2015 at 4:35:52 PM UTC+5:30, Mahendra Verma wrote:
>
> Hi Sir,
>
> Getting same error.
>
> May you please share coding and process that would be helpful for us.
>
>
>
> On Friday, July 17, 2015 at 4:26:26 PM UTC+5:30, Mandeep Baluja wrote:
>>
>> Try to download this file 
>>
>> On Friday, July 17, 2015 at 4:23:43 PM UTC+5:30, Mahendra Verma wrote:
>>>
>>> Please find below error  getting while running:
>>>
>>> 'C:\Users\Mandeep.baluja\Downloads\Daily Shipping 16th July 2015.xlsb' 
>>> could not be found. Check the spelling of the name, and verify that the 
>>> file location is correct.
>>>
>>> If you are trying to open the  list of most recently used files, make 
>>> sure that the file has not been renamed, moved, or deleted.
>>>
>>>
>>>
>>>
>>> On Friday, July 17, 2015 at 3:13:44 PM UTC+5:30, Mandeep Baluja wrote:
>>>>
>>>> Where is the snapshot ????? what error you're are getting have you 
>>>> enabled the macro while opening ??
>>>>
>>>> On Friday, July 17, 2015 at 2:58:22 PM UTC+5:30, Mahendra Verma wrote:
>>>>>
>>>>> Hi sir Please find below snapshot:
>>>>>
>>>>>
>>>>> <https://lh3.googleusercontent.com/-XyoD6rOyWXw/VajKoIR3XII/AAAAAAAABME/5XDi25OyLa0/s1600/error.png>
>>>>>
>>>>>
>>>>> On Friday, July 17, 2015 at 2:15:40 PM UTC+5:30, Mandeep Baluja wrote:
>>>>>>
>>>>>> Where is the error I am not getting the same in this sheet !!, Kindly 
>>>>>> provide the snapshot.
>>>>>>
>>>>>> On Friday, July 17, 2015 at 1:40:30 PM UTC+5:30, Mahendra Verma wrote:
>>>>>>>
>>>>>>> Getting below error:
>>>>>>>
>>>>>>>
>>>>>>> <https://lh3.googleusercontent.com/-r3AoHmozD_E/Vai4XHaYtyI/AAAAAAAABL0/j7e-jKtapc4/s1600/error.png>
>>>>>>>
>>>>>>>

-- 
Are you =EXP(E:RT) or =NOT(EXP(E:RT)) in Excel? And do you wanna be? It’s 
=TIME(2,DO:IT,N:OW) ! Join official Facebook page of this forum @ 
https://www.facebook.com/discussexcel

FORUM RULES

1) Use concise, accurate thread titles. Poor thread titles, like Please Help, 
Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will not get 
quick attention or may not be answered.
2) Don't post a question in the thread of another member.
3) Don't post questions regarding breaking or bypassing any security measure.
4) Acknowledge the responses you receive, good or bad.
5) Jobs posting is not allowed.
6) Sharing copyrighted material and their links is not allowed.

NOTE  : Don't ever post confidential data in a workbook. Forum owners and 
members are not responsible for any loss.
--- 
You received this message because you are subscribed to the Google Groups "MS 
EXCEL AND VBA MACROS" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to excel-macros+unsubscr...@googlegroups.com.
To post to this group, send email to excel-macros@googlegroups.com.
Visit this group at http://groups.google.com/group/excel-macros.
For more options, visit https://groups.google.com/d/optout.

Reply via email to