Moderatori: Anthony47, Flash30005
Sub CompilaScheda()
UR = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
If Sheets("Foglio1").AutoFilterMode Then
UR = Range("A" & Rows.Count).End(xlUp).Row
For I = 2 To UR
If Rows(I).EntireRow.Hidden = False Then
'<<<< qui inserirai i campi da copiare dal foglio1 al foglio2
MsgBox Worksheets("Foglio1").Range("A" & I).Value '<<<< messaggio test che ti fa vedere il contenuto della colonna "A"
End If
Next I
End If
Application.ScreenUpdating = True
End Sub
beastmaster ha scritto:avrei bisogno di impostare sul secondo foglio i campi relativi alla voce selezionata dal filtro ma non so come impostare nel secondo i valori variabili.
beastmaster ha scritto:io avrei delle colonne da reimportare nella seconda maschera, come faccio ad associarle?
Sub CompilaScheda()
UR = Worksheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
If Sheets("Foglio1").AutoFilterMode Then
UR = Sheets("Foglio1").Range("A" & Rows.Count).End(xlUp).Row
For I = 2 To UR
If Rows(I).EntireRow.Hidden = False Then
Worksheets("Foglio1").Range("A" & I).Copy Destination:=Worksheets("Foglio2").Range("B2")
Worksheets("Foglio1").Range("B" & I).Copy Destination:=Worksheets("Foglio2").Range("B4")
Worksheets("Foglio1").Range("D" & I).Copy Destination:=Worksheets("Foglio2").Range("B6")
Worksheets("Foglio1").Range("F" & I).Copy Destination:=Worksheets("Foglio2").Range("B8")
Worksheets("Foglio1").Range("G" & I).Copy Destination:=Worksheets("Foglio2").Range("B10")
Worksheets("Foglio1").Range("H" & I).Copy Destination:=Worksheets("Foglio2").Range("B12")
Worksheets("Foglio1").Range("I" & I).Copy Destination:=Worksheets("Foglio2").Range("B14")
'exit sub
End If
'Worksheets("Foglio2").select
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next I
End If
Application.ScreenUpdating = True
End Sub
'Worksheets("Foglio2").select
'ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
=CERCA.VERT(B2; Foglio1!$A$2:$I$10; 2; 0)
Stampa:
Application.ScreenUpdating = True
RispStampa = MsgBox(Prompt:=" VUOI STAMPARE ?", Buttons:=vbYesNo)
If Scelta4 = 6 Then '<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< riga da modificare
Worksheets("MASCHERA STAMPA").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End If
If RispStampa = 6 Then
Torna a Applicazioni Office Windows
Mettere tutto MAIUSCOLO un range di celle Autore: raimea |
Forum: Applicazioni Office Windows Risposte: 7 |
Inserire add.in nella barra di avvio veloce in excel 2003 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
Trasformare celle con formattazioni in html Autore: servicedynergy |
Forum: Applicazioni Office Windows Risposte: 5 |
Visitano il forum: Nessuno e 11 ospiti