Jump to content

pizanauta

Members
  • Content Count

    5
  • Joined

  • Last visited

About pizanauta

  • Rank
    Newbie
  • Birthday 01/01/1949

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Muchas gracias @Antoni Funciona a la perfección
  2. Hola de nuevo @Antoni Como ya comenté los datos provienen de un programa de gestión de almacén. Añado varias columnas: entre ellas la "B" que es "Cod. Obra" y quiero que al copiar el contenido de la celda "B3" en ella se autonumere la columna A desde la fila 8 hasta el final (con un valor fijo que no cambie a la hora de ordenar o hacer cualquier otra cosa). Al subir antes el código veo que la primera selección de Rango ("B8") estaba mal porque debería haber sido "J8". Gracias de nuevo 000 PLANTILLA LISTADO COSTO OBRAS 000.xlsm
  3. @Haplox y @Antoni Primeramente agradecer a ambos vuestra amable atención y ayuda. He adaptado la función MAX que me aconsejáis para lograrlo en la siguiente macro y me funciona (probablemente sse pueda hacer mejor o más fácil pero es que soy muy novato!): Sub PRUEBA_NUMERICO() Range("b8").Select 'nos posicionamos en la primera linea de datos en la que queremos que busque Do Until IsEmpty(ActiveCell) 'lo hacemos hasta que encuentre la primera celda vacia ActiveCell.Offset(0, -9).Select 'seleccionamos la columna "A" ActiveCell.Value = WorksheetFunction.Max(Columns("A")) + 1 ActiveCell.Offset(1, 9).Select Loop End Sub Lo único que me quedaría por hacer y que no soy capaz es saber como desencadeno el evento. Que no tenga que ejecutar la macro sino que lo haga cuando pego los datos en la columna "B". Gracias de nuevo
  4. Hola Antoni, No soy capaz de encontrar el post del que pones vínculo y creo que me podría ayudar con lo que quiero hacer. No obstante te explico por si puedes ayudarme Tengo una tabla a modo de plantilla donde "pego" los datos generados por un programa externo y exportados a hoja de excel. Añado varias columnas y entre ellas, la primera ("A") quiero que sea una columna "Id" y muestre un número fijo por lo que no me vale hacerlo mediante fórmula. Tengo el siguiente código que funciona siempre y cuando introduzca valores en la Columna "B" pero como este no es el caso, ya que lo que hago es "copiar valores" no me funciona Option Explicit Public Function SigNúmero() As Integer Dim Valor As Integer, _ Renglon As Integer Valor = 0 Renglon = 7 While Range("A" & Renglon).Value <> "" If Range("A" & Renglon).Value > Valor Then Valor = Range("A" & Renglon).Value Renglon = Renglon + 1 Wend SigNúmero = Valor + 1 End Function Desde ya agradezco tú atención y te envío cordiales saludos
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png