Condividi:        

Macro Copia Incolla

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

Macro Copia Incolla

Postdi nicola_na78 » 12/04/13 10:37

Ciao Amici questa settimana vi stresso un po... perdonatemi. Vi chiedo ancora una volta il Vostro Prezioso Aiuto.
il problema è il seguente:

ho una colonna A dove io inserisco le quantità quindi rigo 1 qty =10 rigo 2 qty = 50 ecc... alcune volte le quantità qty si ripetono dal rigo x al rigo y quindi solitamente io inserisco la qty nell'ultimo rigo e poi a retroso trascino tutto (faccio cosi' x praticita').
ora io vi chiedo è possibile creare una macro che mi fa questo, io mi posiziono sull'ultimo rigo dove voglio inserire la qty e inserisco 10 e poi tramite un tasto scelta rapida parte la macro che a retroso mi completa l'inserimento della qty (ovviamente non andando a sovrascrivere le celle con il valore gia' inserito ma si ferma non appena trova un rigo nn vuoto).
spero di essere stato chiaro.

Vi ringrazio x la pazienza un saluto a tutti. ;)
nicola_na78
Utente Senior
 
Post: 186
Iscritto il: 11/06/10 15:26

Sponsor
 

Re: Macro Copia Incolla

Postdi Anthony47 » 12/04/13 12:05

Ad esempio
Codice: Seleziona tutto
Sub retrofill()
If ActiveCell.Value <> "" Then
    ActiveCell.Copy Destination:= _
        Range(Selection.Offset(-1, 0), Selection.End(xlUp)).Offset(1, 0)
End If
End Sub
Poi la richiami con un bottone inserito nella barra di accesso rapido o con una abbreviazione di tastiera o altro.
Per favore indica quale versione di Excel usi, vedi viewtopic.php?f=26&t=97449

Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Macro Copia Incolla

Postdi nicola_na78 » 12/04/13 16:21

Grazie è perfetta...
mi dimentico sempre di scrivere la versione di excel scusate...

office 2007
win xp
nicola_na78
Utente Senior
 
Post: 186
Iscritto il: 11/06/10 15:26

Re: Macro Copia Incolla

Postdi nicola_na78 » 16/04/13 16:57

ciao antony, se al tuo codice
Codice: Seleziona tutto
Sub retrofill()
If ActiveCell.Value <> "" Then
    ActiveCell.Copy Destination:= _
        Range(Selection.Offset(-1, 0), Selection.End(xlUp)).Offset(1, 0)
End If
End Sub

anziche' copiare la cella selezionata gli passo io un valore da copiare tipo "copia"

come va modificato il codice???
grazie ciao
nicola_na78
Utente Senior
 
Post: 186
Iscritto il: 11/06/10 15:26

Re: Macro Copia Incolla

Postdi Anthony47 » 16/04/13 21:25

Per come la capisco, rimane solo questa riga
Codice: Seleziona tutto
Range(Selection.Offset(-1, 0), Selection.End(xlUp)).Offset(1, 0).Value=ItTuoValore


Ciao
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea


Torna a Applicazioni Office Windows


Topic correlati a "Macro Copia Incolla":


Chi c’è in linea

Visitano il forum: Nessuno e 57 ospiti