Aymara Liendo

A partir de esta formula Dim numConsec As Long Dim strConsec As String Range("A10").Select Selection.NumberFormat = "@" If IsEmpty(ActiveCell) Then Range("A10").Value = "00000" Else numConsec = Val(Range("A10").Value) + 1 strConsec = Right("00000" &...