T
timh2ofall
I'm struggling with a macro that uses a ComboBox on a UserForm to find
a unique item in a column and then select that Row. So far so good, I
then want to Cut and paste (CutCopyMode)to another worksheet. I get a
"Select Method of range class failed" error apparently because now the
range is empty. Using Copy instead of Cut works fine, but I need to
clear or delete the source row afterward. Can you tweak the macro, or
suggest a way to add on code that goes back to the row selected and
deletes it after the paste?
This is what I'm using
Private Sub ComboBox1_Change()
Dim rng As Range
Set rng = Range(ComboBox1.RowSource).Cells.Resize(1, 1)
rng.Offset(ComboBox1.ListIndex, 0).EntireRow.Select 'this is where
error occurs
Selection.Cut
ActiveCell.EntireRow.Select
Sheets("Sheet1").Select
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = True
TaskForm.Show
Unload Me
End Sub
Can You Help?
Thanks, Tim
a unique item in a column and then select that Row. So far so good, I
then want to Cut and paste (CutCopyMode)to another worksheet. I get a
"Select Method of range class failed" error apparently because now the
range is empty. Using Copy instead of Cut works fine, but I need to
clear or delete the source row afterward. Can you tweak the macro, or
suggest a way to add on code that goes back to the row selected and
deletes it after the paste?
This is what I'm using
Private Sub ComboBox1_Change()
Dim rng As Range
Set rng = Range(ComboBox1.RowSource).Cells.Resize(1, 1)
rng.Offset(ComboBox1.ListIndex, 0).EntireRow.Select 'this is where
error occurs
Selection.Cut
ActiveCell.EntireRow.Select
Sheets("Sheet1").Select
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = True
TaskForm.Show
Unload Me
End Sub
Can You Help?
Thanks, Tim