Eliminar datos de toda una fila al eliminar un data de una celda...

Quisiera saber si se podrá realizar lo siguiente:

Necesito que al eliminar el dato que se encuentra en la columna B fila 3 osea B3 este me elimina los datos que se encuentran a un lado de su misma fila y así sucesivamente hasta la fila 4002

2 Respuestas

Respuesta
1

Esta es una forma

Sub eliminar()
'Por.Dante Amor
    Set h1 = Sheets("CLIENTES REGISTRADOS")
    fila = 3
    uc = h1. Cells(fila, Columns. Count).End(xlToLeft). Column
 h1. Range(h1. Cells(fila, "B"), h1. Cells(fila, uc)). ClearContents
End Sub

Cambia fila = 3 por el número de fila que quieras eliminar

¿Hola dónde pego ese código?

No sé en qué momento quieres eliminar la fila. Tendrías que decirme cuál es el contexto, seleccionas la fila desde un formulario o quieres seleccionar la fila en la hoja y presionar un botón y que la macro elimine la fila en donde se encuentra el cursor el mouse. Además lo que te puse es un ejemplo, pero tienes que adaptarlo a lo que necesitas, según el contexto.

Se eliminaría los datos que están sobre esa fila al momento de eliminar el teléfono osea la celda B3..

Y así con las otras celdas en caso de que tengas teléfono (numero) y si tiene datos al momento de borrar el tel se borren los datos

¿Eliminas el teléfono desde un formulario o desde dónde?

Primero tienes que buscar el teléfono, ¿supongo?

Ya que lo encuentres, ¿quieres borrar los datos o quieres eliminar toda la fila?

Envíame tu última versión de archivo y me contestas mis dudas.

No olvides poner tu nombre en el asunto del correo.

Esta es la macro para borrar los datos del cliente

Sub BorrarCliente()
'Por.Dante Amor
    If ActiveCell.Row > 2 Then
        If ActiveCell.Column = 2 Then
            Range("B" & ActiveCell.Row & ":J" & ActiveCell.Row).ClearContents
            MsgBox "Datos de cliente borrados"
        Else
            MsgBox "Selecciona un teléfono de cliente"
        End If
    Else
        MsgBox "Selecciona una fila de cliente"
    End If
End Sub
Respuesta
1

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = Range("B3").Address Then MIMACRO
End Sub
Sub MIMACRO()
If Cells(3, 2) = "" Then For I = 3 To 4002: Cells(3, I) = "": Next I
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Pegar del UserForm dos veces un número en la misma hoja seleccionada... Para Dante Amor

Me proporcionaste una macro tal como te la pedí, quedó perfecta, pero también te comenté que yo quería hacer la siguiente parte sobre esta misma, pero me falló, ahora apelo a tu buena voluntad de apoyarme con esta partecita… Una vez hecha la...
1 respuesta

Macro para buscar datos en varios libro compartidos en red

Hey, que tal expertos! Buenas noches!, Tengo la necesidad de buscar datos en archivos compartidos de un usuario en red, el cual tiene dos carpetas compartidas, una carpeta tiene contraseña de acceso y solo yo tengo el permiso para acceder a ella. La...
1 respuesta

Copiar rango a otra hoja si una celda es mayor a 0

Busco una macro en excel que me ayude con lo siguiente: Tengo en el rango B9:N38 de la hoja 1 una tabla de datos. En la columna B de tal tabla hay valores que van a partir de 0. Deseo copiar de la hoja 1 a la hoja 2 aquellos "renglones" que en la...
1 respuesta

Macro borrar datos de hoja sin borrar formato

Tengo una macro con la que me ayudaron, trabaja muy bien la cual busca datos en un libro y los anota en una hoja llamada buscador, pero a esta hoja no puedo darle formato ya que se elimina al usarlo, es decir por ejemplo si le pongo un fondo a la...
1 respuesta

Pegar del UserForm dos veces un número en la misma hoja seleccionada

En días anteriores me hiciste el favor de apoyarme con una macro; de nuevo y del mismo programita solicito tu apoyo para completar esta última, creo que con esta se cierra el ciclo de este programa. De nueva cuenta Agradezco tus atenciones. Te...
1 respuesta

Permitir solo determinado formato en celdas

Solicitando nuevamente te ayuda. Como podría hacer para que en una hoja de Excel llamada Datos, la columna A (Consecutivo) acepte solo números; la columna B (Descripción) acepte solo texto y por ultimo la columna C (Fecha) solo fechas. Ademas si al...
1 respuesta

Búsqueda de datos similares en Excel.

Tengo dos libros de excel, ( MOD 1 y MOD 2 ) en cada uno, tengo tablas con información que necesito comparar para encontrar similitudes. En MOD 1, nos interesan las columnas " A, L y N ", en MOD 2, nos interesan " C, M y N ". Se pretende encontrar...
1 respuesta