Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Estrapolazione

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Estrapolazione

Postdi statam » 29/05/16 12:19

E' possibile con excel, su un nuovo file (FILE 1), estrapolare dati da un altro file (FILE 2) riportando solo i dati delle "celle piene" di determinate colonne??

ESEMPIO: nel FILE 1 ho la colonna A e la colonna B in cui ci sono righe piene e righe vuote, io vorrei riportare nel FILE 2 solo le righe piene di quelle colonne
statam
Utente Junior
 
Post: 47
Iscritto il: 30/12/15 19:30

Sponsor
 

Re: Estrapolazione

Postdi Anthony47 » 30/05/16 00:08

La descrizione e' insufficiente:
a) vuoi riportare separatamente solo le celle piene delle N colonne, quindi con eventuale disallineamento tra il contenuto tra le colonne
oppure
b) vuoi riportare solo le righe che contengono tutte le celle delle N colonne piene
oppure
c) vuoi riportare solo le righe che contengono almeno una cella delle N colonne piena

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13885
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Estrapolazione

Postdi statam » 30/05/16 12:04

Hai ragione non mi sono spiegato adeguatamente.
Ho fatto due file di esempio per capire meglio:

FILE 1: http://www.filedropper.com/file1_1
FILE 2: http://www.filedropper.com/file2

Praticamente io di base ho il FILE 1 con alcuni dati all'interno di una tabella (come vedi ci dono alcune righe vuote).

Nel FILE 2 che creerò vorrei estrapolare dal FILE 1 solo la colonna B (Nome) e la colonna D (scarto) che contengono entrambe dati...il risultato dovrebbe uscire proprio come il FILE 2 in allegato...
statam
Utente Junior
 
Post: 47
Iscritto il: 30/12/15 19:30

Re: Estrapolazione

Postdi alfrimpa » 30/05/16 14:01

Ciao statam

Prova con questa macro

Codice: Seleziona tutto
Sub Trasferiscidati()
Dim WB1 As Workbook
Dim WB2 As Workbook
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim rng As Range
Dim cel As Range
Dim ur As Long
Dim lr As Long
Set WB1 = Workbooks("file1.xlsm")
Set WB2 = Workbooks("file2.xlsm")
Set sh1 = WB1.Worksheets("Foglio1")
Set sh2 = WB2.Worksheets("Foglio1")
ur = sh1.Cells(Rows.Count, 2).End(xlUp).Row
Set rng = sh1.Range("d5:d" & ur)
For Each cel In rng
lr = sh2.Cells(Rows.Count, 2).End(xlUp).Row
    If cel.Value <> "" Then
        sh2.Range("b" & lr + 1) = cel.Offset(0, -2).Value
        sh2.Range("c" & lr + 1) = cel.Value
    End If
Next cel
End Sub


Attenzione: file1 e file2 devono essere entrambi aperti.

Prova e fai sapere
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 840
Iscritto il: 30/12/13 17:01
Località: Napoli


Torna a Applicazioni Office Windows


Topic correlati a "Estrapolazione":


Chi c’è in linea

Visitano il forum: Nessuno e 15 ospiti