Dear Sir,
Please tell me the solution for the query given in the attached file.
In it the data is distributed in the different columns. The solution
is manually copy paste the data which is time consuming process.
Please tell me the solution or formula to automate the process. Also
please note
With
Application.ScreenUpdating = False
End Sub
-Original Message-
From: excel-macros@googlegroups.com [mailto:excel-macros@googlegroups.com]
On Behalf Of Mukesh Kumar
Sent: Jan/Tue/2012 01:10
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ Query continuous copy paste
Dear Sir,
Please tell me
Thanks Noorain Ansari Ji for the solution but it works is working with
this sheet only i.e if the column headings are having two same titles.
If I have to transform three or four columns to first three or four
columns then this macro will not work there. Please suggest any
formula or user form
Dear Mukesh,
Can you provide that worksheet, where macro is not running...
Please share workbook with group..
On Tue, Jan 31, 2012 at 7:17 PM, Mukesh Kumar mukeshka...@gmail.com wrote:
Thanks Noorain Ansari Ji for the solution but it works is working with
this sheet only i.e if the column
-
From: Mukesh Kumar
Sent: Tuesday, January 31, 2012 1:40 AM
To: excel-macros@googlegroups.com
Subject: $$Excel-Macros$$ Query continuous copy paste
Dear Sir,
Please tell me the solution for the query given in the attached file.
In it the data is distributed in the different columns. The solution
@ Don Guillett
Dear sir, your macro after running giving wrong results, please check.
@ Noorain Ansari
Sir, macro after running showing error compile error. Sub or function not
defined.
Please note, i am having different workbooks in which some workbooks
contains 2 columns similar, some 3
Subject: Re: $$Excel-Macros$$ Query continuous copy paste
@ Don Guillett
Dear sir, your macro after running giving wrong results, please check.
@ Noorain Ansari
Sir, macro after running showing error compile error. Sub or function not
defined.
Please note, i am having different workbooks
Sub kTest()
Dim x, ka, k(), i As Long, n As Long, c As Long, j As Long, p As Long
With Worksheets(Query)
ka = .Range(a1).CurrentRegion
End With
With CreateObject(scripting.dictionary)
.comparemode = 1
For c = 1 To UBound(ka, 2)
If
Dear Kris,
Following error is coming after macro execution
Run time error '9':
Subscript out of range.
Please correct it.
Regards,
Mukesh kumar
On Tue, Jan 31, 2012 at 10:00 PM, Kris krishnak...@gmail.com wrote:
Sub kTest()
Dim x, ka, k(), i As Long, n As Long, c As Long, j As Long,
Sub Consolidator()
Dim rngSource As Range
Dim lngCols As Long, lngRows As Long
Set rngSource = Range(A1).CurrentRegion
lngRows = rngSource.CurrentRegion.Rows.Count - 1
For lngCols = 3 To rngSource.Columns.Count - 1 Step 2
rngSource.Cells(2, lngCols).Resize(lngRows,
Here's the working model. Have given a button for ease.
Sam Mathai Chacko
On Tue, Jan 31, 2012 at 10:21 PM, Sam Mathai Chacko samde...@gmail.comwrote:
Sub Consolidator()
Dim rngSource As Range
Dim lngCols As Long, lngRows As Long
Set rngSource = Range(A1).CurrentRegion
One of the header is 'No' instead of 'No.'
Correct the headers, it should work
Kris
--
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
Thanks a lot for solving my queries Ansari ji. But still one problem
knocking my mind that these macroes are suitable for respective problems i
have given i.e for two similar headers separate code for three similar
headers another coding is required so on.
Can u give common macro irrespective
Thanks very very much Sam Mathai Chacko sir. This was the resultant code i
was looking for. You are marvellous in excel sir.
Thanks again.
Regards,
Mukesh Kumar
On Wed, Feb 1, 2012 at 12:01 AM, Sam Mathai Chacko samde...@gmail.comwrote:
The code I gave was exactly for assigning any number of
14 matches
Mail list logo
