AboutPricing

Get instant live expert help on I need help with vba exit sub

“My Excelchat expert helped me in less than 20 minutes, saving me what would have been 5 hours of work!”

Post your problem and you’ll get expert help in seconds.

Our professional experts are available now. Your privacy is guaranteed.
< Go Back

    Here are some problems that our users have asked and received explanations on

    Private Sub CommandButton1_Click() If TextBox1.Value = "" Or TextBox2.Value = "" Or TextBox3 = "" Then If MsgBox("Form is not complete. Do you want t ocontinue?", vbQuestion + vbYesNo) <> vbYes Then Exit Sub End If End If ActiveCell = TextBox1.Value ActiveCell.Offset(0, 1) = TextBox2.Value ActiveCell.Offset(0, 2) = TextBox3.Value ActiveCell.Offset(1, 0).Select Call resetForm End Sub Sub resetForm() TextBox1.Value = "" TextBox2.Value = "" TextBox3.Value = "" UserForm1.TextBox1.SetFocus End Sub Private Sub CommandButton2_Click() Unload Me End Sub Private Sub Label4_Click() End Sub
    Solved by F. S. in 12 mins
    i'm having issues with the vba private sub code for tableupdate
    Solved by T. H. in 28 mins
    I need help with VBA Code. Private Sub OptionButton2_click() If OptionButton2.Value = True Then Range("B4").Value = "Alaska Airlines" End Sub
    Solved by D. C. in 15 mins
    Use the VBA Editor to create a new module. Type the following VBA code to create a custom depreciation function (be sure to include the blank lines after the first line and before the last line). Save and exit the VBA Editor. Function Depreciation (Value, Rate) Depreciation = Value * Rate End Function
    Solved by I. A. in 12 mins
    Private Sub Worksheet_Change(ByVal Target As Range) Dim lRow As Long Dim vaData() As Variant If Intersect(Target, Range("A1:A200")) Is Nothing Then Exit Sub ReDim vaData(1 To 1, 1 To 3) vaData(1, 1) = Now() vaData(1, 2) = Target.Address vaData(1, 3) = Target.Resize(1, 1).Value Application.EnableEvents = False With Sheets("Sheet2") lRow = .Cells(Rows.Count, "A").End(xlUp).Row + 1 .Range("A" & lRow & ":C" & lRow).Value = vaData End With Application.EnableEvents = True End Sub presently i have to enter manually i need help to make this automatic. i donot know much about excel,this is done by one of my daughters. regards kamal
    Solved by E. Y. in 20 mins