[Risolto] Incolla i valori con Limit di Colonne

[chimico]

Saluti ,

         Ho una macro di sr. patel che copia le celle visibili dal foglio di lavoro 1 e incolla i valori nel foglio di lavoro 2, dalla colonna "A" alla colonna "L" .

         ma il problema è che ci sono altri valori inseriti nella colonna "M", quindi al momento di Paste nel foglio di lavoro 2, stai guardando la colonna "M" e incollando i valori della colonna "M" .

         al momento di Incolla, non dovrebbe guardare i valori della colonna "M", dovrebbe semplicemente incollare la colonna "L", come scritto nella macro .

altro bisogno:

Anche ho bisogno di modificare la macro per copiare i valori Se i titoli della Linea 1 sono per esempio nella Linea 4, cioè Se la tabella era un po 'più bassa, ad esempio iniziare dalla Linea 4 del foglio di lavoro 1

         osservazione:

         Ho allegato il file e inserito un foglio di lavoro 3 con il risultato atteso che ho bisogno di raggiungere .
      
abbracci amici .

[patel]

prova a calcolare l'ultima riga del foglio2 in questo modo

Codice: Seleziona tutto

   Call ultima_cella 
   LR2 = oDoc.CurrentSelection.CellAddress.Row 

quindi

Codice: Seleziona tutto

sub copia_visibile
   bValues = True 
  
   oDoc = ThisComponent
   sheet1= oDoc.Sheets.getByName("Planilha1")
   sheet2= oDoc.Sheets.getByName("Planilha2")
   oCursor = Sheet1.createcursor
   oCursor.gotoendofusedarea(false)
   nEndrow = oCursor.rangeaddress.Endrow
   Call ultima_cella 
   LR2 = oDoc.CurrentSelection.CellAddress.Row 

[chimico]

sr. patel ,
Grazie mille, è stato molto bello .

ma hanno l'altra necessità di risolvere :

Anche ho bisogno di modificare la macro per copiare i valori Se i titoli della Linea 1 sono per esempio nella Linea 4, cioè Se la tabella era un po 'più bassa, ad esempio iniziare dalla Linea 4

il file con il foglio di calcolo 1B mostra la nuova necessità .

[patel]

basta modificare la riga iniziale del range da copiare, quindi la riga
rng=sheet1.getcellrangebyPosition(0,1,4,nEndrow) 'copiare
diventa
rng=sheet1.getcellrangebyPosition(0,4,4,nEndrow) 'copiare

[chimico]

[RISOLTO]

Ha funzionato perfettamente, grazie mille per il tuo aiuto , sr. patel .

amico abbraccio .