Condividi:        

Excel - copia righe se...

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

Excel - copia righe se...

Postdi dami80 » 06/03/12 15:33

Buongiorno a tutti,
nonostante ci siano alcuni post sull'argomento la mia ignoranza mi ha precluso la soluzione al problema... :oops:
Devo copiare da un foglio excel ad un altro solamente le righe che in colonna A presentano il valore "1"...e non conoscendo VBA sono leggermente fregato!!!

altro problemino successivo:
ho due fogli excel con valore alfanumerico in colonna a e numerico in colonna B.
Devo, partendo dal foglio2, controllare l'esistenza del codice in A1 nel foglio1 e, se presente, controllare che l'importo in B1 sia uguale...mi sono incasinato!! Ecco un esempio

foglio 1
a1 tn001202
b1 19,90

foglio 2
a1 tn001202
b1 18,60

Devo appunto verificare che il valore di a1 del foglio 2 sia presente in ai del foglio1 e confrontare se gli importi sono uguali. Il top sarebbe riuscire a scrivere nel foglio 3 solamente eventuali differenze fra i 2 fogli!!!
AIUTO!!

C'è qualche anima più che mi può aiutare? :?:
Grazie a tutti in anticipo
EXCEL 2002 SP3
dami80
Newbie
 
Post: 2
Iscritto il: 06/03/12 15:21

Sponsor
 

Re: Excel - copia righe se...

Postdi Flash30005 » 06/03/12 21:26

Per il primo problema, se non è un'operazione ripetitiva che crea "fatica" a lungo andare puoi semplicemente applicare un filtro sulla colonna A selezionando appunto il valore 1
copiare le righe filtrate e incollarle sul nuovo foglio

per il secondo problema dovresti specificare alcune cose come ad esempio
nel caso in cui il codice in A del foglio2 non viene trovato nella colonna A del foglio1 cosa vorresti avere nel foglio3?

Fai sapere
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: Excel - copia righe se...

Postdi dami80 » 07/03/12 09:32

Buongiorno e grazie della risposta.
Specifico:
per il primo caso questo controllo va fatto settimanalmente, quindi se fosse possibile automatizzare il processo sarebbe ottimale....altrimenti andrò in modalità manuale...sigh

Per il secondo passaggio i dati su cui effettuare il controllo sono quelli del foglio2. Quindi se in colonna A del foglio2 si trovano dei codici non presenti nel foglio1 vanno inseriti nel riepilogo del foglio3.
Per capirci trattasi di controllo delle spedizioni in fattura, quello che risulta a me e al mio cliente, quindi se a me risulta una spedizione che a lui non risulta voglio che mi venga evidenziata come differenza nel foglio3.
grazie mille
EXCEL 2002 SP3
dami80
Newbie
 
Post: 2
Iscritto il: 06/03/12 15:21

Re: Excel - copia righe se...

Postdi Flash30005 » 07/03/12 23:58

Prova questa macro che prevede 3 fogli in una cartella (Foglio1, Foglio2, Foglio3)
Con i dati in Colonna A (codice) e colonna B (prezzo)
Dati Input su Foglio1 e Foglio2
Dati Output su Foglio3
La prima riga l'ho considerata come testata (quindi se non c'è, è opportuno inserirla)

Codice: Seleziona tutto
Sub CompilaF3()
Set Ws1 = Worksheets("Foglio1")
Set Ws2 = Worksheets("Foglio2")
Set Ws3 = Worksheets("Foglio3")
Ws3.Cells.Clear
Ws2.Columns("A:B").Copy Destination:=Ws3.Columns("A:A")
Ws3.Range("C1").Value = "Da Foglio1"
Ws3.Range("D1").Value = "Diff"
UR1 = Ws1.Range("A" & Rows.Count).End(xlUp).Row
UR3 = Ws3.Range("A" & Rows.Count).End(xlUp).Row
For RR3 = 2 To UR3
    Cod3 = Ws3.Range("A" & RR3).Value
    For RR1 = 2 To UR1
    If Cod3 = Ws1.Range("A" & RR1).Value Then
        Ws3.Range("C" & RR3).Value = Ws1.Range("B" & RR1).Value
        Ws3.Range("D" & RR3).Value = Ws3.Range("B" & RR3).Value - Ws3.Range("C" & RR3).Value
    GoTo SaltaRR3
    End If
    Next RR1
SaltaRR3:
Next RR3
End Sub


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-


Torna a Applicazioni Office Windows


Topic correlati a "Excel - copia righe se...":


Chi c’è in linea

Visitano il forum: Nessuno e 68 ospiti