Need Very Very Urgent Help for Macro

[Executive Vishal]

Hi,

i read your site,

can u pls tell me the solution of this issue.

example is given below:-

Coloum A B C

1 (RAW) 01.04.08 PE, LO, RS FOLLOW UP

2 (RAW) 02.04.08 HR, LR, MEET HIM

3 (RAW) 03.04.08 PE, JH, HR NEXT DAY VIST

4 (RAW) 08.08.08 PH, MN, KL MEET HIM

5 (RAW) 05.08.08 PE, LO, RS NEXT DAY

I NEED CHANGE THIS SHEET IN TO THIS

Coloum A

1 (RAW) 01.04.08, S.: PE, LO, RS, FAP.: FOLLOW UP

2 (RAW) 02.04.08, S.: HR, LR, FAP.: MEET HIM

3 (RAW) 03.04.08, S.: PE, JH, HR, FAP.: NEXT DAY VIST

4 (RAW) 08.08.08, S.: PH, MN, KL, FAP.: MEET HIM

5 (RAW) 05.08.08, S.: PE, LO, RS, FAP.: NEXT DAY

I NEED A MACRO FOR THIS WORK

CAN U PLS TELL ME HOW CAN I DO this

THANKS/REGARDS,


Vishal

 

[hansb]

Maybe you rather want to use a concatination operator in a formula:

=A2&", "&B2&", FAP.: "&C2

Thereafter: copy - paste-special - values

Unless you really want a macro, of course.

 

[Stormseed]

You do not need to create a macro to do this - it is very simple and can be done with a basic formula. Try to incorporate the above formula which Hansb has posted and you would be able to accomplish the answer to your question.

If you are stuck then let us know.

 

[Executive Vishal]

Maybe you rather want to use a concatination operator in a formula:

=A2&", "&B2&", FAP.: "&C2

Thereafter: copy - paste-special - values

Unless you really want a macro, of course.

thanks for replying me, i will send u full details with my question

can u give me your e mail id

or i will try to post picture here

thanks

 

[hansb]

I'm sorry I can't offer to solve problems via e-mail.

But try to say something more about what you are trying to achieve, for example: is this a worksheet you are going to use yourselves or do you prepare something for others to use, how often will the task be performed (once a month or several times daily?), is this the entire problem or is it a subtask within a manual/automated task, what is the approx number of rows in the sheets (few, medium, large as in less than 10000, between 10 and 100000, more than 100000) etc, etc.

 

[Executive Vishal]

I'm sorry I can't offer to solve problems via e-mail.

But try to say something more about what you are trying to achieve, for example: is this a worksheet you are going to use yourselves or do you prepare something for others to use, how often will the task be performed (once a month or several times daily?), is this the entire problem or is it a subtask within a manual/automated task, what is the approx number of rows in the sheets (few, medium, large as in less than 10000, between 10 and 100000, more than 100000) etc, etc.

Thanks bhai,

this is a work report, which i recd. from our agent, this task will be
performed every week, this is not a prob. i want to create macro
or any formula to do work fast or save my time, approx number of
raw around 20 in sheets (medium)

waiting for your reply.

 

[Executive Vishal]

thanks for replying me, i will send u full details with my question

can u give me your e mail id

or i will try to post picture here

thanks

you dont know sir,

how much help u me by telling this formula,

thanks thanks thanks very very much

 

[mikerickson]

I think this will do what you want. It appears that row 2 of your example follows a different rule than the other rows. I ignored that row.

Sub ParseExecutiveVishalData()

With ThisWorkbook.Sheets("Sheet1"): Rem adjust sheet name 

    With .Range("C:C")
        With Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
            .TextToColumns Destination:=.Range("a1"), DataType:=xlDelimited, _
                TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
                Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
                :=Array(Array(1, 9), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1))
            .Offset(0, 1).Value = Evaluate("= ""FAP.: "" & " & .Offset(0, 1).Address(, , , True) _
                  & "& "" "" & " & .Offset(0, 2).Address(, , , True) _
                  & "& "" "" & " & .Offset(0, 3).Address(, , , True) _
                  & "& "" "" & " & .Offset(0, 4).Address(, , , True))
            .Offset(0, 2).Resize(Rows.Count, 20).ClearContents
        End With
    End With
    Range("B:B").Insert
    With Range("A:A")
        With Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
            .TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
                FieldInfo:=Array(Array(0, 1), Array(14, 1))
            With .Offset(0, 1)
                .Value = Evaluate("= ""S.: "" & " & .Address(, , , True))
            End With
        End With
    End With
End With
End Sub

 

[Executive Vishal]

I think this will do what you want. It appears that row 2 of your example follows a different rule than the other rows. I ignored that row.

Sub ParseExecutiveVishalData()

With ThisWorkbook.Sheets("Sheet1"): Rem adjust sheet name 

    With .Range("C:C")
        With Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
            .TextToColumns Destination:=.Range("a1"), DataType:=xlDelimited, _
                TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
                Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
                :=Array(Array(1, 9), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1))
            .Offset(0, 1).Value = Evaluate("= ""FAP.: "" & " & .Offset(0, 1).Address(, , , True) _
                  & "& "" "" & " & .Offset(0, 2).Address(, , , True) _
                  & "& "" "" & " & .Offset(0, 3).Address(, , , True) _
                  & "& "" "" & " & .Offset(0, 4).Address(, , , True))
            .Offset(0, 2).Resize(Rows.Count, 20).ClearContents
        End With
    End With
    Range("B:B").Insert
    With Range("A:A")
        With Range(.Cells(1, 1), .Cells(.Rows.Count, 1).End(xlUp))
            .TextToColumns Destination:=Range("A1"), DataType:=xlFixedWidth, _
                FieldInfo:=Array(Array(0, 1), Array(14, 1))
            With .Offset(0, 1)
                .Value = Evaluate("= ""S.: "" & " & .Address(, , , True))
            End With
        End With
    End With
End With
End Sub

thanks bhai,

its great..................

 

[mikerickson]

Glad to help.