[Risolto]Copia valori non vuoti colonne tra fogli

[Nickfor2010]

Buongiorno, oggi mi si presenta questo problema, vorrei copiare con una macro i valori, non vuoti, di una colonna con x valori in un altro foglio.
Qualche suggerimento? io ho provato questo, ma continua a copiarmi le celle vuote

Codice: Seleziona tutto

Sub Copia_celle_non_vuote

dim Doc as object   
dim OriShett as object 			rem foglio origine
dim DesSheet as object 			rem foglio destinazione
dim Cell as object
dim ConCell as object 			rem cella di controllo


Doc = ThisComponent
DesSheet = Doc.Sheets.getByName("Destinazione")
OriSheet = Doc.Sheets.getByName("Origine")
Cell = OriSheet.getCellRangeByName("E2")
V = Cell.Value 					rem massimo celle utilizzate
ii = 1
      
      for i = 1 to V
      
      ConCell = OriSheet.getCellByPosition(0,i)
      Con = ConCell.Value   
               
      if Con > 0 then   
         
      Cell = DesSheet.getCellByPosition(0,ii)
      Cell.formula = ("=Origine.A"&(ii+1))
      
      ii = ii + 1
      
      end if
      
      next i
      

End Sub

[patel]

allega un file di esempio, comunque per trovare gli errori lancia la macro con F8 (step by step), posizionando il mouse sulle variabili puoi vederne il valore.
Non ho capito perché vuoi utilizzare le formule invece di copiare i valri

[Nickfor2010]

Il problema che la macro funziona correttamnte, ma sulla colonna da copiare a volte ci sono delle caselle vuote o con valore 0 che non vorrei copiare
La macro copia correttamente la colonna, ma copia anche le celle vuote e quelle con valore 0.

[patel]

ma tu leggi quello che scrivo ?

[lucky63]

Sostituisci:

Codice: Seleziona tutto

Cell.formula = ("=Origine.A"&(ii+1))

con:

Codice: Seleziona tutto

Cell.Value  = Con

[Nickfor2010]

ma tu leggi quello che scrivo ?

Mi scusi per la mia ignoranza, sono alle prime armi e sicuramente posso fraintendere, cerco consigli, non cerco arroganti sacenti.

Buona giornata

[Nickfor2010]

Sostituisci:

Codice: Seleziona tutto

Cell.formula = ("=Origine.A"&(ii+1))

con:

Codice: Seleziona tutto

Cell.Value  = Con

Grazie del consiglio, funziona