Borrar datos específicos
Hola, Tavo! Tengo una columna B donde tengo los médicos, desde fila 10 en adelante; lo que necesito es, si renuncia alguno, BORRAR de la lista a ese médico y reordenar la lista (de modo que no queden celdas en blanco), en dos casos:
1.- Solamente la celda donde está el médico (se usa para ComboBox)
2.- La fila completa, donde están sus datos (está en otra hoja, pero con tu ejemplo me bastará para orientarme)
Ah! Obviamente, debe ser desde un UserForm.
Gracias!
1.- Solamente la celda donde está el médico (se usa para ComboBox)
2.- La fila completa, donde están sus datos (está en otra hoja, pero con tu ejemplo me bastará para orientarme)
Ah! Obviamente, debe ser desde un UserForm.
Gracias!
1 Respuesta
Respuesta de tavopz
1
Creo que lo que puedes hacer es usar el ComboBox para seleccionar la opción a eliminar, luego con un botón vas a la hoja de cálculo donde están las opciones y haces una búsqueda dentro del rango para encontrar la coincidencia y eliminas esa celda o fila.
Si estás utilizando un nombre de rango para las opciones de tu combo, este debería quedar actualizado automáticamente para que no te queden opciones en blanco al final.
Pienso que tal vez sería algo así:
Private Sub CommandButton1_Click()
Dim s As Worksheet
Dim c As Range
Set s = Sheets("Sheet1")
x = UF.ComboBox1.Value
For Each c In s.Range("MiRango")
If c.Value = x Then
Range(c.Address).Select
Selection.Delete Shift:=xlUp
GoTo fin
End If
Next c
fin:
End Sub
Si estás utilizando un nombre de rango para las opciones de tu combo, este debería quedar actualizado automáticamente para que no te queden opciones en blanco al final.
Pienso que tal vez sería algo así:
Private Sub CommandButton1_Click()
Dim s As Worksheet
Dim c As Range
Set s = Sheets("Sheet1")
x = UF.ComboBox1.Value
For Each c In s.Range("MiRango")
If c.Value = x Then
Range(c.Address).Select
Selection.Delete Shift:=xlUp
GoTo fin
End If
Next c
fin:
End Sub
¡PERFECTO! Ya están las 5 estrellitas. Pero antes (no es extorsión...), ¿dónde metería el "entire row" para borrar toda la fila? Esta ME SIRVE para unas hojas, pero necesito, en la de los datos, borrar toda la fila.
Gracias!
Gracias!
Creo que sería algo así:
...
Rows(Ltrim(Str(c.row) & ":" & Ltrim(Str(c. Row)).Select
Selection.Delete Shift:=xlUp
...
...
Rows(Ltrim(Str(c.row) & ":" & Ltrim(Str(c. Row)).Select
Selection.Delete Shift:=xlUp
...
