Salve a tutti ..
Nuovo problema ,sono riuscito a mettere insieme quanto segue..
Private Sub Worksheet_Change(ByVal Target As Range)
Dim sh As Worksheet
Dim rng As Range
Dim lRiga As Long
Set sh = ThisWorkbook.Worksheets("Foglio2")
If Target.Cells.Count = 1 Then
Select Case Target.Column
Case 1, 2
With sh
lRiga = .Range("A" & .Rows.Count).End(xlUp).Row
.Range("A1").AutoFilter Field:=Target.Column, Criteria1:=Target.Value
On Error Resume Next
Set rng = .Range("A2:F" & lRiga).SpecialCells(xlCellTypeVisible)
If Not rng Is Nothing Then
rng.Copy Destination:=Me.Range("A" & Target.Row)
End If
.Range("A1").AutoFilter
End With
End Select
End If
Set rng = Nothing
Set sh = Nothing
End Sub
Ma funziona solo in parte visto che vorrei che mi copiasse tutte le righe che trova con l'indice presente in colonna A
mi spiego meglio , vorrei che in base ad un valore presente in una cella esempio A1 ,leggesse la tabella presente in foglio 2
e copiasse tutti i dati delle righe dove è presente il valore "Foglio1 cella A1" popolando di dati la tabella in foglio1....
Aiutooooo......