Condividi:        

modifica macro copia tra fogli

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

modifica macro copia tra fogli

Postdi miko » 25/02/10 20:28

ciao,
leggendo vari topic ho trovato una macro realizzata da flash in un topic di qualche tempo fa, che ho leggermente modificato per adattarla alle mie esigenge:
Codice: Seleziona tutto
Sub CopiaRiga()
' copia le righe del foglio 1 quando nelle celle della colonna B si trova il valore della cella B3 e le scrive (incolla), una dopo l'altra, nel foglio2
Worksheets("Foglio1").Select
righe = Cells(Rows.Count, 2).End(xlUp).Row
For I = 1 To righe
Cells(I, 2).Select
If Selection.Value = Range("b3").Value Then _
Selection.Range("a1:k1").Copy _
Destination:=Sheets("Foglio2").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)
Next I
Worksheets("Foglio2").Select
End Sub

i miei dati sono disposti nel foglio 1 a partire dalla cella B3 fino alla colonna K.
come devo modificare il codice per incollarli a partire dalla cella B3 del foglio 2?
e come modificare per incollarli a partire dalla prima cella vuota della colonna B del foglio 2?
ho provato a modificare la riga: Destination:=...
ma i risultati sono disastrosi.
ciao grazie
windows 10 - office 2013
miko
Utente Senior
 
Post: 520
Iscritto il: 29/12/09 10:44

Sponsor
 

Re: modifica macro copia tra fogli

Postdi miko » 25/02/10 20:42

ciao
vorrei aggiungere:
perchè se cambio in questa linea:
Codice: Seleziona tutto
..Selection.Range("a1:k1").Copy...

("a1:k1") con ("b1:k1") non incolla i valori della colonna B ma vengono elininati?
saluti grazie
windows 10 - office 2013
miko
Utente Senior
 
Post: 520
Iscritto il: 29/12/09 10:44

Re: modifica macro copia tra fogli

Postdi Flash30005 » 25/02/10 23:37

Prova questa macro
Codice: Seleziona tutto
Sub CopiaRiga()
Worksheets("Foglio1").Select
righe = Cells(Rows.Count, 2).End(xlUp).Row
For I = 3 To righe
ValCella = Cells(I, 2).Value
If ValCella = Range("B3").Value Then _
Worksheets("Foglio1").Range("B" & I & ":k" & I).Copy Destination:=Sheets("Foglio2").Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)
Next I
Worksheets("Foglio2").Select
End Sub

In B2 del foglio2 metti una testata qualsiasi (es.: scrivi "Inizio")
e avvia la macro

Ciao
Flash
Win10 + Office 2010 Ita
"Fotografica" al servizio dell'immagine
Avatar utente
Flash30005
Moderatore
 
Post: 8517
Iscritto il: 27/09/07 11:44
Località: Roma +o-

Re: modifica macro copia tra fogli

Postdi miko » 27/02/10 13:22

ciao flash,
la macro funziona perfettamente, ovviamente.
grazie saluti
windows 10 - office 2013
miko
Utente Senior
 
Post: 520
Iscritto il: 29/12/09 10:44


Torna a Applicazioni Office Windows


Topic correlati a "modifica macro copia tra fogli":


Chi c’è in linea

Visitano il forum: Nessuno e 49 ospiti