excel VBA - Userform cmd problem

  • Thread starter Thread starter Zygoid
  • Start date Start date
Z

Zygoid

i have a user form that when the cmdbutton is clicked it opens anothe
workbook, inputs information in the next available space, then closes
without user seeing it open. The problem is when it closes, the "sav
as" window opens. is there coding i can use to automatically sav
changes and close the workbook without user seeing it close? here i
the code I have;

Private Sub CommandButtonOkay_Click()

Application.ScreenUpdating = False
Set SourceWB = Workbooks.Open("C:\greg\db.xls", _
False, True)


ActiveWorkbook.Sheets("Subdiv").Activate
Range("A1").Select
Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = txtSubdivision.Value
ActiveCell.Offset(0, 1) = cboCity.Value
ActiveCell.Offset(0, 2) = txtZip.Value
ActiveCell.Offset(0, 3) = txtDirections.Value

SourceWB.Close True

ActiveWorkbook.Sheets("Costing").Activate
Range("D5").Select

Unload Me

End Su
 
Hi,

Try to save the workbook before closing and then close it withou
saving :

SourceWb.Save
SourceWB.Close False

P.S. : if the file's (opened) readonly, you'll get the Save As windo
again
 
This line of code will close the workbook and save changes
automatically.

sourcewb.Close true
 
I found out that the page was opening as "ready only"

so i changed the code from:
Set SourceWB = Workbooks.Open("C:\greg\db.xls", _
False, True)

to:
Set SourceWB = Workbooks.Open("C:\greg\db.xls")

and it works fine
 
Back
Top