| | Post: 3 | Registrato il: 31/08/2017
| Città: MILANO | Età: 104 | Utente Junior | 2010 | | OFFLINE | |
|
06/10/2017 17:36 | |
Salve, ho creato questa funzione che confronta due valori tra foglie ed incolla sulla stessa riga dei valori prestabiliti. Non riesco a capire come fare incollare nella prima cella vuota del File1(Prova1) il valore che ho cercato nel caso non lo trovi nell'elenco
Sub RicercaeCopia1()
Dim odp As Workbook
Dim job As Workbook
Dim Prova1 As Worksheet
Dim Prova2 As Worksheet
Dim SearchRange1 As Range, i1 As Range
Dim r1 As Integer
Dim ciao As Integer
Dim cod1 As Variant
Dim cod2 As Variant
cod1 = ActiveCell.Value
Set job = ThisWorkbook
Set odp = Workbooks("FILE1_ODP.xlsm")
'metto i riferimenti ai fogli
Set Prova2 = job.Worksheets("Prova2")
Set Prova1 = odp.Worksheets("Prova1")
Set SearchRange1 = Prova1.Range("C2:C1000")
Set SearchRange2 = Prova2.Range("A1:B1")
For Each i1 In SearchRange1
If i1 = cod1 Then
r1 = i1.Row
SearchRange2.Range("A1:B1").Copy Prova1.Cells(r1, 13)
Else
' Incolla cod1 nella prima cella vuota di SearchRange1 e SearchRange2.Range("A1:B1")
End If
Next
End Sub
|
|
|