Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
to delete row from userform
I have userform with one combobox which contain products name stored in
cells a2:a50(named My List) when I choose one Macro delete row where product name is. I want to have one command button on userform which do this. What I need to change in this code: Option Explicit Public Cleared As Boolean Private Sub ComboBox1_Change() Dim i As Integer If Not Cleared Then With Sheets(1) i = Application.Match(Me.ComboBox1.Value, Range("MyList"), 0) Cleared = True .Range("MyList")(i).EntireRow.Delete Shift:=xlUp End With End If Cleared = False Me.Hide End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
to delete row from userform
Change this
.Range("MyList")(i).EntireRow.Delete Shift:=xlUp to .Range("MyList").Cells(i,1).EntireRow.Delete Shift:=xlUp -- HTH RP (remove nothere from the email address if mailing direct) "Alen32" wrote in message lkaboutsoftware.com... I have userform with one combobox which contain products name stored in cells a2:a50(named My List) when I choose one Macro delete row where product name is. I want to have one command button on userform which do this. What I need to change in this code: Option Explicit Public Cleared As Boolean Private Sub ComboBox1_Change() Dim i As Integer If Not Cleared Then With Sheets(1) i = Application.Match(Me.ComboBox1.Value, Range("MyList"), 0) Cleared = True .Range("MyList")(i).EntireRow.Delete Shift:=xlUp End With End If Cleared = False Me.Hide End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How can I delete row from userform? | Excel Programming | |||
delete Userform control programmatically | Excel Programming | |||
userform delete sheet | Excel Programming | |||
userform delete sheet | Excel Programming | |||
Delete userform/module using VB | Excel Programming |