Borrar datos específicos
Hola! 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 Alvaro Silveira
1
Mil disculpas por la demora, pero estoy bastante atorado de trabajo...
No me queda claro el primer caso ... en cuanto al segundo deberíamos encontrar primero la celda donde se encuentra el médico, seleccionar la fila y borrarlar.
Para eso hacemos lo siguiente :
Private Sub CommandButton1_Click()
fila = 10
col = 1
Do While Cells(fila, col) ""
If Cells(fila, col).Value = ComboBox1.Text Then 'combo que selecciona el medico a borrar
Exit Do
End If
fila = fila + 1
Loop
Rows(fila).Delete
End Sub
Supongo que en el primer caso solo quieres borrar la celda con el nombre del médico ... si es así puedes usar el mismo método.
Espero que te halla sido de ayuda y nuevamente disculpa por la demora.
Saludos, y no te olvides de finalizar y evaluar la respuesta.
No me queda claro el primer caso ... en cuanto al segundo deberíamos encontrar primero la celda donde se encuentra el médico, seleccionar la fila y borrarlar.
Para eso hacemos lo siguiente :
Private Sub CommandButton1_Click()
fila = 10
col = 1
Do While Cells(fila, col) ""
If Cells(fila, col).Value = ComboBox1.Text Then 'combo que selecciona el medico a borrar
Exit Do
End If
fila = fila + 1
Loop
Rows(fila).Delete
End Sub
Supongo que en el primer caso solo quieres borrar la celda con el nombre del médico ... si es así puedes usar el mismo método.
Espero que te halla sido de ayuda y nuevamente disculpa por la demora.
Saludos, y no te olvides de finalizar y evaluar la respuesta.
Master: me salta error en la línea -Do While Cells(fila, col) ""- (error de sintaxis)
Además, ¿no deberíamos indicar la ActiveSheet?
Además, ¿no deberíamos indicar la ActiveSheet?
El error de sintaxis es que falta el distinto, disculpa se me fueron los dedos ... jajaja
así que seria : Do While Cells(fila, col) ""
Y no necesariamente debes indicar la hoja activa
así que seria : Do While Cells(fila, col) ""
Y no necesariamente debes indicar la hoja activa
