Creazione di foglio di calcolo

3 Risposte

• O

  oregon

  Super Famoso

  Iscritto da

  nov, 2011

  Messaggi:

  21783

  Re: Creazione di foglio di calcolo

  30 mar 2021, 08:30

  Che vuoi dire?
• A

  antonio.1973

  Pochi posts

  Iscritto da

  mar, 2021

  Messaggi:

  4

  Re: Creazione di foglio di calcolo

  30 mar 2021, 19:24

  Su un foglio excel vengono immesse delle etichette, con a fianco i numeri (quante volte sono state scannerizzate)
  come debbo fare per creare un foglio che partano da A1 e mi da tutte le etichette ad una ad una, cosi come esemplificate nella foto
  grazie
• A

  antonio.1973

  Pochi posts

  Iscritto da

  mar, 2021

  Messaggi:

  4

  Re: Creazione di foglio di calcolo

  31 mar 2021, 15:58

  Ho trovato una macro , ma nel mio open office 4.1.7 non va , se cortesemntye riuscite a corrergermela
  ***************************************************************************************
  Sub DuplicaRighe
  dim arr()
  Sh = ThisComponent.Sheets(0)
  c = Sh.createCursor
  c.gotoEndOfUsedArea(false)
  LastRow = c.RangeAddress.EndRow
  
  For i = 1 To LastRow
  If Sh.getCellRangeByName("G" & i+1).String = "" And Sh.getCellRangeByName("F" & i+1).Value > 1 Then
  Sh.getCellRangeByName("G" & i+1).String = "X"
  Volte = Sh.getCellRangeByName("F" & i+1).Value - 1
  CellRange = Sh.getCellRangeByName("A" & i+1 & ":G" & i+1)
  arr = CellRange.getDataArray
  Sh.Rows.insertByIndex(i+1, Volte)
  For n = 1 To Volte
  Sh.getCellRangeByName("A" & i+n+1 & ":G" & i+n+1).setDataArray(arr)
  Next n
  i = i + Volte
  LastRow = LastRow + Volte
  End If
  Next i
  
  End Sub
  
  ***************************************************************************************************
  mi da errore run time,adattandolo chiaramente a
  foglio 1 colonna a(etichetta) e colonna b (quantita)
  foglio2 colonna a (etichette stampate per n volte specificate nella colonna b)
  grazie anticipatamente
  grazie in anticip