try this
On Fri, Aug 5, 2011 at 1:02 PM, Shiek Peer Mohd wrote:
> Hi Noorain,
>
> Can u please provide Formula for macro to consolidate multiple columns in to
> one cell as per the attached file.
>
> Regards
>
> Shiek
>
> On Thu, Aug 4, 2011 at 11:52 PM, NOORAIN ANSARI
> wrote:
>>
>> Dear Rag
Try this
Sub ConcateAll()
Dim Resultcell As Range
Dim rng As Range
Dim cell As Range
Dim resultString As String
Set rng = Application.InputBox("Please select A Range For Input ", , , ,
, , , 8)
Set Resultcell = Application.InputBox("Please select A Range For Out ",
Hi Noorain,
Can u please provide Formula for macro to consolidate multiple columns in to
one cell as per the attached file.
Regards
Shiek
On Thu, Aug 4, 2011 at 11:52 PM, NOORAIN ANSARI wrote:
> Dear Raghavendra,
>
> Please use below code and see attached sheet...
>
>
> Sub consolidate
Hi Noorain Ansari,
Ohh...sorry... I got...
Regards,
raghavendra
On Aug 4, 11:40 pm, Raghavendra wrote:
> Hi Noorain Ansari,
>
> Thanks for your reply
>
> I have one issue in this. If I have more than 1000 line items ( in
> each cell 5 characters)then the given code is not working. Could you
> p
Hi Noorain Ansari,
Thanks for your reply
I have one issue in this. If I have more than 1000 line items ( in
each cell 5 characters)then the given code is not working. Could you
please advise?
Regards,
Raghavendra
On Aug 4, 11:22 pm, NOORAIN ANSARI wrote:
> Dear Raghavendra,
>
> Please use bel
Dear Raghavendra,
Please use below code and see attached sheet...
Sub consolidate()
Dim i, j As Integer
j = Sheet1.Range("B1000").End(xlUp).Row
For i = 2 To j
If i = 2 Then
Sheet1.Range("D4").Value = Sheet1.Range("D4").Value & Sheet1.Range("B" &
i).Value
Else
Sheet1.Range("D4").Value = S
