questo è il codice:
- Codice: Seleziona tutto
Sheets("foglio1").Select
Range("A4:R3003").Select
Selection.Copy
Sheets("foglio2").Select
Range("A4").Select
ActiveSheet.Paste
Moderatori: Anthony47, Flash30005
Sheets("foglio1").Select
Range("A4:R3003").Select
Selection.Copy
Sheets("foglio2").Select
Range("A4").Select
ActiveSheet.Paste
Private Sub Worksheet_Activate()
Application.EnableEvents = False
JJ = ActiveSheet.Name
Sheets(JJ).Visible = False
AskPsw = InputBox("Password per foglio " & JJ, "Check Password")
If AskPsw = "MIAPASSWORD" Then Sheets(JJ).Visible = True: Sheets(JJ).Select
Application.EnableEvents = True
End Sub
Sheets("folgio1").Range("A4:R3003").Copy
Sheets("foglio2").Select
Range("A4").Select
ActiveSheet.Paste
Sheets("folgio1").Range("A4:R3003").Copy Destination:= Sheets("foglio2"). Range("A4")
Torna a Applicazioni Office Windows
cerca il più grande numero di celle vuote in un intervallo Autore: papiriof |
Forum: Applicazioni Office Windows Risposte: 2 |
Excel: formula automatica per evidenziare prodotto scaduto Autore: gamma_ray |
Forum: Applicazioni Office Windows Risposte: 3 |
Salvare file excel in formato html escludendo le immagini Autore: systemcrack |
Forum: Applicazioni Office Windows Risposte: 10 |
formula excel non visualizza risultato Autore: tommasog |
Forum: Applicazioni Office Windows Risposte: 6 |
Visitano il forum: Nessuno e 45 ospiti