Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Copia - incolla "particolare"

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

Copia - incolla "particolare"

Postdi Marco75CT » 28/05/16 17:56

Ciao a tutti,
scusate per il titolo del post ma non sapevo come sintetizzare :oops:
Dovrei copiare con una macro sul foglio2 alcuni dati presenti sul foglio1 ma non sempre nella stessa posizione.
I dati si trovano sempre nelle colonne A e I, ma in righe diverse.
L'unica cosa che potrebbe indicizzare la ricerca è il fatto che tra, i blocchi sono sempre divisi da righe vuote.
Per chiarire la mia pessima descrizione, allego un file di esempio.
Grazie

http://www.filedropper.com/esempio
Marco75CT
Utente Senior
 
Post: 143
Iscritto il: 05/08/11 11:54

Sponsor
 

Re: Copia - incolla "particolare"

Postdi alfrimpa » 28/05/16 18:53

Ciao Marco

Prova con questa macro

Codice: Seleziona tutto
Sub COPIA()
Dim lr As Long
Dim ur As Long
Dim rng As Range
Dim cel As Range
Application.ScreenUpdating = False
lr = Worksheets("Foglio1").Cells(Rows.Count, 9).End(xlUp).Row
Set rng = Worksheets("Foglio1").Range("a4:a" & lr)
For Each cel In rng
ur = Worksheets("Foglio2").Cells(Rows.Count, 1).End(xlUp).Row
    If Len(cel) = 4 Then
        cel.Copy Destination:=Worksheets("Foglio2").Range("a" & ur + 1)
        cel.Offset(cel.CurrentRegion.Rows.Count - 1, 8).Copy
        Worksheets("foglio2").Select
        Range("b" & ur + 1).Select
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    End If
Next cel
Worksheets("foglio2").Range("a2").CurrentRegion.Select
 With Selection.Interior
        .Pattern = xlNone
        .TintAndShade = 0
        .PatternTintAndShade = 0
 End With
 Range("a1").Select
 Application.ScreenUpdating = True
End Sub


Fai sapere e se hai bisogno di spiegazioni sulla macro chiedi pure.
Alfredo

Win7 + Office 2007
Avatar utente
alfrimpa
Utente Senior
 
Post: 841
Iscritto il: 30/12/13 17:01
Località: Napoli

Re: Copia - incolla "particolare"

Postdi Marco75CT » 28/05/16 21:28

Grazie 1000!
Sul file d'esempio funziona alla grande.
Lo devo però integrare con il resto del progetto.
Se dovessi avere qualche altro intoppo ti farò sapere.
Ciao e ancora grazie.
Marco75CT
Utente Senior
 
Post: 143
Iscritto il: 05/08/11 11:54


Torna a Applicazioni Office Windows


Topic correlati a "Copia - incolla "particolare"":


Chi c’è in linea

Visitano il forum: Nessuno e 7 ospiti