Hola de nuevo.
Estoy haciendo pruebas con la información que voy encontrando. Creo que podría ser algo similar a lo siguiente:
Código:
REM ***** BASIC *****
Dim signo AS String
Dim contador AS Integer
Sub Main
signo = Range("A:A").Select
contador = 1
Select Case signo
Case "DIVERTIDOS"
IF "VASOS Y CHUPITOS" THEN Range("C & contador").Value = 100
contador = contador + 1
IF "PAJITAS" THEN Range("C & contador").Value = 101
contador = contador + 1
IF "DELANTALES" THEN Range("C & contador").Value = 102
contador = contador + 1
End Select
End Sub
Sin embargo me da un error en la línea:
signo = Range("A:A").Select "Subprocedimiento o procedimiento de función no definido"
La idea es que me vaya añadiendo el código en la columna C y en la misma fila que la categoría/subcategoría chequeada, de ahí el contador.
Igual no es la mejor forma de hacerlo o está mal, si alguien pudiera echarme una mano le estaría muy agradecido.
Saludos