Condividi:        

Trsposizione valori stessa voce 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

Trsposizione valori stessa voce tra fogli

Postdi Ricky0185 » 30/08/23 15:19

Mi arrendo.
Buonasera, nella macro del file allegato, estremamente semplificato, non riesco a modificare/integrare/riscrivere l’istruzione che mi permetta di copiare sul Foglio2 colonna C i valori che stanno sul Foglio1 colonna F stessa Tabella. Il problema mi si presenta solo quando o non ci sono valori nella riga (esempio riga 2, ma questo l’ho risolto con l’istruzione
Codice: Seleziona tutto
If cl.Value = "" Or cl.Offset(1, 1).Value = "" Then GoTo 10)
o c’è una sola riga di dati per cui l’istruzione
Codice: Seleziona tutto
C.Offset(0, 2).Value = cl.Offset(1, 1).End(xlDown).End(xlToRight).Value
mi da come risultato zero (vedi riga 53 Foglio1 che non viene riportata in riga 19 Foglio2).
Saluti
R
Ricky0185
Utente Senior
 
Post: 272
Iscritto il: 10/12/19 20:38

Sponsor
 

Re: Trsposizione valori stessa voce tra fogli-RISOLTO

Postdi Ricky0185 » 31/08/23 07:44

Elementare Watson. Bastava aggiungere un altro If. Non dubito ci siano altre soluzioni, ma come dice Anthony....Se funziona va bene così. Ecco la macro aggiornata
Codice: Seleziona tutto
Sub Da_Foglio1_A_Foglio2()
Dim cl As Range '1
Dim C As Range '2
    For Each cl In Sheets("Foglio1").Range("a2:a200")
        If cl.Value = "" Or cl.Offset(1, 1).Value = "" Then GoTo 10
    For Each C In Sheets("Foglio2").Range("a2:a30")
        If C.Value = cl.Value Then
    C.Offset(0, 2).Value = cl.Offset(1, 1).End(xlDown).End(xlToRight).Value     
End If
If C.Value = cl.Value And cl.Offset(2, 1) = "" Then
    C.Offset(0, 2).Value = cl.Offset(1, 1).End(xlToRight).Value
    End If
Next 'C
10:
Next
MsgBox ("Completato..." & vbCrLf & "Te saluto.")
Range("A2").Select
End Sub

Saluti
R
Ricky0185
Utente Senior
 
Post: 272
Iscritto il: 10/12/19 20:38


Torna a Applicazioni Office Windows


Topic correlati a "Trsposizione valori stessa voce tra fogli":


Chi c’è in linea

Visitano il forum: Nessuno e 58 ospiti