:crying:
I have a macro built into a combo button that is used by the end-users to refresh an input template with default data. For some reason, when ever an End-User conducts a save-as, the macro runs. This is causing loss of data issues for my end-users.
Any thoughts would be apprecaited!
Re: Macro runs on SaveAs
Hi
Could you attach a copy of the workbook...
Also does the workbook have a before save event??
Aadarsh
Re: Macro runs on SaveAs
The workbook has a beforesave event in which I was trying to turn off the combo box macro, but it's not working.
The file is too large to attach. Below is the code, it is found on the worksheet:
Dim NoCombo As Boolean
Private Sub PropType_Change()
Application.ScreenUpdating = False
If Not NoCombo Then
Select Case PropType.Value
Case "Town House"
Run "TownHouse"
Range("b13") = "List Price per Square Foot"
Range("b17") = "Purchase Price per Square Foot"
Range("k9") = "Total Square Feet"
Range("v22") = "Sales $/SqFt"
Range("v23") = "List $/SqFt"
Range("a1").Select
Case "Condo"
Run "Condo"
Range("b13") = "List Price per Square Foot"
Range("b17") = "Purchase Price per Square Foot"
Range("k9") = "Total Square Feet"
Range("v22") = "Sales $/SqFt"
Range("v23") = "List $/SqFt"
Range("a1").Select
Case "Multi-Use"
Run "MultiUse"
Range("b13") = "List Price per Square Foot"
Range("b17") = "Purchase Price per Square Foot"
Range("k9") = "Total Square Feet"
Range("v22") = "Sales $/SqFt"
Range("v23") = "List $/SqFt"
Range("a1").Select
Case "Resort"
Run "Resort"
Range("b13") = "List Price per Square Foot"
Range("b17") = "Purchase Price per Square Foot"
Range("k9") = "Total Square Feet"
Range("v22") = "Sales $/SqFt"
Range("v23") = "List $/SqFt"
Range("a1").Select
Case "Land"
Run "Land"
Range("b13") = "List Price per Acre"
Range("b17") = "Purchase Price per Acre"
Range("k9") = "Total Acres"
Range("v22") = "Sales $/Acre"
Range("v23") = "List $/Acre"
Range("c54") = "=(100/16)*M9"
Range("a1").Select
Case Else
Range("b13") = "List Price per Square Foot"
Range("b17") = "Purchase Price per Square Foot"
Range("k9") = "Total Square Feet"
Range("v22") = "Sales $/SqFt"
Range("v23") = "List $/SqFt"
Range("a1").Select
End Select
End If
NoCombo = False
Application.ScreenUpdating = True
End SubHere is the before save code, it is found in the workbook section.
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
NoCombo = SaveAsUI
End Sub
Private Sub Workbook_Open()
NoCombo = False
End Sub
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim Town As Range, State As Range, Unit As Range, Dev As Range
Set Town = Sheets("inputs&outputs").Range("c4")
Set State = Sheets("inputs&outputs").Range("c6")
Set Unit = Sheets("inputs&outputs").Range("c8")
Set Dev = Sheets("inputs&outputs").Range("c7")
With ActiveSheet.PageSetup
.LeftHeader = "&""arial,bold""&28" & Town & ", " & _
State & Chr(10) & "&""arial,bold""&20" & _
Unit & " " & Dev
End With
End SubDon’t have an account yet? Register yourself now and be a part of our community!