Path not found, but the folders do exist
[code] Sub toPDF() ' This will copy a specified range('s) from ws1 & ws2 to ws3. ' Now you can...
I believe the problem is that you are not getting the sFileName from the original workbook. So I have added ActiveWorkbook.Save...
Hello Ready2go This may only answer some of your question. The macro below will create a PDF file of Sheet2....
Dear Hyside2, I really appreciate your cooperation and helpful answer. Thanks so much.
Try this instead =IFERROR(LEFT(B1,FIND(" ",B1)-1),B1) [img alt_text='' description='']http://vbaf1.com/q/wp-content/uploads/2018/08/givenname.png[/img]
I am not sure if this is what you are looking for but test it out anyway. [img alt_text='' description='']http://vbaf1.com/q/wp-content/uploads/2018/08/1-2.png[/img]...
Oh! Please try this. You will need to change "Book1" on the line that reads (oFilename="Book1") to the name of...
This is the actual requirement
I tried this code but it is not working..please help me
Hi, You are not looping through each row in the data sheet (=x, you have not defined what is x in your code).
I am not quite understand your data in the data sheet, I have written the below code by assuming your data, hope this works:
Private Sub CommandButton1_Click()
lastrow = Sheets("Config_InputAllocation_Weekly").Cells(Rows.Count, 1).End(xlUp).Row
iCntr = 1
For x = 1 To lastrow
If Sheets("Config_InputAllocation_Weekly").Cells(x, 3) = Sheet1.Range("B2") Then
Sheet1.Range("A" & iCntr + 5) = Sheets("Config_InputAllocation_Weekly").Cells(x, 3)
Sheet1.Range("B" & iCntr + 5) = Sheets("Config_InputAllocation_Weekly").Cells(x, 7)
Sheet1.Range("C" & iCntr + 5) = Sheets("Config_InputAllocation_Weekly").Cells(x, 8)
iCntr = iCntr + 1
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).