Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help with this code please
i have the code :
Private Sub UserForm_activate() Dim myRng As Range Dim myCell As Range With Worksheets("sheet1") Set myRng = .Range("C2", .Cells(.Rows.Count, "C").End(xlUp)) End With With Me.ctrlList For Each myCell In myRng.Cells .AddItem myCell.Text Next myCell End With 'Me.ctrlList.Clear End Sub Private Sub DeleteButton_Click() Dim i As Integer If Not Cleared Then With Sheets("Sheet1") i = Application.Match(Me.ctrlList.Value, Range("C:C"), 0) Cleared = True .Range("C:C" & i).EntireRow.Delete Shift:=xlUp End With End If Cleared = False Me.Hide End Sub and i am having 2 problems, the values on the list box regenerate only when i restart the form not automaticaly eventhough i need to regenerate when ever i have a new record and the deleting code is not working , i wanted to be assigned to the list box, whenever i click a value on the list box and press the delet button , the whole row having this value shall be deleted from the excel worksheet could you please help? i appreciate your help |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help with this code please
The easiest way is to create a named range for the data in the worksheet,
and set the RowSource property to that named range. -- --- HTH Bob (there's no email, no snail mail, but somewhere should be gmail in my addy) "TheGodfather" wrote in message oups.com... i have the code : Private Sub UserForm_activate() Dim myRng As Range Dim myCell As Range With Worksheets("sheet1") Set myRng = .Range("C2", .Cells(.Rows.Count, "C").End(xlUp)) End With With Me.ctrlList For Each myCell In myRng.Cells .AddItem myCell.Text Next myCell End With 'Me.ctrlList.Clear End Sub Private Sub DeleteButton_Click() Dim i As Integer If Not Cleared Then With Sheets("Sheet1") i = Application.Match(Me.ctrlList.Value, Range("C:C"), 0) Cleared = True .Range("C:C" & i).EntireRow.Delete Shift:=xlUp End With End If Cleared = False Me.Hide End Sub and i am having 2 problems, the values on the list box regenerate only when i restart the form not automaticaly eventhough i need to regenerate when ever i have a new record and the deleting code is not working , i wanted to be assigned to the list box, whenever i click a value on the list box and press the delet button , the whole row having this value shall be deleted from the excel worksheet could you please help? i appreciate your help |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help with this code please
You might want to read up on the UserForm.Show, UserForm.Hide and Unload
Userform methods. With respect to the list being rejuvenated, If you are using RowSource in the ListBox or ComboBox properties, It should show each time you show the UserForm. If you are using the UserForm_Initialize event to load the list then it also should reload the list each time you show the UserForm. However, I do not see any code in your post that reflects either of the conditions, nor do I see a reference to either a listbox or combobox. So I am confused about what ctrlList refers to. "TheGodfather" wrote: i have the code : Private Sub UserForm_activate() Dim myRng As Range Dim myCell As Range With Worksheets("sheet1") Set myRng = .Range("C2", .Cells(.Rows.Count, "C").End(xlUp)) End With With Me.ctrlList For Each myCell In myRng.Cells .AddItem myCell.Text Next myCell End With 'Me.ctrlList.Clear End Sub Private Sub DeleteButton_Click() Dim i As Integer If Not Cleared Then With Sheets("Sheet1") i = Application.Match(Me.ctrlList.Value, Range("C:C"), 0) Cleared = True .Range("C:C" & i).EntireRow.Delete Shift:=xlUp End With End If Cleared = False Me.Hide End Sub and i am having 2 problems, the values on the list box regenerate only when i restart the form not automaticaly eventhough i need to regenerate when ever i have a new record and the deleting code is not working , i wanted to be assigned to the list box, whenever i click a value on the list box and press the delet button , the whole row having this value shall be deleted from the excel worksheet could you please help? i appreciate your help |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Help with this code please
You might want to visit this site for some additional information:
http://support.microsoft.com/default...b;EN-US;829070 "TheGodfather" wrote: i have the code : Private Sub UserForm_activate() Dim myRng As Range Dim myCell As Range With Worksheets("sheet1") Set myRng = .Range("C2", .Cells(.Rows.Count, "C").End(xlUp)) End With With Me.ctrlList For Each myCell In myRng.Cells .AddItem myCell.Text Next myCell End With 'Me.ctrlList.Clear End Sub Private Sub DeleteButton_Click() Dim i As Integer If Not Cleared Then With Sheets("Sheet1") i = Application.Match(Me.ctrlList.Value, Range("C:C"), 0) Cleared = True .Range("C:C" & i).EntireRow.Delete Shift:=xlUp End With End If Cleared = False Me.Hide End Sub and i am having 2 problems, the values on the list box regenerate only when i restart the form not automaticaly eventhough i need to regenerate when ever i have a new record and the deleting code is not working , i wanted to be assigned to the list box, whenever i click a value on the list box and press the delet button , the whole row having this value shall be deleted from the excel worksheet could you please help? i appreciate your help |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
split post code (zip code) out of cell that includes full address | Excel Discussion (Misc queries) | |||
Shorten code to apply to all sheets except a few, instead of individually naming them, and later adding to code. | Excel Programming | |||
Protect Sheet with code, but then code will not Paste error. How do i get around this. Please read for explainations.... | Excel Programming | |||
Excel code convert to Access code - Concat & eliminate duplicates | Excel Programming | |||
stubborn Excel crash when editing code with code, one solution | Excel Programming |