Estrapolazione

[statam]

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

[Anthony47]

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

[statam]

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...

[alfrimpa]

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