Need Very Very Urgent Help for Macro

hansb said:

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.

Click to expand...

hansb said:

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.

Click to expand...

Executive Vishal said:

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

Click to expand...

mikerickson said:

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.

Code:

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

Click to expand...