Contador para generar folios consecutivos con letras y números
Estoy intentando programar mediante vba que se genere un folio con letras y números (soy principiante así que aún no comprendo bien como realizarlo).
Tengo esta programación que encontré en un blog:
ThisWorkbook.Worksheets("CLIENTES").Range("A" & Rows.Count).End(xlUp).Value = ("PW" & "000")
Lo que pretendo es que en la hoja CLIENTES al dar de alta un cliente y dar click se genere el primer cliente con el folio PW001 y así consecutivamente, lo que hasta el momento puede hacer es que se genera el primer folio PW000 pero no logro realizar que cuente una y otra vez.
¿Qué necesito agregar para que realice la cuenta del siguiente número y así consecutivamente?
1 respuesta
Esto hace la macro cada que introduces un cliente en la la fila de la celda B, la macro que esta abajo la copias y la pegas en el modulo vba de la hoja clientes, una vez que tecleas el cliente y das enter en automatico la amcro le asigna un numero
Private Sub Worksheet_Change(ByVal Target As Range)
R = Range("B1").CurrentRegion.Rows.Count
If Not Intersect(Target, Range("B:B")) Is Nothing Then
VALIDA = R = 1
If VALIDA Then
Target.Offset(0, -1) = "PW" & Format(0, "0000")
Else
NUMERO = R - 1
Target.Offset(0, -1) = "PW" & Format(NUMERO, "0000")
End If
End If
End Sub
