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
Avatar utente
Anthony47
Moderatore
 
Post: 19196
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.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


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

Connettere pc senza wifi
Autore: nippon
Forum: Software Windows
Risposte: 8

Chi c’è in linea

Visitano il forum: Gianca532011 e 87 ospiti