Copia E Incolla

Hai un problema con Excel?

Nuova discussione

Copia e incolla
di Stefano m (utente non iscritto) data: 03/04/2012
Ciao a tutti sono nuovo del forum,
avrei un problemino, vorrei copiare un valore da un foglio excel, vorrei incollarlo nella prima cella vuota di un range di celle non attigue ben definito ("c18,c20,c22,c24,h18,h20......." .
quindi vorrei che ogni volta che avvio la macro controlla la prima cella dell'intervallo se vuota copia altrimenti passa alla successiva e cosi via.
grazie

di 1.618 (utente non iscritto) data: 17/04/2012
Ti posto 2 codici, uno con degli if dove devono essere scritte le celle da controllare definite per l'incolla; l'altro è con 2 for che alternano la cadenza delle celle da controllare con step definiti.
spero che le celle che devi controllare non siano randomiche e che quindi tu non debba usare il primo codice, perché è pesante scriverle tutte.
ciao tonella

Sub prova()
    ActiveCell.Copy
    If Range("c18").Value = "" Then
        Range("c18").Select
        ActiveSheet.Paste
        Exit Sub
    End If
    If Range("c20").Value = "" Then
        Range("c20").Select
        ActiveSheet.Paste
        Exit Sub
    End If
    If Range("c22").Value = "" Then
        Range("c22").Select
        ActiveSheet.Paste
        Exit Sub
    End If
    If Range("c24").Value = "" Then
        Range("c24").Select
        ActiveSheet.Paste
        Exit Sub
    End If
End Sub
Sub prova1()
ActiveCell.Copy
For colonna = 3 To 8 Step 5 ' per cambiare le colonne con un salto di 5 dalla colonna C alla colonna H
    For riga = 18 To 24 Step 2 ' per cambiare le righe di 2 in 2 da 18 a 24
        Cells(riga, colonna).Select
        If Cells(riga, colonna).Value = "" Then
           Cells(riga, colonna).Select
           ActiveSheet.Paste
           Exit Sub
        End If
    Next riga
Next colonna
End Sub

di Marz data: 09/05/2012
Ciao a tutti sono nuovo nel forum,

io ho un problema nel copiare e incollare due colonne da un file all'altro. in particolare nel mio codice apro un file, seleziono due colonne e le incollo su un altro file. mi restituisce errore perchè nelle due colonne copiate due celle sonoo unite tra di loro. potete aiutarmi?

Workbooks.Open Filename:="w:RAN....xls", ReadOnly:=True, UpdateLinks:=0
Sheets("OUTPUT_BITSTAT").Select

ActiveSheet.Range("f:f,i:i").Copy

Windows("Newsletter.xls").Activate
Sheets("Market Cap_appoggio").Activate
ActiveSheet.Range("a1").PasteSpecial Paste:=xlValues

di Baz (utente non iscritto) data: 10/05/2012
Ciao marz,
innanzitutto mi permetto di dirti che avresti dovuto aprire un nuovo post e non accodarti ad un'altra discussione (magari gli amministratori possono spostare tale post)

detto questo, veniamo la tuo quesito.
nelle mie prove ho creato un file con i dati nelle tue colonne con le celle unite, con il codice sotto riportato le celle unite ed i colori vengono mantenuti, spero ti possa andar bene

ciao
'... ActiveSheet.Range("f:f,i:i").Copy Windows("Cartel3").Activate '<< modificato Sheets("foglio2").Activate '<< modificato ActiveSheet.Range("a1").PasteSpecial xlPasteAll

Vuoi Approfondire?