alwaysEVO
00lunedì 30 maggio 2016 10:06
Salve,
non riesco a venire a capo da un banale problema con excel.
Ho creato un magazzino con excel per capire cosa ho in negozio, e cosa ho venduto.
Alcune cose invece non sono state vendute quindi nella cella di vendita non risulta nulla.
Vorrei trasferire nel foglio nr.2 solo la merce che non è stata venduta (quindi tutta la colonna inerente a quell'articolo), partendo dal presupposto che nella cella vendita non risulti nessun valore. Come posso fare?
Grazie Mille.
alfrimpa
00lunedì 30 maggio 2016 11:42
Ciao alwaysEVO
Allega un file di esempio con situazione iniziale e risultato voluto sul foglio2.
alwaysEVO
00lunedì 30 maggio 2016 11:52
allego come da tua richiesta. grazie.
patel45
00lunedì 30 maggio 2016 12:13
Sub FiltraCopia()
ColLetter = "F"
Set WS = Worksheets(1)
WS.Cells.AutoFilter field:=WS.Cells(1, ColLetter).Column, Criteria1:=""
WS.AutoFilter.Range.SpecialCells(xlVisible).Copy Worksheets(2).Range("A1")
WS.AutoFilterMode = False
End Sub
alfrimpa
00lunedì 30 maggio 2016 12:29
Beh visto che l'avevo scritta ti do anche la mia
Sub EstraiInvenduti()
Dim ur As Long
Dim lr As Long
Dim rng As Range
Dim cel As Range
ur = Worksheets("Foglio1").Cells(Rows.Count, 1).End(xlUp).Row
Set rng = Worksheets("Foglio1").Range("f2:f" & ur)
For Each cel In rng
lr = Worksheets("Foglio2").Cells(Rows.Count, 1).End(xlUp).Row
If cel.Value = "" Then
Worksheets("Foglio1").Range("a" & cel.Row & ":" & "e" & cel.Row).Copy Destination:=Worksheets("Foglio2").Range("a" & lr + 1)
End If
Next cel
End Sub Inserita nel file che ti allego.
alwaysEVO
00lunedì 30 maggio 2016 13:22
molto gentili, grazie mille !!!