Escribir código dentro de un rango

Escribir código dentro de un rango

Estoy escribiendo un programa de Excel para rastrear dónde se encuentran las herramientas en nuestro lugar de trabajo. Estoy intentando mover datos de una página a otra. Tengo VLookup para acceder a la información pero quiero poder borrar el contenido de la otra página una vez que se encuentren los detalles. El problema que tengo es escribir una fórmula en el código VBA (ya que este es un botón que lo activa todo) que puede encontrar la fila y luego borrar el contenido de esa fila. Intenté poner una fórmula de coincidencia en una celda aleatoria para encontrar la fila e intenté ingresarla en el rango automáticamente. ¿Alguien sabe cómo esto es posible? Esto es lo que he estado intentando. X1 tiene una fórmula de coincidencia en esa celda.

Hojas("Running.Sheet").Range("A"Running.Sheet").Rango("X1").Valor).ClearContents

Respuesta1

Casi llegamos. Intentar

Sheets("Running.Sheet").Range("A" & Sheets("Running.Sheet").Range("X1").Value).ClearContents

Puede hacer que el código sea un poco más manejable declarando variables para la hoja, asignando el nombre de la hoja a la variable y luego usando la variable. Como esto:

Dim ws As Worksheet
Set ws = Sheets("Running.Sheet")

ws.Range("A" & ws.Range("X1").Value).ClearContents

Aunque es un poco más complicado de configurar, cuanto más a menudo necesites consultar esa misma hoja, ganarás eficiencia.

información relacionada