Creating multiple spreadsheets based on text

charlesdh · #17 04-09-2015, 03:59 PM

There is 1 thing about this code it will over write sheet1. If this is a problem you can use this line of code.

Code:

if Fpass = False And ActiveWorkbook.Sheets("Sheet1").Range("D8").Text = " " Then '' added the "and" statement
                        ActiveWorkbook.Sheets("Sheet1").Range("D8").Value = ws.Cells(Dcell.Row, 1).Text
                        ActiveWorkbook.Sheets("Sheet1").Range("D12").Value = ws.Cells(Dcell.Row, 2).Text
                        Fpass = True
                    End If

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Creating a table that automatically updates based on entries of a heading in the document	cahphoenix	Word	3	10-29-2014 01:11 PM
I need to add multiple values based on multiple criteria in a cell not sure what to do	AUHAMM	Excel	3	10-27-2014 09:11 PM
Need help creating a Word document that is populated based on certain selected values	alidaanish	Word	1	01-10-2014 10:44 PM
Creating Report based on 'Task Summary' and 'Sub Tasks'	alijahed	Project	1	02-01-2013 04:20 AM
Creating formula based on if data is correct in cell	MattMurdock	Excel	1	08-06-2012 03:11 AM