[Risolto] Aiuto per una macro copia righe tra 2 fogli

[DanLau]

Ciao a tutti, vorrei chiedere un'aiuto per una macro, premetto che non sono in grado di svilupparla.
Avrei bisogno di copiare la righe delle colonne A e B dal foglio2 ed accodarle alla fine dei dati presenti nel foglio1, in modo automatizzato con una macro, ecco i dettagli:
Nel foglio2 chiamato "product.supplierinfo" ho la colonna A (Codice prodotto fornitore), colonna B (ID) e colonna C (Da copiare).
Le righe contrassegnate dalla X nella colonna C sono quelle interessate nella copia. Le colonne A e B, sono quelle che contengono i valori da copiare.
Ho quindi bisogno di copiare colonna A e B foglio product.supplierinfo, e incollarli nel foglio1 "LISTINO" in coda alla fine dei dati già presenti.
Le posizioni sono:
da product.supplierinfo colonna A, a LISTINO colonna B
da product.supplierinfo colonna B, a LISTINO colonna A
Allego file esempio.
la quantità di record presenti nei fogli sono sempre variabili, quindi anche la lunghezza delle righe con dati varia a seconda del listino pubblicato.
Gentilmente qualcuno potrebbe scrivermi il codice da poter inserire nella macro.
Grazie mille a tutti
Daniele

[patel]

allega un file con pochi dati con la situazione di partenza e quella desiderata

[DanLau]

allega un file con pochi dati con la situazione di partenza e quella desiderata

Nuovo file, con aggiunta foglio "situazione desiderata" per spiegare il risultato finale voluto

[patel]

prova questa

Codice: Seleziona tutto

sub copia

Doc = ThisComponent
Sheet1 = Doc.Sheets.GetByName("LISTINO")
Sheet = Doc.Sheets.GetByName("product.supplierinfo")
c = Sheet.createCursor
c.gotoEndOfUsedArea(false)
LastRow = c.RangeAddress.EndRow+1

c = Sheet1.createCursor
c.gotoEndOfUsedArea(false)
LastRow1 = c.RangeAddress.EndRow + 2

Range = Sheet.getCellRangeByName("A2:A" & LastRow).getDataArray
nrighe = UBound(Range()) - LBound(Range())
dRange  = Sheet1.getCellRangeByName("B" & Lastrow1 & ":B" & Lastrow1 + nrighe)
dRange.setDataArray(Range)

Range = Sheet.getCellRangeByName("B2:B" & LastRow).getDataArray
nrighe = UBound(Range()) - LBound(Range())
dRange  = Sheet1.getCellRangeByName("A" & Lastrow1 & ":A" & Lastrow1 + nrighe)
dRange.setDataArray(Range)

End Sub

[DanLau]

prova questa

Ciao Patel, ti ringrazio per l'aiuto.
Oggi ho provato la macro, va quasi bene.
Il funzionamento è quello voluto, però vengono copiati tutti i dati. Invece ho bisogno di copiare solamente i dati, delle righe che contengono "x" nella colonna C (foglio product.supplierinfo).
Grazie

[patel]

Non avevo letto bene

Codice: Seleziona tutto

sub copia

Doc = ThisComponent
Sheet1 = Doc.Sheets.GetByName("LISTINO")
Sheet = Doc.Sheets.GetByName("product.supplierinfo")
c = Sheet.createCursor
c.gotoEndOfUsedArea(false)
LastRow = c.RangeAddress.EndRow+1
c = Sheet1.createCursor
c.gotoEndOfUsedArea(false)
LastRow1 = c.RangeAddress.EndRow + 2
for r = 2 to LastRow
  If Sheet.getCellRangeByName("C" & r).String = "X" then
    Sheet1.getCellRangeByName("B" & Lastrow1).String = Sheet.getCellRangeByName("A" & r).String
    Sheet1.getCellRangeByName("A" & Lastrow1).String = Sheet.getCellRangeByName("B" & r).String
    Lastrow1=Lastrow1+1
  End if
next
End Sub

[DanLau]

Non avevo letto bene

Grazie mille per l'aiuto Patel, adesso va benissimo!
Buona giornata a tutti