crear contador automatico en excel
Private Sub Workbook_Open() respuesta = MsgBox("¿Desea autoincrementar?", vbYesNo) If respuesta = vbYes Then Range("B9").Value = Range("B9").Value + 1 End If ThisWorkbook.Save End Sub
Source: exceltotal.com