No creo que mi título sea lo suficientemente claro, así que haré todo lo posible para explicar lo que debo hacer.

Tengo un cuadro de entrada donde el usuario escribirá el mes actual en el formato de los tres primeros caracteres + Venta (es decir, JunSale). Quiero devolver la entrada de este usuario a una celda específica. Esta celda específica ya tiene cosas (es decir, MaySale). Entonces, una vez que un usuario ingresa la entrada, la celda ahora leerá JunSale, no MaySale.

Soy muy nuevo en vba, así que disculpe que mi código sea realmente desordenado y tenga funciones que la gente recomienda evitar.

A continuación se muestra mi código y me da un mensaje de error que dice: Error de compilación: método o miembro de datos no encontrado con resaltado en la última línea del código.

¿Cómo debo corregir este código? Llevo 3 horas peleando con el y no he progresado :'(

¡¡¡¡Cualquier ayuda se agradece, gracias!!!!

Editar:

Este es el código que tengo ahora y el mensaje de error que recibo es un error definido por la aplicación o definido por el objeto.

 Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("Sales Calc") Dim ActSales As Range With Worksheets("Sales Calc").Cells Set ActSales = .Find("Forecast Sales -->>", After:=Range("DH173"), LookIn:=xlValues) If Not ActSales Is Nothing Then ActSales.Select End If End With ActiveCell.Offset(rowOffset:=0, ColumnOffset:=-1).Select Range(ActiveCell) = Application.InputBox("Enter the Latest Month with Actual Sales Data")