Last Display on userform to a Listbox

[abbas50]

lstdisplay.ColumnCount = 15
lstdisplay.RowSource = "A1:O600000"

So when i do this it Displays everything on the sheet i am at i want to adjust that and when i use the userform it shows last 10 or 15 entries only and on the active sheet from userform any help?

 

[DanteAmor]

my userform is a data entry form with multiple sheets i have accomplished to do that and when i enter my data it goes to the sheet i want with every option i need
saying that i just need for my last entries to show in a listbox

You can upload your file to the cloud and in the sheets you explain what you need.

You could upload a copy of your file to a free site such www.dropbox.com. Once you do that, mark it for 'Sharing' and you will be given a link to the file that you can post here. If the workbook contains confidential information, you could replace it with generic data.

 

[Fluff]

This will remove the items from the listbox and the active sheet.

Private Sub CommandButton3_Click()
    Dim i As Long
    With Me.lstdisplay
        For i = .ListCount - 1 To 0 Step -1
            If .Selected(i) Then
                Range("A" & Rows.Count).End(xlUp).Offset(-.ListCount + i + 1).EntireRow.Delete
                .RemoveItem (i)
            End If
        Next i
    End With
End Sub

 

[abbas50]

And so by looking at the listbox how will we know what sheet this data in the listbox came from?

there is a Combobox with a country name in it so we will know its from the sheet name coz sheet name and data has the country name thats why my code has multisheet code i select from userform and it goes there ! thats what im trying to say :/

 

[My Aswer Is This]

I would like it when users are asked to:

You can upload your file to the cloud and in the sheets you explain what you need.
​

That the eventual answer be posted here in the forum so others here can see the final code that worked.

 

[Fluff]

This will delete the rows from the sheet selected in the combo

Private Sub CommandButton3_Click()
    Dim i As Long
    If Me.ComboBox1.Value = "" Then Exit Sub
    With Me.Lstdisplay
        For i = .ListCount - 1 To 0 Step -1
            If .Selected(i) Then
                Sheets(Me.ComboBox1.Value).Range("A" & Rows.Count).End(xlUp).Offset(-.ListCount + i + 1).EntireRow.Delete
                .RemoveItem (i)
            End If
        Next i
    End With
End Sub

Change the combo name in red to suit

 

[abbas50]

Thanks for the info i did what you suggested

Youtube Influencers Abbas (1).xlsm

Shared with Dropbox

www.dropbox.com

You can upload your file to the cloud and in the sheets you explain what you need.

You could upload a copy of your file to a free site such www.dropbox.com. Once you do that, mark it for 'Sharing' and you will be given a link to the file that you can post here. If the workbook contains confidential information, you could replace it with generic data.

 

[DanteAmor]

I would like it when users are asked to:
You can upload your file to the cloud and in the sheets you explain what you need.

That the eventual answer be posted here in the forum so others here can see the final code that worked.

Of course the answer will be here, but I still don't understand what the OP needs.
If the OP already has the answer, then the file is no longer necessary.
I'm just trying to help. ?

 

[Fluff]

@abbas50
Not sure if you saw post#25 as we posted at the same time

 

[abbas50]

@abbas50
Not sure if you saw post#25 as we posted at the same time

im trying it and its not working it keeps deleting the last 50 rows dont know why and it still debugging when im on another sheet this is killing me lol

 

[abbas50]

Of course the answer will be here, but I still don't understand what the OP needs.
If the OP already has the answer, then the file is no longer necessary.
I'm just trying to help. ?

thank you so much for trying to help me i know im a newbie at coding but i need to make my life easier :P ty so much