AboutPricing

Get instant live expert help on I need help with vba sub return value

“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

    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
    i'm having issues with the vba private sub code for tableupdate
    Solved by T. H. in 28 mins
    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
    Can you simplify this formula for vba? Sub Test() Dim LastRow As Long Dim i As Long LastRow = Range("A" & Rows.Count).End(xlUp).Row For i = 2 To LastRow If Range("A" & i).Value = "CANCELLED" Then Range("N" & i).Value = "," & Range("N" & i).Value Range("O" & i).Value = "," & Range("O" & i).Value Range("P" & i).Value = "," & Range("P" & i).Value Range("Q" & i).Value = "," & Range("Q" & i).Value Range("R" & i).Value = "," & Range("R" & i).Value End If Next i End Sub And skip if blank.
    Solved by M. E. in 16 mins
    VBA Stack Prob " Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer For i = 4 To 200 If Cells(i, "J").Value <> "" And Cells(i, "L").Value = "" Then Cells(i, "L").Value = Date & " " & Time Cells(i, "L").NumberFormat = "d/m/yyyy h:mm AM/PM" End If Next Range("L:L").EntireColumn.AutoFit For i = 4 To 200 If Cells(i, "L").NumberFormat <> "" And Cells(i, "L").NumberFormat = "d/m/yyyy h:mm AM/PM" Then Cells(i, "C").Value = "" End If Next Range("C:C").EntireColumn.AutoFit End Sub"
    Solved by T. L. in 25 mins