Como eliminar fila de hojas diferentes
Quisiera saber como puedo eliminar la fila que contenga el dato seleccionado en un listbox en tres hojas diferente del mismo libro, por ejemplo en la hoja1 y hoja2 los datos están en la columna B y en la hoja3 están en la columna C. Requiero que al dar doble clic en el listbox se elimine ahí y en las tres hojas. Alguien podrá asesorarme. Tengo esta instrucción pero solo eh podido eliminar en una solo hoja.
Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Set a = Sheets("Hoja1") filaedit = a.Range("B" & Rows.Count).End(xlUp).Row fila = ListBox1.ListIndex cod = UserForm1.ListBox1.List(fila, 1) ListBox1.RemoveItem (ListBox1.ListIndex) Set codigo = a.Range("B2:B" & filaedit).Find(cod, LookIn:=xlValues, LookAt:=xlWhole) If Not codigo Is Nothing Then Dire = codigo.Row a.Cells(Dire, "A").EntireRow.Delete End If End Sub
1 respuesta
Respuesta de Abraham Valencia
1