Copia incolla in base alla presenza di un valore

[il_puttologo]

Ciao a tutti, sto facendo un semplice programmino che mi sta mandando un pochino in confusione...
Vorrei creare una macro che mi permetta di copiare solo le righe in cui nella colonna D scrivo "x" dal foglio1 al foglio2, mi potete aiutare??

[alfrimpa]

Allega un piccolo file di esempio con i dati così eviti di costringere noi a doverlo ricostruire.

[Anthony47]

Applica il filtro automtico sulla colonna D di Foglio1; poi registra una macro mentre:
-filtri colonna D sul valore "x"
-selezioni l'area visualizzata e fai Copia
-seleziona Foglio2, seleziona la cella dove vuoi incollare, Incolli
-torni su Foglio1, elimini il filtro sulla colonna D
-fermi la registrazione.
Questa e' la tua macro.
Per le istruzioni su come registrare una macro:
viewtopic.php?f=26&t=103893&p=622593#p622593

Se vuoi qualcosa in piu' pubblica il codice ottenuto, allega un file dimostrativo e spiega l'obiettivo.

Ciao

[il_puttologo]

https://onedrive.live.com/edit.aspx?cid ... &app=Excel
Questo è il file che devo modificare. Essendo il foglio1 (ovvero "componenti stampo") un elenco che si farà sempre più lungo devo crearmi delle variabili per la ricerca delle x.

[alfrimpa]

Il link che hai allegato richiede la creazione di un account.

Usa un altro sito di file sharing tipo Filedropper, Dropcanvas o simili.

[il_puttologo]

http://dropcanvas.com/aayu1

[alfrimpa]

Ciao puttologo

Ti riallego il tuo file con la macro che vedi qui che ho associato al pulsante "Crea Ordine"

Codice: Seleziona tutto

Sub CreaOrdine()
Dim i As Integer
Dim ur As Long
Dim lr As Long
Dim rng As Range
Dim cel As Range
ur = Worksheets("Componenti stampo").Cells(Rows.Count, "Q").End(xlUp).Row
Set rng = Worksheets("Componenti stampo").Range("Q3:Q" & ur)
For Each cel In rng
lr = Worksheets("Ordine di acquisto").Cells(Rows.Count, "i").End(xlUp).Row
    If cel.Value = "x" Then
        For i = -16 To -9
            Worksheets("Ordine di acquisto").Cells(lr + 1, i + 17).Value = cel.Offset(0, i).Value
            Worksheets("Ordine di acquisto").Cells(lr + 1, "i").Value = "x"
        Next i
    End If
Next cel
End Sub


Per motivi che sarebbe complicato qui spiegare (esigenze di programmazione) ho utilizzato una colonna di appoggio (la "I") che è nascosta sul foglio "Ordine di acquisto"

http://dropcanvas.com/ht711

Prova un po' e fai sapere

[il_puttologo]

Esattamente quello che mi serviva! grazie mille della disponibilità alfrimpa!

[il_puttologo]

Anzi no scusa c'è un problemino ancora...se cancello gli ordini da "ordine di acquisto" e creo un nuovo ordine, i nuovi pezzi non si inseriscono dalla riga 8, ma è come se restassero in memoria quelli vecchi.

Forse con l'immagini si riesce a capire meglio
http://dropcanvas.com/mfaw4

[alfrimpa]

Si scusa avevo dimenticato l'istruzione per la cancellazione dei dati preesistenti.

Ora sono fuori; appena rientro riposto la macro

[alfrimpa]

Puttologo ecco la macro modificata

Codice: Seleziona tutto

Sub CreaOrdine()
Dim i As Integer
Dim ur As Long
Dim lr As Long
Dim rng As Range
Dim cel As Range
ur = Worksheets("Componenti stampo").Cells(Rows.Count, "Q").End(xlUp).Row
Set rng = Worksheets("Componenti stampo").Range("Q3:Q" & ur)
Worksheets("Ordine di acquisto").Range("i8:i28").ClearContents
Worksheets("Ordine di acquisto").Range("a8:h28").ClearContents
For Each cel In rng
lr = Worksheets("Ordine di acquisto").Cells(Rows.Count, "i").End(xlUp).Row
    If cel.Value = "x" Then
        For i = -16 To -9
            Worksheets("Ordine di acquisto").Cells(lr + 1, i + 17).Value = cel.Offset(0, i).Value
            Worksheets("Ordine di acquisto").Cells(lr + 1, "i").Value = "x"
        Next i
    End If
Next cel
End Sub


[il_puttologo]

Perfetto! Grazie ancora!