Search results

Thanks Sir for the formulae, will study them. Brilliant Formulae, I could even expand to contain more data and get the desired output. Thanks for your time and effort. Regards!

Thanks Hui, Will try out ! Thanks for pointing in the right direction. Regards!

Dear Ninjas ! I have a sheet with raw data ! I am trying to consolidate and get only unique entries. I have uploaded the sample file here - 48KB http://www.2shared.com/file/5E-46vnE/summary-sheet.html which also contains the desired output. Please help me with a code to achieve this. Thanks.

Thanks for the reply SirJB ! Will study the code of yours and practice. Regards!

Hi Ninjas ! I am trying to modify VBA given at http://chandoo.org/wp/2012/04/09/consolidate-data-from-different-excel-files-vba/ so as to include the sheet from which to copy. I have added an extra column at H in "Sheet:List" to include the Sheet Name lines marked '-------------- thus were...

Thanks from me too, dear Narayan. God Bless...

Thank You SirJB, The error Msg string was of real help. Regards,

Hi SirJB, Here is the link to the files on SkyDrive http://sdrv.ms/LXFzA9 http://sdrv.ms/OazXyH There are 2 files named asc and ado Regards,

Hi SirJB, With that - I am getting an error "Type declaration character does not match declared data type. Regards.

Hi SirJB, I tried that .. szSQL = "SELECT * FROM [" & "! & SourceRange$ & ];" and it adds ! to the named range viz., "!stock_out_data" and could not get the reference. Hence, I changed it to $ Regards,

Thanks SirJB ! I replaced the MsgBox, and I could read the error and amended the following line szSQL = "SELECT * FROM [" & SourceSheet$ & "$ & SourceRange$ & ];" to szSQL = "SELECT * FROM [" & "$ & SourceRange$ & ];" It is working fine now. Thanks for your quick reply and help !

Hi SirJB Thanks ! This portion pops up : "MsgBox "The file name, Sheet name or Range is invalid of : " & SourceFile, _ vbExclamation, "Error" when the sub reads as follows : Sub GetData_Example1() GetData ThisWorkbook.Path & "asc.xlsm", "stock-out", _ "stock_out_data"...

Hi Ninjas ! I am trying to pass a named range to the below code, but it pops an error. I would like to replace "A1:P79" with a named range. GetData ThisWorkbook.Path & "asc.xlsm", "stock-out", _ "A1:P79", Sheets("Sheet2").Range("A1"), True, True ---------------------- Public Sub...

Congrats Naryan, Thanks for all the help ! God Bless !!

Hi ! Got this code from somewhere else, but not performing as intended, but very close. Sub insert_rows_equal_to_lineitems() ' This loop repeats a fixed number of times getting its reference from elsewhere Dim i As Integer Dim intRowCount As Integer intRowCount =...

yes Faseeh ! vba code. Thanks.

please help with this loop ! Cell B2=23 copy range B6:U6 insert indirect(B2) rows starting at row 7 paste copied range (B6:U6) to all indirect(B2) rows Thanks.

Thanks very much Luke, it is working perfect now.

Hello Members ! Please help. In the above code, if the "vprintcounter" is 4, the file name would be abcd-4. I would like to have zero padding preceding 4, like abcd-00004.

Thanks Dan for the reply and for your humbleness ! It is working now with a few changes.

Help ! Also, the file name should increment by 1 every time when we run this code. Thanks.

Hello Dan ! This is brilliant. Could you please let me know - if I would like to print only a range in an active sheet. Thanks.

Thanks Prasad, It is working now. The alert comes on.

very good and useful. Thanks,

SirJB7 I have added this code in a module under the active worksheet. But I get no message box when I enter values in A3 greater than 100. please help. Thanks.