VBA code Two buttons merge

%3CLINGO-SUB%20id%3D%22lingo-sub-2624114%22%20slang%3D%22en-US%22%3EVBA%20code%20Two%20buttons%20merge%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-2624114%22%20slang%3D%22en-US%22%3E%3CP%3EI%20need%20to%20merge%20these%20two%20buttons%20into%20one%2C%20i%20am%20very%20new%20to%20this%20and%20keep%20breaking%20the%20program%20%3CLI-EMOJI%20id%3D%22lia_winking-face%22%20title%3D%22%3Awinking_face%3A%22%3E%3C%2FLI-EMOJI%3E%3C%2FP%3E%3CP%3E%3CBR%20%2F%3E%3CSTRONG%3EPrivate%20Sub%20cmdAdd_Click()%3C%2FSTRONG%3E%3CBR%20%2F%3E'dimension%20the%20variable%3CBR%20%2F%3EDim%20addme%20As%20Range%2C%20cNum%20As%20Integer%3CBR%20%2F%3EDim%20x%20As%20Integer%2C%20y%20As%20Integer%2C%20Ck%20As%20Integer%3CBR%20%2F%3E'set%20variables%3CBR%20%2F%3ESet%20addme%20%3D%20Sheet4.Cells(Rows.Count%2C%202).End(xlUp).Offset(1%2C%200)%3CBR%20%2F%3EcNum%20%3D%2019%3CBR%20%2F%3ECk%20%3D%200%3CBR%20%2F%3E'run%20the%20for%20loop%3CBR%20%2F%3EFor%20x%20%3D%200%20To%20Me.lstMulti.ListCount%20-%201%3CBR%20%2F%3E'add%20condition%20statement%3CBR%20%2F%3EIf%20Me.lstMulti.Selected(x)%20Then%3CBR%20%2F%3ECk%20%3D%201%3CBR%20%2F%3E'second%20loop%3CBR%20%2F%3EFor%20y%20%3D%200%20To%20cNum%3CBR%20%2F%3Eaddme.Offset(0%2C%20y)%20%3D%20Me.lstMulti.List(x%2C%20y)%3CBR%20%2F%3ENext%20y%3CBR%20%2F%3ESet%20addme%20%3D%20addme.Offset(1%2C%200)%3CBR%20%2F%3E%3CBR%20%2F%3EEnd%20If%3CBR%20%2F%3E'clear%20the%20selected%20values%3CBR%20%2F%3ElstMulti.Selected(x)%20%3D%20False%3CBR%20%2F%3ENext%20x%3CBR%20%2F%3E'send%20a%20message%20if%20nothing%20is%20selected%3CBR%20%2F%3E%3CBR%20%2F%3E%3CBR%20%2F%3EIf%20Ck%20%3D%200%20Then%3CBR%20%2F%3EMsgBox%20%22There%20is%20nothing%20selected%22%3CBR%20%2F%3E%3CBR%20%2F%3EEnd%20If%3CBR%20%2F%3EEnd%20Sub%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%3CBR%20%2F%3E%3CSTRONG%3EPrivate%20Sub%20CommandButton1_Click()%3C%2FSTRONG%3E%3CBR%20%2F%3E'dimension%20the%20variable%3CBR%20%2F%3EDim%20addme%20As%20Range%3CBR%20%2F%3EDim%20x%20As%20Integer%2C%20Ck%20As%20Integer%3CBR%20%2F%3E'set%20variables%3CBR%20%2F%3ESet%20addme%20%3D%20Sheet3.Cells(Rows.Count%2C%202).End(xlUp).Offset(1%2C%200)%3CBR%20%2F%3ECk%20%3D%200%3CBR%20%2F%3E'run%20the%20for%20loop%3CBR%20%2F%3EFor%20x%20%3D%200%20To%20lstMulti.ListCount%20-%201%3CBR%20%2F%3E'add%20condition%20statement%3CBR%20%2F%3EIf%20Me.lstMulti.Selected(x)%20Then%3CBR%20%2F%3ECk%20%3D%201%3CBR%20%2F%3Eaddme%20%3D%20Me.lstMulti.List(x)%3CBR%20%2F%3E%3CBR%20%2F%3Eaddme.Offset(0%2C%201)%20%3D%20Me.lstMulti.List(x%2C%203)%3CBR%20%2F%3Eaddme.Offset(0%2C%202)%20%3D%20Me.lstMulti.List(x%2C%201)%3CBR%20%2F%3Eaddme.Offset(0%2C%203)%20%3D%20Me.lstMulti.List(x%2C%2014)%3CBR%20%2F%3Eaddme.Offset(0%2C%204)%20%3D%20Me.lstMulti.List(x%2C%2015)%3CBR%20%2F%3Eaddme.Offset(0%2C%205)%20%3D%20Me.lstMulti.List(x%2C%2016)%3CBR%20%2F%3Eaddme.Offset(0%2C%205)%20%3D%20Me.lstMulti.List(x%2C%2017)%3C%2FP%3E%3CP%3E%3CBR%20%2F%3ESet%20addme%20%3D%20addme.Offset(1%2C%200)%3CBR%20%2F%3E'clear%20the%20selected%20row%3CBR%20%2F%3ElstMulti.Selected(x)%20%3D%20False%3CBR%20%2F%3EEnd%20If%3CBR%20%2F%3ENext%20x%3CBR%20%2F%3E'send%20a%20message%20if%20nothing%20is%20selected%3CBR%20%2F%3EIf%20Ck%20%3D%200%20Then%3CBR%20%2F%3EMsgBox%20%22There%20is%20nothing%20selected%22%3CBR%20%2F%3EEnd%20If%3CBR%20%2F%3EEnd%20Sub%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-2624114%22%20slang%3D%22en-US%22%3E%3CLINGO-LABEL%3EExcel%3C%2FLINGO-LABEL%3E%3CLINGO-LABEL%3EMacros%20and%20VBA%3C%2FLINGO-LABEL%3E%3CLINGO-LABEL%3EOffice%20365%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E%3CLINGO-SUB%20id%3D%22lingo-sub-2624439%22%20slang%3D%22en-US%22%3ERe%3A%20VBA%20code%20Two%20buttons%20merge%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-2624439%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F1123128%22%20target%3D%22_blank%22%3E%40JT_2021%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%0A%3CP%3ETry%20this%3A%3C%2FP%3E%0A%3CPRE%20class%3D%22lia-code-sample%20language-visual-basic%22%3E%3CCODE%3EPrivate%20Sub%20cmdAdd_Click()%0A%20%20%20%20'dimension%20the%20variable%0A%20%20%20%20Dim%20addme1%20As%20Range%2C%20addme2%20As%20Range%2C%20cNum%20As%20Integer%0A%20%20%20%20Dim%20x%20As%20Integer%2C%20y%20As%20Integer%2C%20Ck%20As%20Boolean%0A%20%20%20%20%0A%20%20%20%20'set%20variables%0A%20%20%20%20Set%20addme1%20%3D%20Sheet4.Cells(Rows.Count%2C%202).End(xlUp).Offset(1%2C%200)%0A%20%20%20%20Set%20addme2%20%3D%20Sheet3.Cells(Rows.Count%2C%202).End(xlUp).Offset(1%2C%200)%0A%20%20%20%20cNum%20%3D%2019%0A%20%20%20%20%0A%20%20%20%20'run%20the%20for%20loop%0A%20%20%20%20For%20x%20%3D%200%20To%20Me.lstMulti.ListCount%20-%201%0A%20%20%20%20%20%20%20%20'add%20condition%20statement%0A%20%20%20%20%20%20%20%20If%20Me.lstMulti.Selected(x)%20Then%0A%20%20%20%20%20%20%20%20%20%20%20%20Ck%20%3D%20True%0A%20%20%20%20%20%20%20%20%20%20%20%20'handle%20addme1%0A%20%20%20%20%20%20%20%20%20%20%20%20For%20y%20%3D%200%20To%20cNum%0A%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20%20addme1.Offset(0%2C%20y)%20%3D%20Me.lstMulti.List(x%2C%20y)%0A%20%20%20%20%20%20%20%20%20%20%20%20Next%20y%0A%20%20%20%20%20%20%20%20%20%20%20%20Set%20addme1%20%3D%20addme1.Offset(1%2C%200)%0A%20%20%20%20%20%20%20%20%20%20%20%20'handle%20addme2%0A%20%20%20%20%20%20%20%20%20%20%20%20addme2%20%3D%20Me.lstMulti.List(x)%0A%20%20%20%20%20%20%20%20%20%20%20%20addme2.Offset(0%2C%201)%20%3D%20Me.lstMulti.List(x%2C%203)%0A%20%20%20%20%20%20%20%20%20%20%20%20addme2.Offset(0%2C%202)%20%3D%20Me.lstMulti.List(x%2C%201)%0A%20%20%20%20%20%20%20%20%20%20%20%20addme2.Offset(0%2C%203)%20%3D%20Me.lstMulti.List(x%2C%2014)%0A%20%20%20%20%20%20%20%20%20%20%20%20addme2.Offset(0%2C%204)%20%3D%20Me.lstMulti.List(x%2C%2015)%0A%20%20%20%20%20%20%20%20%20%20%20%20addme2.Offset(0%2C%205)%20%3D%20Me.lstMulti.List(x%2C%2016)%0A%20%20%20%20%20%20%20%20%20%20%20%20addme2.Offset(0%2C%205)%20%3D%20Me.lstMulti.List(x%2C%2017)%0A%20%20%20%20%20%20%20%20%20%20%20%20Set%20addme2%20%3D%20addme2.Offset(1%2C%200)%0A%20%20%20%20%20%20%20%20%20%20%20%20'clear%20the%20selected%20row%0A%20%20%20%20%20%20%20%20%20%20%20%20lstMulti.Selected(x)%20%3D%20False%0A%20%20%20%20%20%20%20%20End%20If%0A%20%20%20%20Next%20x%0A%20%20%20%20%0A%20%20%20%20'send%20a%20message%20if%20nothing%20is%20selected%0A%20%20%20%20If%20Not%20Ck%20Then%0A%20%20%20%20%20%20%20%20MsgBox%20%22There%20is%20nothing%20selected%22%0A%20%20%20%20End%20If%0AEnd%20Sub%3C%2FCODE%3E%3C%2FPRE%3E%3C%2FLINGO-BODY%3E
Occasional Visitor

I need to merge these two buttons into one, i am very new to this and keep breaking the program


Private Sub cmdAdd_Click()
'dimension the variable
Dim addme As Range, cNum As Integer
Dim x As Integer, y As Integer, Ck As Integer
'set variables
Set addme = Sheet4.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)
cNum = 19
Ck = 0
'run the for loop
For x = 0 To Me.lstMulti.ListCount - 1
'add condition statement
If Me.lstMulti.Selected(x) Then
Ck = 1
'second loop
For y = 0 To cNum
addme.Offset(0, y) = Me.lstMulti.List(x, y)
Next y
Set addme = addme.Offset(1, 0)

End If
'clear the selected values
lstMulti.Selected(x) = False
Next x
'send a message if nothing is selected


If Ck = 0 Then
MsgBox "There is nothing selected"

End If
End Sub

 


Private Sub CommandButton1_Click()
'dimension the variable
Dim addme As Range
Dim x As Integer, Ck As Integer
'set variables
Set addme = Sheet3.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)
Ck = 0
'run the for loop
For x = 0 To lstMulti.ListCount - 1
'add condition statement
If Me.lstMulti.Selected(x) Then
Ck = 1
addme = Me.lstMulti.List(x)

addme.Offset(0, 1) = Me.lstMulti.List(x, 3)
addme.Offset(0, 2) = Me.lstMulti.List(x, 1)
addme.Offset(0, 3) = Me.lstMulti.List(x, 14)
addme.Offset(0, 4) = Me.lstMulti.List(x, 15)
addme.Offset(0, 5) = Me.lstMulti.List(x, 16)
addme.Offset(0, 5) = Me.lstMulti.List(x, 17)


Set addme = addme.Offset(1, 0)
'clear the selected row
lstMulti.Selected(x) = False
End If
Next x
'send a message if nothing is selected
If Ck = 0 Then
MsgBox "There is nothing selected"
End If
End Sub

2 Replies

@JT_2021 

Try this:

Private Sub cmdAdd_Click()
    'dimension the variable
    Dim addme1 As Range, addme2 As Range, cNum As Integer
    Dim x As Integer, y As Integer, Ck As Boolean
    
    'set variables
    Set addme1 = Sheet4.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)
    Set addme2 = Sheet3.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)
    cNum = 19
    
    'run the for loop
    For x = 0 To Me.lstMulti.ListCount - 1
        'add condition statement
        If Me.lstMulti.Selected(x) Then
            Ck = True
            'handle addme1
            For y = 0 To cNum
                addme1.Offset(0, y) = Me.lstMulti.List(x, y)
            Next y
            Set addme1 = addme1.Offset(1, 0)
            'handle addme2
            addme2 = Me.lstMulti.List(x)
            addme2.Offset(0, 1) = Me.lstMulti.List(x, 3)
            addme2.Offset(0, 2) = Me.lstMulti.List(x, 1)
            addme2.Offset(0, 3) = Me.lstMulti.List(x, 14)
            addme2.Offset(0, 4) = Me.lstMulti.List(x, 15)
            addme2.Offset(0, 5) = Me.lstMulti.List(x, 16)
            addme2.Offset(0, 5) = Me.lstMulti.List(x, 17)
            Set addme2 = addme2.Offset(1, 0)
            'clear the selected row
            lstMulti.Selected(x) = False
        End If
    Next x
    
    'send a message if nothing is selected
    If Not Ck Then
        MsgBox "There is nothing selected"
    End If
End Sub

Call one of the buttons from the other one, you can hide one of these buttons as well, check this for more details:

Combining two buttons into once in Excel