Come fissare un pulsante su un figlio copiato.

[tempusfugitPartecipante tempusfugit]

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?

[alfrimpaPartecipante alfrimpa Karma: 33 pts]

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

[tempusfugitPartecipante tempusfugit]

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