Dante Amor

Pon el siguiente código en los eventos de la hoja1 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.CountLarge > 1 Then Exit Sub Sheets("Hoja2").Range("A1").Value = Target.Value End Sub .[No olvides valorarla.

Selecciona la celda A1 En el cuadro de nombres escribe la palabra: celda Prueba esto: Sub test() Range("celda").Value = "xd" End Sub

No puedo descargar el archivo. Te envié una solicitud.

Te anexo un nuevo código. Revisa cómo estoy estableciendo en sh1 la hoja1 y en rng2 el rango de la hoja2. Más adelante, en la macro hago referencia a estos objetos. De esta manera puedes ejecutar la macro en cualquier hoja. Sub...

Pon el siguiente código en los eventos de ThisWorkbook Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Application.EnableEvents = False Sh.Range("B2").Value = Date Application.EnableEvents = True End Sub Si quieres la...

Prueba así: =SI($B10="R";"BUY";""); Revisa el siguiente enlace para que conozcas sobre posiciones relativas y absolutas de las celdas: https://exceltotal.com/referencias-absolutas-y-relativas/

La variable NombreHoja va sin comillas: With ThisWorkbook.Sheets(NombreHoja) Nota: En futuras publicaciones, no pongas el código en una imagen, pon el código utilizando el icono para insertar código. [Al final de mi respuesta hay un botón para valorarla.

Puedes poner 2 imágenes. Una imagen con tus datos, para ver en cuáles celdas tienes tu base de datos. En otra imagen explica el resultado que deseas. No estoy entendiendo en dónde tienes los datos, en dónde tienes las fórmulas, en dónde vas a poner...

Puedes poner imágenes de ejemplo de lo que tienes y de lo que quieres de resultado.

Debemos identificar los patrones en ambos casos. Si el caso 1 siempre tiene dos diagonales: \ Si el caso1, siempre termina con la palabra " DESCRIPCION.". Si el caso2, siempre tiene una diagonal y el número está antes de un espacio. Prueba con la...