Sub Consolidator()
Dim rngSource As Range
Dim lngCount As Long
Dim strArray() As String
With Worksheets("Sheet7")
Set rngSource = .Range("A4:C" & .Cells(Rows.Count,
1).End(xlUp)(0).Row)
lngCount = Application.CountA(rngSource.Columns(1).Cells)
ReDim strArray(lngCount, 1)
End With
strArray(0, 0) = "Indus ID"
strArray(0, 1) = "Text"
lngCount = Empty
For Each rngSource In rngSource.Columns(1).Cells
If rngSource.Value <> "" Then
lngCount = lngCount + 1
strArray(lngCount, 0) = rngSource.Value
End If
strArray(lngCount, 1) = strArray(lngCount, 1) & rngSource.Offset(,
1).Value & " " & rngSource.Offset(, 2).Text & ","
Next rngSource
Range("E4").Resize(lngCount + 1, 2).Value = strArray
End Sub
Regards,
Sam Mathai Chacko
On Tue, Jan 31, 2012 at 10:42 PM, Veeru TOC <veerub...@gmail.com> wrote:
>
>
>
>
> Dear All,
>
>
> Can i use pivot table up to data came below
>
> Indus ID Alarm on Site Time IN-1008993 DG on Load 12:16:29 Mains
> Fail 12:14:59 IN-1009598 Mains Fail 19:56:46 19:56:56 Rectifier Fail
> 19:56:46
>
> But i need
>
> Requirement data type:
>
> indus id Text IN-1008993 DG on load 12:16,Mains fail 12:14 IN-1009598
> Mains
> fail 19:56,Rectifier fail 19:56
>
> plz find attachment of file
>
>
> *Thanks&Regards*
>
> * *
>
> * **Veerendra.Vanam*
>
> *TOC TEAM*
> * * *Bhagyanagar Electrical & Contractors**
> ** **H.No-5-9-286/65,Plot No-65
> Rajiv Gandhi Nagar,Near Andhra Jyothi Press,IE-Kukatpally,
> Hyderabad-500072,-Andhra Pradesh
> ** **91-9177-444-840**,*
>
>
> --
> FORUM RULES (986+ members already BANNED for violation)
>
> 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) Cross-promotion of, or links to, forums competitive to this forum in
> signatures are prohibited.
>
> NOTE : Don't ever post personal or confidential data in a workbook. Forum
> owners and members are not responsible for any loss.
>
>
> ------------------------------------------------------------------------------------------------------
> To post to this group, send email to excel-macros@googlegroups.com
>
>
>
> --
>
>
>
>
>
> *Thanks&Regards*
>
> * *
>
> * **Veerendra.Vanam*
>
> *TOC TEAM*
> * * *Bhagyanagar Electrical & Contractors**
> ** **H.No-5-9-286/65,Plot No-65
> Rajiv Gandhi Nagar,Near Andhra Jyothi Press,IE-Kukatpally,
> Hyderabad-500072,-Andhra Pradesh
> ** **91-9177-444-840**,*
>
>
> --
> FORUM RULES (986+ members already BANNED for violation)
>
> 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) Cross-promotion of, or links to, forums competitive to this forum in
> signatures are prohibited.
>
> NOTE : Don't ever post personal or confidential data in a workbook. Forum
> owners and members are not responsible for any loss.
>
>
> ------------------------------------------------------------------------------------------------------
> To post to this group, send email to excel-macros@googlegroups.com
>
--
Sam Mathai Chacko
--
FORUM RULES (986+ members already BANNED for violation)
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) Cross-promotion of, or links to, forums competitive to this forum in
signatures are prohibited.
NOTE : Don't ever post personal or confidential data in a workbook. Forum
owners and members are not responsible for any loss.
------------------------------------------------------------------------------------------------------
To post to this group, send email to excel-macros@googlegroups.com
