Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email    
Autore

Incolla valore nella prima cella vuota

Ultimo Aggiornamento: 06/10/2017 17:36
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



Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Cerca nel forum
Tag discussione
Discussioni Simili   [vedi tutte]
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 10:34. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com