Moderatori: Anthony47, Flash30005
Range("A2:B8332").Select
Private Sub Workbook_Open()
Call Macro1
End Sub
Private Sub Worksheet_Activate()
Call Macro1
End Sub
Sub Macro1()
'
Columns("D:E").ClearContents
If Range("A1") = "" Then VOff = 1
Columns("A:B").Select
Selection.AutoFilter Field:=1, Criteria1:="<>"
Range("A1:B8332").Offset(VOff, 0).Copy Destination:=Range("D1")
Range("A1").Select
Selection.AutoFilter Field:=1
End Sub
Sub Macro1()
'
Application.EnableEvents = False
Columns("D:E").ClearContents
If Range("A1") = "" Then VOff = 1
Columns("A:B").Select
Selection.AutoFilter Field:=1, Criteria1:="<>"
Range("A1:B8332").Offset(VOff, 0).Copy Destination:=Range("D1")
Range("A1").Select
Selection.AutoFilter Field:=1
Application.EnableEvents = True
End Sub
Torna a Applicazioni Office Windows
Funzione CERCA ma con colonne dinamiche Autore: Paolo67met |
Forum: Applicazioni Office Windows Risposte: 2 |
formula che conta erroneamente celle "vuote" Autore: raimea |
Forum: Applicazioni Office Windows Risposte: 4 |
Totale valori di più colonne del foglio con funzione Sum Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 6 |
Visitano il forum: Nessuno e 49 ospiti