Copia e incolla

Hai un problema con Excel?

Nuova discussione

Copia e incolla
di Jimmy (utente non iscritto) data: 09/04/2016 12:09:15
Salve ho creato una macro che mi copia dei valori da alcune celle e li incolla in altre, solo che devo apportare una modifica e non ci riesco se il valore della cella D21 del foglio 1 è uguale al valore della cella R21 del foglio 1, dovrei far terminare la mascro senza copiare ed incollare nulla neanche il contenuto della cella AP1.
Allego il codice

Sub Auto_Close()
Sheets("Foglio 1").Range("D21").Select 
    Range("D21").Copy
    Range("R21").Select
   ActiveCell.FormulaR1C1 = Range("D21")

    
  Sheets("Foglio 1").Range("AP1").Select
  Range("AP1").Copy
    Range("R22:S22").Select
    ActiveCell.FormulaR1C1 = Range("AP1")
    
Sheets("Foglio 1").Range("D21").Select

If ThisWorkbook.Saved = False Then
        ThisWorkbook.Save
    End If
End Sub

di patel data: 09/04/2016 12:32:51
prova così

Sub Auto_Close()
if Sheets("Foglio 1").Range("D21") = Sheets("Foglio 2").Range("R21")  then exit sub

continua col tuo codice

di Jimmy (utente non iscritto) data: 09/04/2016 18:09:06
Grazie patel per aver risposto il codice funziona solo che adesso è sorto un problema la Sub Auto_Close quando uscivo dal foglio di lavoro salva tutte le modifiche e chiudeva il foglio, ora sè io apporto qualche modifica non la salva più e mi chiede di salvare, la stessa cosa se clikko sul foglio in una cella senza apportare modifiche mi chiede si salvare, è possibile far salvare le modifiche e chiudere senza avvisarmi. allego il codice completo.
In sintesi quando chiudo il foglio in ogni caso deve salvare tutte le modifiche senza avvisare.

Sub Auto_Close() 
If Sheets("Foglio 1").Range("D21") = Sheets("Foglio 1").Range("R21") Then Exit Sub

Sheets("Foglio Fattura").Range("K21").Select
    ActiveCell.FormulaR1C1 = "Marco Rossi"
    Range("J30").Select
    ActiveCell.FormulaR1C1 = "Marco Rossi"
    
    
    Sheets("Foglio 1").Range("D21").Select
    Range("D21").Copy
    Range("R21").Select
   ActiveCell.FormulaR1C1 = Range("D21")

    
  Sheets("Foglio 1").Range("AP1").Select
  Range("AP1").Copy
    Range("R22:S22").Select
    ActiveCell.FormulaR1C1 = Range("AP1")
    
Sheets("Foglio 1").Range("D21").Select
     
    If ThisWorkbook.Saved = False Then
        ThisWorkbook.Save
        
    End If
End Sub

di patel data: 09/04/2016 18:52:43
prova così, ho eliminato molte cose inutili

Sub Auto_Close() 
If Sheets("Foglio 1").Range("D21") = Sheets("Foglio 1").Range("R21") Then Exit Sub

    with Sheets("Foglio Fattura")
      .Range("K21") = "Marco Rossi"
      .Range("J30") = "Marco Rossi"
    end with
    
    with Sheets("Foglio 1")
      .Range("R21") = .Range("D21")
      .Range("R22:S22") = Range("AP1")
   end with     
   ThisWorkbook.Save
End Sub

di Jimmy (utente non iscritto) data: 09/04/2016 19:30:26
ciao patel il codice funziona il problema è che quando chiudo il file mi dice se voglio salvare le modifiche apportare, anche se io non ho apportato modifiche al file, esempio se faccio clik su una cella mi chiede di salvare le modifiche, invece io vorrei che quando chiudo il foglio salva senza avvisarmi, nel codice prima delle modifiche lo faceva.
di patel data: 10/04/2016 08:22:04
ThisWorkbook.Save True
di Jimmy (utente non iscritto) data: 10/04/2016 11:42:56
Ciao patel ci siamo quasi solo che ho notato che se clikko la X rossa il programma si chiude, mentre se clikko sulla X chiudi finestra il programma da un errore, Errore di compilazione:
Numero errato di argomenti o assegnazione di proprietà non valida.
E' possibile risolvere il problema anche se clikko la X chiudi finestra far chiudere senza dare errore e salvare tutto.
di patel data: 10/04/2016 14:04:04
devi allegare il file altrimenti non ho la possibilità di testare

Vuoi Approfondire?