none
Tengo duda sobre como crear un folio

    Question

  • tengo mi archivo de excel es una orden de compra y en una celda debo de poner el folio consecutivo, quiero saber si alguien sabe como hacerlo automatico que cada que lo habra me ponga el folio nuevo siempre y cuando alla guardado mi archivo anterior para asegurarme de que no se pierda ningun folio  para no tenerlo que escribir de manera manual ya que es muy incomodo y aveces se me olvida cambiarlo,
    Sunday, August 30, 2009 11:13 PM

Answers

  • Inserta esta macro en un nuevo modulo    y asigna un boton  lo que hace es incrementar en 1 y guardar el libro con el nombres que le des en una celda determinada   cada vez que presionas

    Sub Botón1_Haga_clic_en()
    'controla cualquier posible error, ejecutando en ese caso la línea siguiente
    On Error Resume Next
    'incrementa en 1 la celda B2
    ActiveSheet.Range("B2").Value = ActiveSheet.Range("B2").Value + 1
    Dim nombre
    nombre = Sheets("Hoja1").Range("a1") 'aqui  (hoja1 celda a1) debes colocar el nombre del libro  ejemplo ="orden de compra"&"_"&B2
    ActiveWorkbook.SaveAs Filename:=nombre  
    Sheets("hoja1").Select
    ActiveWorkbook.Save
    'guarda el libro con el nuevo número
    End Sub


    Espero te sirva
    Wednesday, September 02, 2009 9:46 PM