Ver Mensaje Individual
  #1 (permalink)  
Antiguo 24/06/2010, 05:57
Avatar de KonnaN
KonnaN
 
Fecha de Ingreso: diciembre-2009
Ubicación: Madriles
Mensajes: 214
Antigüedad: 14 años, 4 meses
Puntos: 6
Macro VBA Excel

Hola,
Estoy trabajando con un libro de excel para realizar un inventario.
He hecho una macro programada en Vba para insertar los productos.
Lo que quiero es que al insertar productos, en la columna de códigos se ponga un código automáticamente, de aquí saco dos opciones:
1) Hacer un rango de códigos y que se inserten automáticamente al escribir el nombre del producto. (El código me da igual como sea. Me vale 1, 2, 3.. o me vale 0001, 0002, etc. No quiero un código demasiado complicado)
2) La opción que yo estaba intentando. Usando un for.
Código:
 
Private Sub btn_insertar_Click()
   Dim marca As String
   Dim maxrow as double

    marca = txt_insertar_marca.Value
    maxrow = Cells.SpecialCells(xlLastCell).Row + 1

  For i = 1 To maxrow
   Cells(maxrow, 2) = Cells(maxrow, 2) + 1
  Next i

   Cells(maxrow,3)=marca
End Sub
Con ese código, la insercción de la marca se hace bien, normal, como siempre.
Lo único que con ese for me inserta como código el número de fila... Yo lo que quiero es empezar un código desde 1 por ejemplo usando como referencia la última celda escrita con marca.

EDIT: También se me acaba de ocurrir hacerlo de forma independiente al código VBA. Haciendo un formato condicional con una fórmula. Ya me contaréis!!

Espero haberme expresado medianamente bien, para que me entendais.
Espero vuestras respuestas. Saludos.

Última edición por KonnaN; 24/06/2010 a las 06:41