Come fissare un pulsante su un figlio copiato.

Stai vedendo 3 articoli - dal 1 a 3 (di 3 totali)

Autore

Articoli

14/09/2020 alle 17:33 #27665 Score: 0 | Risposta

Partecipante

Buonasera, ho creato una macro che mi duplica il foglio di lavoro attivo, come mai quando apro la il foglio trovo sempre il tasto in una posizione diversa rispetto a quella del foglio sorgente? come faccio per ancorare il tasto nella posizione di quella del foglio precedente?

14/09/2020 alle 18:07 #27666 Score: 0 | Risposta

alfrimpa

Partecipante

Karma: 33 pts

Se non mostri la macro o un file che la contengs come si fa a rispondere?

14/09/2020 alle 19:04 #27667 Score: 0 | Risposta

tempusfugit

Partecipante

Option Explicit

Sub Pulisci_Copia()

    Application.ScreenUpdating = False
    Dim Prova
    
    ActiveSheet.Unprotect ("pippo01")
    ActiveSheet.Protect ("pippo01")
    Prova = MsgBox("ATTENZIONE TUTTI I DATI SARANNO CANCELLATI!! Vuoi proseguire ?", vbYesNo)
        If Prova = vbYes Then
        
    Dim sh As Worksheet
    
    'Foglio2.Copy After:=Sheets(Sheets.Count)
    'Set ws = ActiveSheet
    'ws.Name = Sheets("Foglio2").Range("C3") + 1
    
    Set sh = ActiveSheet
    sh.Copy After:=Sheets(Sheets.Count)
    Set sh = ActiveSheet
    sh.Name = sh.Range("C3") + 1
    
    ActiveSheet.Unprotect ("pippo01")
    
    Range("D9:D40,E9:E14,E16,E18:E22,E24:E27,E29:E30,E32,E34,E36,E38,E40,F9:F40").Select
    Selection.ClearContents
      
    Range("H9:H14,H16,H18:H22,H24:H27,H29:H30,H32,H34,H36,H38,H40,I9:I40").Select
    Selection.ClearContents
    
    Range("K9:K14,K16,K18:K22,K24:K27,K29:K30,K32,K34,K36,K38,K40,L9:L40").Select
    Selection.ClearContents

    Range("N9:N14,N16,N18:N22,N24:N27,N29:N30,N32,N34,N36,N38,N40,O9:O40").Select
    Selection.ClearContents
    
    Range("Q9:Q14,Q16,Q18:Q22,Q24:Q27,Q29:Q30,Q32,Q34,Q36,Q38,Q40,R9:R40").Select
    Selection.ClearContents

    Range("T9:T14,T16,T18:T22,T24:T27,T29:T30,T32,T34,T36,T38,T40,U9:U40").Select
    Selection.ClearContents
        
    Range("W9:W14,W16,W18:W22,W24:W27,W29:W30,W32,W34,W36,W38,W40,X9:X40").Select
    Selection.ClearContents
  
    ActiveSheet.Protect ("pippo01")
    
        End If
       
    Application.ScreenUpdating = True

Autore

Articoli

Stai vedendo 3 articoli - dal 1 a 3 (di 3 totali)