HI ShantanuBendre, Here is the solution for your query. [code] Sub sbCompareData_MultipleRows() 'Variable Declaration Dim iLstRow As Integer, iCnt As...
Hi valli, Thanks for your answer. Here the answer you provided is for consolidating the data. But what I am...
HI AbdulRahman, Here is the link to consolidate data from multiple worksheets into a single sheet by row using VBA....
HI Jesus, Can you please provide more details. You can share screen shot of excel input and text output. So...
HI Shantanubendre, Here is the solution as per my understand. The below code will check in all three columns in...
Hi, Here is the Macro to copy the Data from NR Risks Sheet to Risk Sheet. This will check...
Hi Please see screen shot attached. If the score in column L on NR Worksheet is 15 and above I...
Hello, Could please upload the screen shot of the sample data, also please let us know the unique identification column...
Hi, I am using this code to export each line item as a separate file, however I want the column headers to be constant, unable to do it, for instance I would like each file to have the column names but contain only the specific assignee information
Dim i As Long
Dim LastDataRow As Long
Dim MyFile As String
LastDataRow = .Range(“A” & Rows.Count).End(xlUp).Row
lastColumn = .Cells(1, .Columns.Count).End(xlToLeft).Column
For i = 2 To LastDataRow
'The next line uses the contents of column B on the same row to name it
MyFile = "C:\Users\pkc504787\Desktop\Client Work\Trifecta\test\" & ActiveSheet.Range("A" & i).Value & ".pdf"
' fnum = FreeFile()
Open MyFile For Output As fnum
'It reads all values from respective row
For iCntr = 1 To lastColumn
Print #1, Cells(i, iCntr)
Please share using the share button above.
If you found the answer is best answer for your question, Please mark as 'best answer' by clicking on the right tick mark icon at the left side of the answer.
Found the answer useful and wants to credit the user, then vote the answer (vote up).