erotisi excel

[peppasko]

prospatho sto excel na kano to exis:exo 1 fillo pou sti stili c periexei diafores times apo 0 eos 100.thelo mia makroentoli???? pou na epilegei tis grames pou sto keli c den exo mideniki timi kai na tis metaferei se allo fillo.

thanks

[kounoupi]

Βάλε την παρακάτω μακροεντολή:

 

>Sub CopyDataNotZero()
   Range("A1").Select
   Selection.CurrentRegion.Select
   Selection.AutoFilter
   Selection.AutoFilter Field:=3, Criteria1:="<>0", Operator:=xlAnd
   Range("A1").Select
   Selection.SpecialCells(xlCellTypeVisible).Select
   Range("A1").Select
   Selection.CurrentRegion.Select
   Selection.SpecialCells(xlCellTypeVisible).Select
   Selection.Copy
   Sheets("Sheet2").Select
   Range("A1").Select
   ActiveSheet.Paste
   Range("A1").Select
   Sheets("Sheet1").Select
   Application.CutCopyMode = False
   Selection.AutoFilter
   Range("A1").Select
End Sub

 

Δουλεύει με μόνο περιορισμό ότι δεν πρέπει να έχεις μια στήλη τελείως άδεια σε όλες τις σειρές