Copy/populate rows based on variable cell values

[matchooo]

Hi,

I need to populate sheet2 based on values in sheet1. sheet1 A1 represents a starting value. Sheet1 A2 & A3 represent values reflected on sheet2. Sheet1 A5 is the number of rows to be produced on sheet2. Sheet1 A4 determines if the top two rows are produced. All other text on sheet 2 is constant.

Ideally, sheet2 would automatically be saved as "funclocs.txt" on the desktop in text tab delimited format, but this is not necessary if it's difficult to code.

Thanks in advance,
Matt

[tehneXus]

try funclocs.xlsm

[matchooo]

Fantastic! It looks great!

I wasn't clear about the first two rows. If A4 is set to "New", the first two rows on sheet 2 need to be created as they appear in attached workbook. It works just fine for Addl.

[tehneXus]

like this? funclocs.xlsm

[matchooo]

You are a genius! Thank you, sir!

[matchooo]

Sorry, If I select Addl, it will leave row 1 blank :-(

[tehneXus]

Another try: funclocs.xlsm

[matchooo]

I integrated it into a different workbook and tweaked it a little. I modified the code for the second button so it would not affect the original worksheet:
Private Sub CommandButton2_Click()
Dim DTAddress As String
DTAddress = CreateObject("WScript.Shell").SpecialFolders("Desktop") & Application.PathSeparator

Dim wb As Variant
Dim newwb As Variant
Set wb = ActiveWorkbook
Set newwb = Workbooks.Add()
Application.DisplayAlerts = False
ThisWorkbook.Worksheets("funclocs").Activate
wb.ActiveSheet.Copy newwb.ActiveSheet 'copy sheet to new workbook
newwb.ActiveSheet.Activate
ActiveSheet.UsedRange
newwb.SaveAs Filename:=DTAddress & "funclocs.txt", _
FileFormat:=xlText, _
CreateBackup:=False
ActiveWorkbook.Close savechanges:=False
Application.DisplayAlerts = True
ThisWorkbook.Worksheets("Order").Select

End Sub

Thanks a ton!