Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Taglia/Copia/Incolla Senza Indirizzi precisi

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Taglia/Copia/Incolla Senza Indirizzi precisi

Postdi A.Maurizio » 17/10/16 01:31

Ciao a Tutti come state Finite le Vacanze.
Scherzi a parte il mio problema e questo : Su di un Foglio di Excel con office 2007 , ho inserito tre Tasti active che ho chiamato (Taglia - Copia - Incolla)
lo Scopo di tutto ciò e quello di : Scrivere un Qualche cosa "Numeri - lettere - Inserire immagini " ecc....!
In Una qualsiasi Cella , non importa quale , E premendo uno di questi Tasti vorrei che richiamasse una Macro o una procedura che ne crei la sua Funzione; Come ad Esempio : Se premo il Tasto "Copia" Dovrebbe potermi Copiare e tenere in Memoria la Cella Selezionata,
E darmi la possibilità di Incollare il testo copiato in un altro cella anche se dovessi cambiare Foglio .
Io non vi nego che seguendo le indicazioni del registratore di Macro ho creato una cosa di questo genere :
[code]Sub Taglia()
On Error Resume Next
ActiveCell.Select
Application.CutCopyMode = False
Selection.Cut
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Selection.Cut
End Sub

Sub Copia()
On Error Resume Next
ActiveCell.Select
Selection.Copy
ActiveCell.Select
Application.CutCopyMode = False
Selection.Copy

End Sub

Sub Incolla()
On Error Resume Next
ActiveCell.Select
ActiveSheet.Paste
End Sub
[/code
il che devo dire che non è Male o Malvagio; Però fin tanto che lo Uso con il Solo Copia e incolla funziona a meraviglia.
Però se nel Frattempo impongo al programma di Cancellare una lettera o un Parola Copiata in Precedenza.
Essa non Tenendo nulla in memoria co detta (Tampone) perde lo stato attivo per qui non ricorda più nulla.
Per vi chiedo c'è qualche possibilità per rimediare a tutto ciò !
Grazie come sempre per tutto l'aiuto che sarete in grado di Darmi in merito , Saluti da A.Maurizio
A.Maurizio
Utente Senior
 
Post: 116
Iscritto il: 02/08/13 15:39

Sponsor
 

Re: Taglia/Copia/Incolla Senza Indirizzi precisi

Postdi Anthony47 » 17/10/16 02:20

Si le vacanze sono finite ...da un pezzo!

Proviamo:

1. individui in un foglio del tuo file un'area libera, supponiamo che sia in Foglio3 da colonna Z in avanti

2. La "Cut" potrebbe diventare
Codice: Seleziona tutto
Sub Taglia()
On Error Resume Next
ActiveCell.Copy Sheets("Foglio3").Range("AA1")
Sheets("Foglio3").Range("Z1")=1.1
Application.CutCopyMode = False
ActiveCell.ClearContents
End Sub


3. La "Incolla":
Codice: Seleziona tutto
Sub Incolla()
On Error Resume Next
Sheets("Foglio3").Range("AA1").Resize(Int(Sheets("Foglio3").Range("Z1")), (Sheets("Foglio3").Range("Z1") * 10) Mod 10).Copy
ActiveCell
Application.CutCopyMode = False
End Sub


4. La "Copia":
Codice: Seleziona tutto
Sub Copia()
On Error Resume Next
ActiveCell.Copy Sheets("Foglio3").Range("AA1")
Sheets("Foglio3").Range("Z1")=1.1
Application.CutCopyMode = False
End Sub

Nota: ho seguito le tue macro, che copiano solo l'unica cella "Attiva"; l'uso di Sheets("Foglio3").Range("Z1") consente di lavorare anche con la "Selezione corrente"; bisognera' pero' modificare il codice della Copia e della Incolla, cosa che faremo se ti interessa realmente lavorare con la Selezione invece che con la cella attiva.

Ciao
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Taglia/Copia/Incolla Senza Indirizzi precisi

Postdi Anthony47 » 17/10/16 02:58

Per l'altro quesito sono costretto a risponderi sull'altro fronte.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13899
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Taglia/Copia/Incolla Senza Indirizzi precisi":


Chi c’è in linea

Visitano il forum: Nessuno e 6 ospiti