Snasui Excel Forum

Code: Select all

For a = 0 To UserForm2.ListBox2.ListCount - 1
   If UserForm2.ListBox2.Selected(a) = True Then
    Worksheet("RENT").Range("C65536").End(xlUp).Offset(1, 0) = UserForm2.ListBox2.List(a)
    UserForm2.ListBox2.Selected(a) = False
   End If
Next

Code: Select all

Private Sub CommandButton1_Click()
'Dim i As Integer
'Dim j As Integer
'Dim final As Integer
'Dim actual As Integer
Dim a As Integer

For a = 0 To UserForm2.ListBox2.ListCount - 1
   If UserForm2.ListBox2.Selected(a) = True Then
    Worksheets("RENT").Range("C65536").End(xlUp).Offset(A1, 2, 3) = UserForm2.ListBox2.list(a)
    UserForm2.ListBox2.Selected(a) = False
    Exit For
   End If
Next


'For i = 1 To 1000
'If Oat3.Cells(i, 3) = "" Then
'final = i
'Exit For
'End If
'Next


Oat7.Cells(a, 2) = UserForm2.TextBox8
Oat7.Cells(a, 1) = UserForm2.TextBox9
Oat3.Cells(a, 2) = UserForm2.ComboBox1
Oat3.Cells(a, 5) = UserForm2.TextBox11
Oat3.Cells(a, 4) = UserForm2.TextBox6
Oat3.Cells(a, 6) = UserForm2.TextBox10
Oat3.Cells(a, 8) = UserForm2.TextBox7

 
UserForm2.ListBox2 = ""
UserForm2.ComboBox1 = ""
UserForm2.TextBox8 = ""
UserForm2.TextBox9 = ""
UserForm2.TextBox11 = ""
UserForm2.TextBox6 = ""
UserForm2.TextBox10 = ""
UserForm2.TextBox7 = ""


UserForm15.Hide
UserForm2.Hide

End Sub

Code: Select all

.Offset(A1, 2, 3)

Code: Select all

For a = 0 To UserForm2.ListBox2.ListCount - 1
   If UserForm2.ListBox2.Selected(a) = True Then
    Worksheets("RENT").Range("C65536").End(xlUp).Offset(A1, 2, 3) = UserForm2.ListBox2.list(a)
    UserForm2.ListBox2.Selected(a) = False
    Exit For
   End If
Next

Code: Select all

If UserForm2.ListBox2.Selected(a) = True Then
Worksheets("RENT").Range("C65536").End(xlUp).Offset(A1, 2, 3) = UserForm2.ListBox2.list(a)

Code: Select all

For a = 0 To UserForm2.ListBox2.ListCount - 1
   If UserForm2.ListBox2.Selected(a) = True Then
    UserForm2.ListBox2.list(a) = Worksheets("RENT").Range("C65536").End(xlUp).offset(2, 3)
    'UserForm2.ListBox2.Selected(a) = False
         End If
Next a

Code: Select all

For a = 0 To UserForm2.ListBox2.ListCount - 1
   If UserForm2.ListBox2.Selected(a) = True Then
     Worksheets("RENT").Range("C65536").End(xlUp).Offset(2, 3) = UserForm2.ListBox2.List(a)
    UserForm2.ListBox2.Selected(a) = False
    End If
Next a

Code: Select all

Private Sub CommandButton1_Click()
    Dim a As Integer
    Dim rAll As Range
    Dim r As Range
    With Worksheets("NRENT")
        Set rAll = .Range("A2", .Range("A" & Rows.Count).End(xlUp))
    End With
    For a = 0 To UserForm2.ListBox2.ListCount - 1
        If UserForm2.ListBox2.Selected(a) Then
            For Each r In rAll
                If r = UserForm2.ListBox2.list(a) Then
                    r.EntireRow.Delete
                End If
            Next r
'            Worksheets("RENT").Range("C65536").End(xlUp).Offset(1, 0) = UserForm2.ListBox2.list(a)
            UserForm2.ListBox2.Selected(a) = False
        End If
    Next
End Sub

Code: Select all

With Worksheets("NRENT")
        Set rAll = .Range("A2", .Range("A" & Rows.Count).End(xlUp))
    End With
    For a = 0 To UserForm2.ListBox2.ListCount - 1
        If UserForm2.ListBox2.Selected(a) = False Then
            
               Worksheets("RENT").Range("C65536").End(xlUp).Offset(1, 0) = UserForm2.ListBox2.list(a)
            For Each r In rAll
                If r = UserForm2.ListBox2.list(a) Then
                    r.EntireRow.Cut = Worksheets("Sheet2").Range("A65536").End(xlUp).Offset(1, 0).Paste
                    
                End If
            Next r

            UserForm2.ListBox2.Selected(a) = True
        End If
    Next

Code: Select all

With Worksheets("NRENT")
        Set rAll = .Range("A2", .Range("A" & Rows.Count).End(xlUp))
End With
For a = 0 To UserForm2.ListBox2.ListCount - 1
    If UserForm2.ListBox2.Selected(a) = False Then
        Worksheets("RENT").Range("C65536").End(xlUp).Offset(1, 0) = UserForm2.ListBox2.List(a)
        For Each r In rAll
            If r = UserForm2.ListBox2.List(a) Then
                r.EntireRow.Cut
                Worksheets("Sheet2").Range("A65536").End(xlUp).Offset(1, 0).Paste
            End If
        Next r
        UserForm2.ListBox2.Selected(a) = True
    End If
Next

Code: Select all

With Worksheets("RENT")
         Set rAll = .Range("A2", .Range("A" & Rows.count).End(xlUp))
         End With
  For k = a To 2 Step -1
       If r = InStr(1, Cells(a, 1).Value, UserForm3.ComboBox1.text, vbTextCompare) = 1 Then
            r.EntireRow.Copy Destination:=Worksheets("RENT").Range("C65536").End(xlUp).Offset(1, 0)
            r.EntireRow.Delete
            End If
        Next