Eymard Sanz

jerryeagle respondió: En el evento Worksheet_Change pon esto: Private Sub Worksheet_Change(ByVal Target As Range) Dim Consecutivo, Formato As String Application.ScreenUpdating = False Consecutivo = Range("C2").Value If Target.Address = "$C$2" And Not Target.Value = ""...

Elsa Matilde respondió: Esta es una consulta frecuente, podrás encontrar otras respuestas con el buscador. Aquí va mi ejemplo que es muy general pero con las explicaciones no tendrás problemas en ir completándolo. Entrá al Editor (con Alt+F11), insertá un módulo y allí la...