Agregar texto en la misma celda que se modifica

[wontolla]

Hola a todos:

¿Podrían ayudarme con esto? Ya he tratado de distintos modos sin éxito.

En la celda G7, debo atregar un folio de documento, pero a ese folio (dependiendo del mes) se le debe agregar el numero del mes y el año.

Entonces, el folio es "2457" y el mes es "02" y el año "23", por lo tanto en la celda G7 yo debo escribir "AC0223-2457"

La idea es que solo se capture el folio "2457" y que automáticamente se agrege "AC0223-"

Ya intente con una macro que agrege el texto cuando se modifique la celda, pero cuando la macro agrega el texto se está volviendo a modificar la celda y se cicla el proceso.

¿alguna idea?

Les agradezco de antemano su apoyo.

Saludos coridales

[JasallBcn]

Buenas, Una solución

Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$G$7" And Target <> "" And InStr(1, Target, "AC") = 0 Then
  Target = "AC" & Format(Month(Now()), "00") & Mid(Year(Now()), 3, 2) & "-" & Target
 End If
End Sub

saludos

 

[Antoni]

No he visto tu macro, pero el ciclado lo puedes evitar poniendo Application.EnableEvents = False al principio de la macro y Application.EnableEvents = True al final.