patel45, 18/04/2012 10.58:

---

devi essere più preciso, quale valore inserisci ed in quale cella ?
qualsiasi ?

---

Berna11, 18/04/2012 11.12:

---

Ciao Mat e Patel se vuoi inserire una "X" nel file e copiare tutta la riga (nel file c'è evidenziato 1.90) puoi mettere questa "X" in colonna AA poi applichi il filtro ed in questa colonna selezioni solo la "X" e ti rimangono solo le righe complete dove tu hai inserito la X.
Ora fai un semplice copi/incolla sul foglio2.
Puoi anche, usando il registratore di macro, registrare il tutto e lanciare la macro.
fai sapere
Un saluto

---

Zer0kelvin, 18/04/2012 12.47:

---

Ciao.
Ecco una macro che fa quello che chiedi:
======================================================================

Option Explicit

Public Sub CopiaRighe()
Dim conta As Long, i As Long, val1 As Variant
Dim sh1 As Worksheet, sh2 As Worksheet
    Set sh1 = ActiveSheet
    Set sh2 = Sheets("Foglio2")
    val1 = [ActiveCell]
    With ActiveCell.EntireColumn
        conta = 0
        For i = 2 To .End(xlDown).Row
            If val1 = .Cells(i, 1).Value Then
                conta = conta + 1
                sh1.Rows(i).Copy Destination:=sh2.Rows(conta + 1)
            End If
        Next i
        MsgBox "Sono state copiate " & conta & " righe."
    End With
    Set sh1 = Nothing
    Set sh2 = Nothing
End Sub

======================================================================
La macro cerca il valore della cella attualmente selezionata e copia le righe corrispondenti in "Foglio 2".
Se vuoi che funzioni in maniera diversa specifica...

---

patel45, 18/04/2012 12.45:

---

se ti faccio domande è evidente che non ho capito ed ancora non ho capito, ripeto
quale valore inserisci ed in quale cella ?
qualsiasi cella ?
lo scopo è archiviare le modifiche fatte ?

---

Zer0kelvin, 18/04/2012 13.27:

---

Ciao e scusa!
Non avevo visto il campo per l'inserimento del valore perchè era fuori dalla finestra. Per farla funzionare come vuoi tu occorre fare qualche piccola modifica:

Public Sub CopiaRighe()
Dim conta As Long, i As Long, val1 As Variant
Dim sh1 As Worksheet, sh2 As Worksheet
    Set sh1 = ActiveSheet
    Set sh2 = Sheets("Foglio2")
    val1 = CDbl([AC3])
    With sh1.Columns(8) 'esegue la ricerca nella colonna h
        conta = 0
        For i = 2 To .End(xlDown).Row
            If val1 = CDbl(.Cells(i, 1).Value) Then
                conta = conta + 1
                sh1.Rows(i).Copy Destination:=sh2.Rows(conta + 1)
            End If
        Next i
        MsgBox "Sono state copiate " & conta & " righe."
    End With
    Set sh1 = Nothing
    Set sh2 = Nothing
End Sub

---

Mat71, 18/04/2012 13.34:

---

nn va ...

nn puoi fare una verifica sul file execel grazie

---

Zer0kelvin, 18/04/2012 14.11:

---

Yepp!

---

Zer0kelvin, 18/04/2012 18.32:

---

Scritta così col testo non funziona, dovresti sostituire i due

CDbl()

con

Format$()

inquesto modo dovrebbe (dovrebbe) funzionare sia con numeri che con testi.

---

Zer0kelvin, 19/04/2012 13.07:

---

Il mio dubbio veramente era che non funzionasse in maniera appropriata coi numeri!
potrebbe essere che ci siano delle maiuscole/minuscole che differiscono, o degli spazi all'inizio o alla fine del testo.
Prova a fare così:
all'inizio del modulo inserisci questa riga:

Option Compare Text ' così Excel non fa più distinzione tra maiuscole e minuscole

Sostituisci
Format$()
con
Trim(Format$()) ' elimina eventuali spazi all'nizio o alla fine


Ciao.

PS: tieni presente che, così come è scritta, la macro esegue la ricerca SEMPRE e solo nella colonna H

---

Mat71, 19/04/2012 13.24:

---

ecco la modifica ...

ma nn va

Option Compare Text ' così Excel non fa più distinzione tra maiuscole e minuscole


Public Sub Copia_txt()

PULISCI

Dim conta As Long, i As Long, val1 As Variant

Dim sh1 As Worksheet, sh2 As Worksheet

Set sh1 = ActiveSheet

Set sh2 = Sheets("RIEPILOGO")

val1 = Trim(Format$([AC6]))

With sh1.Columns(4) 'esegue la ricerca nella colonna h

conta = 0

For i = 2 To .End(xlDown).Row

If val1 = Trim(Format$(.Cells(i, 1).Value)) Then

conta = conta + 1

sh1.Rows(i).Copy Destination:=sh2.Rows(conta + 1)

End If

Next i

MsgBox "Sono state copiate " & conta & " righe."

End With

Set sh1 = Nothing

Set sh2 = Nothing

End Sub
....................

mettendo il valore da icercare in cella AC6 e considerando il dato in colonna D ...

---

Zer0kelvin, 23/04/2012 14.49:

---

Ciao.
Il problema stà nel fatto che nella colonna in cui fai la ricerca la prima cella è vuota, quindi l'istruzione ...End(xlDown) fa fermare la ricerca alla seconda cella. La routine funziona solo se tutte le celle della colonna contengono un valore...
Se inserisci qualcosa (va bene anche uno spazio) nella prima cella della colonna dovrebbe funzionare.
... e scusa il ritardo.

---

Zer0kelvin, 23/04/2012 14.49:

---

Ciao.
Il problema stà nel fatto che nella colonna in cui fai la ricerca la prima cella è vuota, quindi l'istruzione ...End(xlDown) fa fermare la ricerca alla seconda cella. La routine funziona solo se tutte le celle della colonna contengono un valore...
Se inserisci qualcosa (va bene anche uno spazio) nella prima cella della colonna dovrebbe funzionare.
... e scusa il ritardo.

---

Mat71, 26/04/2012 09.34:

---

Vorrei approfondire sempre di piu' la conoscenza del vba

se volessi cercare lo stesso valore in piu' colonne ?

copiare solo una parte della riga es. da A a Z

in questo caso la copia tutta

---

Zer0kelvin, 28/04/2012 15.00:

---

---

il 2 e 16 a sua volta si devono incrementare di 17 ...

---

Penso che tu volessi dire 5 e 16, dal momento che sono i due riferimenti di colonna nella parte che hai evidenziato.
Visto che la colonna cambia, in base al valore di perColonna, è ovvio che anche questi dovranno variare assieme a perColonna; il primo è uguale a perColonna (è la stessa colonna in cui fai la ricerca), il secondo è uguale a perColonna+11!!!

---

Zer0kelvin, 02/05/2012 14.43:

---

Ciao Mat.
Innanzitutto dovresti essere più specifico riguardo a "non funziona".
Non avevo guardato le tue modifiche, ma ho trovato alcune cose che io eviterei di fare:
1) mettere delle istruzioni With nidificate
2) mettere un'istruzione Dim all'interno di un ciclo
3) usare il metodo Select.
Comunque fammi capire meglio cosa non funziona.

---

Zer0kelvin, 02/05/2012 14.43:

---

Ciao Mat.
Innanzitutto dovresti essere più specifico riguardo a "non funziona".
Non avevo guardato le tue modifiche, ma ho trovato alcune cose che io eviterei di fare:
1) mettere delle istruzioni With nidificate
2) mettere un'istruzione Dim all'interno di un ciclo
3) usare il metodo Select.
Comunque fammi capire meglio cosa non funziona.

---