Macro que borre de acuerdo a fila donde se encuentre activa

Solicito de su valiosa colaboración para una macro que borre datos de determinado rango de acuerdo a la fila que este activa. Ejemplo:

Si necesito borrar los datos del rango de las columnas "GNP:IBH" y estoy en la fila 50, borre los datos de ese rango osea, "GNP50:IBH50" y si después estoy en la fila 100 pues lo haga exclusivamente en esa fila.

1 respuesta

Respuesta
1

Ejecuta lo siguiente:

Sub borrardatos()
  Range("GNP" & ActiveCell.Row & ":IBH" & ActiveCell.Row).ClearContents
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Calculo de unidades por superficies

Necesitaría una fórmula que me calculara la cantidad mínima de piezas que necesito para cubrir 0.5 m2. (50anchox100alto cm) Tengo los siguientes descripciones: - Placa metálica de acero al carbono 60x60 cm. Me tendría que dar el valor 2, ya que con...
1 respuesta

Visualizar PDF´S en formulario Access

En la siguiente ubicación "C:\Encuestas" tengo 15 encuestas en formato PDF y un cuadro de lista dónde se eligen, hasta aquí he avanzado, ahora mi objetivo es que al hacer doble clic se visualice la encuesta dentro del mismo formulario. ¿Esto es...
2 respuestas

Traspaso de valores con decimales en formulario de Escell

Tengo un formulario en el que tengo un capo de moneda, el primer problema es que tengo que utilizar la coma y no el punto y el segundo es que me traspasa los datos como texto y no como numero os adjunto el código Private Sub CommandButton1_Click()...
2 respuestas

Alguien sabe cómo copiar un rango discontinuo y pegar solo valores en ese mismo rango y mismas celdas

Lo que pretende es que Alguien me explique cómo copiar un rango discontinuo y pegar solo valores en ese mismo rango y mismas celdas. Me gustaría sin macros, pero si no hay otra solución, pues con macros.
1 respuesta

Fórmula para poner en celda que haga la concatenación de celdas visibles en un rango dado.

NECesito una fórmula para poner en K1, según el cuadro que adjunto, para que en K1, me haga, de forma automática, la concatenación de las celdas que queden visibles en el rango k4:K11, YA que al filtrar se pueden mostrar todas o solo parte de ellas....
2 respuestas

Como pegar solamente valores de una celda a otra hoja

Sub CopiarImprimir() ' ' CopiarImprimir Macro ' Application.ScreenUpdating = False Sheets("Imprimir").Select Worksheets("Imprimir"). Range("A4:C50"). Clear Range("E4:J49"). Clear Sheets("Planillas").Select Sheets("Planillas"). Range("G4").Copy...
3 respuestas

Mantener el color de un botón al salir de un módulo

Quisiera por favor me ayuden, estoy haciendo una aplicación en vba para un restaurante y necesito lo siguiente: tengo 20 mesas que al momento de abrir el modulo de venta selecciono la mesa y cambia de color y su estado pasa a ocupada la idea es...
3 respuestas

Recorrer una tabla de Access

Tengo un formulario de access en el que tengo un campo llamado importe y otros importe_1, importe_2, importe_3 y un campo llamado reg que lo que necesito es que si el valor del registro es 21 coloque el importe en importe_, si es 22 lo coloque en...
3 respuestas

Pagos múltiples de cuotas de asociados mediante un importe grande pagado y conforme a un rango de fecha ingresado..Ms access 365

Mediante un botón "Pagar Cuotas" Necesito ir descontando las cuotas de los asociados del importe pagado e ir controlando el saldo del mismo hasta quedar en 0, teniendo en cuenta el mes de vencimiento de las cuotas comparando entre Fecha Inicial,...
2 respuestas

Redondear decimales en números arábigos

Sres. T.E. La consulta es la siguiente, necesito una fórmula en excel para llevar los decimales a .00 y .50, ejemplo en una celda tengo el valor 45.12 levarlo a 45.00 en otra tengo 45.42 levarlo a 45.00.
2 respuestas