Sviluppare funzionalita su Microsoft Office con VBA Come fissare un pulsante su un figlio copiato.

LoginRegistrati
Stai vedendo 3 articoli - dal 1 a 3 (di 3 totali)
  • Autore
    Articoli
  • #27665 Risposta

    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?

    #27666 Risposta
    alfrimpa
    alfrimpa
    Partecipante
      16 pts

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

      #27667 Risposta
      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
          
    LoginRegistrati
    Stai vedendo 3 articoli - dal 1 a 3 (di 3 totali)
    Rispondi a: Come fissare un pulsante su un figlio copiato.
    Gli allegati sono permessi solo ad utenti REGISTRATI
    Le tue informazioni:



    vecchio frac - 2750 risposte

    albatros54
    albatros54 - 1009 risposte

    patel
    patel - 956 risposte

    Marius44
    Marius44 - 824 risposte

    Luca73
    Luca73 - 696 risposte