Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Macro per copiare dati uguali presenti in fogli diversi

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 per copiare dati uguali presenti in fogli diversi

Postdi saramarti92 » 29/03/17 08:31

ciao a tutti!!
Ho bisogno del vostro aiuto: non riesco a creare una macro che mi copi in un foglio già esistente i dati che si trovano contemporaneamente in altri tre specifici fogli dello stesso file.
Vi scrivo il link che rimanda al file così che con questo sotto mano la mia spiegazione risulti essere più chiara:
https://www.dropbox.com/s/849313r1mdw54 ... .xltm?dl=0
Nel foglio "scelta ponteggio" dovrebbero copiarsi le righe dei fogli "calcoli 1", "calcoli 2" e "calcoli 3" che presentano contemporaneamente lo stesso valore nella colonna D.
in seguito alla macro "ponteggi" già presente nel file (Grazie a Marius 44 per il precedente aiuto) si vede che nei tre fogli sopra citati il dato PGB della colonna D si ripete in tutti e tre i fogli e quindi le corrispettive righe dovrebbero copiarsi nel foglio "scelta ponteggio".
Spero di essere stata chiara, grazie mille per il futuro aiuto. :)
Ciao, Sara
Sara
saramarti92
Utente Junior
 
Post: 14
Iscritto il: 27/03/17 10:43

Sponsor
 

Postdi saramarti92 » 30/03/17 07:02

Sara
saramarti92
Utente Junior
 
Post: 14
Iscritto il: 27/03/17 10:43

Postdi ricky53 » 30/03/17 10:47

Ciao,
hai inserito il tuo quesito nella sezione sbagliata.
Dovevi inserirlo nella sezione "Applicazioni Office di Windows".

Comunque nell'altro forum ti ho fornito la soluzione. Dovresti riportala QUI a beneficio degli utenti di questo forum.
Dice il vecchio saggio provare e riprovare è l'unica strada per imparare

Più chiara è la vostra spiegazione
Più immediata sarà la nostra soluzione


. . . . . . . . . .
S.O. W7; Office 2003-10-13-16
Avatar utente
ricky53
Utente Senior
 
Post: 4526
Iscritto il: 11/04/09 19:29
Località: Italia

Postdi saramarti92 » 04/04/17 10:08

Codice: Seleziona tutto
Sub Copia_Dati()
    Dim I As Integer, UR As Integer

    Sheets("Scelta ponteggio").Select
    UR = Range("A" & Rows.Count).End(xlUp).Row
    If UR > 40 Then
        Range("A40:I" & UR).ClearContents
    End If
   
    Range("A40") = "Produttore"
    Range("B40") = "Tipologia"
    Range("C40") = "Modello"
    Range("D40") = "Larghezza"
    Range("E40") = "Lunghezza"
    Range("F40") = "Altezza"
    Range("G40") = "Portata"
    Range("H40") = "Possibilità di montaggio dal basso"
   
    Sheets("Calcoli 1").Select
    UR = Range("B" & Rows.Count).End(xlUp).Row
    Range("B2:I" & UR).Copy
    Sheets("Scelta ponteggio").Select
    Range("A41").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
   
    Sheets("Calcoli 2").Select
    UR = Range("B" & Rows.Count).End(xlUp).Row
    Range("B2:I" & UR).Copy
    Sheets("Scelta ponteggio").Select
    UR = Range("A" & Rows.Count).End(xlUp).Row + 1
    Range("A" & UR).Select
    ActiveSheet.Paste
   
    Sheets("Calcoli 3").Select
    UR = Range("B" & Rows.Count).End(xlUp).Row
    Range("B2:I" & UR).Copy
    Sheets("Scelta ponteggio").Select
    UR = Range("A" & Rows.Count).End(xlUp).Row + 1
    Range("A" & UR).Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
   
    UR = Range("A" & Rows.Count).End(xlUp).Row
    Range("I41").Select
    ActiveCell.FormulaR1C1 = "=IF(COUNTIF(R41C[-6]:R" & UR & "C[-6], RC[-6])=3, 1,0)"
    Range("I41").Copy
    Range("I42:I" & UR).Select
    ActiveSheet.Paste
   
    UR = Range("A" & Rows.Count).End(xlUp).Row
    For I = UR To 41 Step -1
        If Cells(I, "I") = 0 Then
            Rows(I).Delete
        End If
    Next I
    Range("I41:I" & UR).ClearContents
    Range("A41").Select
    MsgBox "Elaborazione conclusa"
End Sub
grazie mille ancora Ricky53
Sara
saramarti92
Utente Junior
 
Post: 14
Iscritto il: 27/03/17 10:43


Torna a Applicazioni Office Windows


Topic correlati a "Macro per copiare dati uguali presenti in fogli diversi":


Chi c’è in linea

Visitano il forum: raimea e 47 ospiti