Selezionare e copiare da elenco

Hai un problema con Excel?

Nuova discussione

Selezionare e copiare da elenco
di gnellino (utente non iscritto) data: 18/11/2017 21:21:27
Ciao

dovrei poter copiare alcuni dati da un elenco e incollarli nella celle vicine creando un nuovo elenco,
Ho provato a scrivere una macro ma senza risultato

Allego file di lavoro

Grazie
M
di DAN1 (utente non iscritto) data: 18/11/2017 23:30:26
Buonasera
le macro non le so scrivere....con le formule in G4 da trascinare fino a J4 e poi in basso fino a riga 31

=SE.ERRORE(INDICE($B$4:$E$31;AGGREGA(15;6;RIF.RIGA($A$4:$A$31)/($A$4:$A$31="X")-RIF.RIGA($A$4)+1;RIF.RIGA($A1));RIF.COLONNA(A$1))&"";"")

la colonna J formattata in percentuale

di gnellino (utente non iscritto) data: 19/11/2017 18:29:29
Grazie DAN1 ma avrei bisogno di effettuare il passaggio con una macro

Ho risolto con la macro che allego sotto

Però, chiedo se è possibile iniziare il conteggio dell'ultima riga da una riga stabilita (anche se vuota)

Sub seleziona()

Application.ScreenUpdating = False

Dim ws As Worksheet

Dim Var1 As String
Dim Var2 As String

Dim i As Integer

Dim ur As Long

    ur = Range("Q" & Rows.Count).End(xlUp).Row

For i = 4 To 30 'colonna A riga 4 a 10

ActiveSheet.Select


Var1 = 1 'Assegno il valore 1 alla variabile Var1
Var2 = ActiveSheet.Cells(i, 1) 'Assegno il valore della cella A&i alla variabile Var2

k = ActiveSheet.Range("Q" & Rows.Count).End(xlUp).Row

If Var2 = Var1 Then 'Se le due variabili sono uguali..

ActiveSheet.Cells(k + 1, 17) = ActiveSheet.Cells(i, 2)
ActiveSheet.Cells(k + 1, 18) = ActiveSheet.Cells(i, 3)
ActiveSheet.Cells(k + 1, 19) = ActiveSheet.Cells(i, 4)
ActiveSheet.Cells(k + 1, 20) = ActiveSheet.Cells(i, 5)

End If

Next i

Application.ScreenUpdating = True
 
End Sub

Vuoi Approfondire?