COPIARE IN RIGA CONTENENTE VARIABILE

Hai un problema con Excel?

Nuova discussione

COPIARE IN RIGA CONTENENTE VARIABILE
di GNELLINO (utente non iscritto) data: 21/03/2017 00:19:41
Ciao
è possibile copiare alcune celle definite da un foglio in un altro in una determinata riga che contiene una variabile.

Esempio:

Foglio 1
cella A1 = data

Foglio 2
colonna A = serie di date

Copiare nel foglio 2 nella riga corrispondente alla data del foglio 1 le celle B1, C1, D1

Grazie
M

di zsadist data: 21/03/2017 08:11:18
ciao
purtroppo non ho il tempo per provare il codice..
ipotizzando che su foglio2 esiste solo una data (senza doppioni, altrimenti copierebbe i dati su ognuna delle date) il codice dovrebbe essere una cosa del genere..

testalo e adattalo (l'ho fatto su due piedi, come si suol dire)

dim Sdata as Date

Sdata=foglio1.range("A1")
Foglio2.select
x = foglio2.range("A1").End(xlDown).Row
Set zonac = foglio2.Range("A2:A" & x & "")
Cerca = Sdata
If Cerca = "" Then Exit Sub
For Each CL In zonac

If Cdate(CL.Value) = Cdate(Sdata) Then
CL.Select
Ro = CL.Row
Form2.Cells(Ro,2) = Form1.Cells(1,2).Value 'Colonna B
Form2.Cells(Ro,3) = Form1.Cells(1,3).Value 'Colonna C
Form2.Cells(Ro,4) = Form1.Cells(1,4).Value ?Colonna D

'Else
Exit Sub
End If
End If

Next

di patel data: 21/03/2017 08:42:25
GNELLINO
secondo me il quesito non è chiaro, e non ti è chiaro neppure il concetto di variabile, allega un file di esempio con i dati ed il risultato desiderato
di zsadist data: 21/03/2017 08:47:16
Suppongo, ma è solo una mia supposizione, che lui intenda:

in foglio 1 ha, sulla riga 1
in colonna A una data
in colonna B, C, D dei dati associati alla data (in A1)

vuole copiare questi dati in foglio 2 in corrispondenza della data, da ricercare in una serie di date nella colonna A del foglio 2..
perlomeno, io l'ho capita così...
di GNELLINO (utente non iscritto) data: 21/03/2017 08:54:11
zsadist hai capito perfettamente quello che volevo :)

ora provo il codice che mi hai scritto
grazie
di zsadist data: 21/03/2017 08:56:04

beh, come detto.. l'ho scritto velocemente.. comunque.. se hai domande..

in ogni caso.. penso che altri ti sapranno dare un codice più affidabile
di GNELLINO (utente non iscritto) data: 21/03/2017 09:17:15
provato velocemente, sembra fare perfettamente quello che chiedevo
più tardi lo provo meglio

intanto grazie
di zsadist data: 21/03/2017 09:19:07
di nulla, figurati
Cerca fogli
di GNELLINO (utente non iscritto) data: 22/03/2017 00:41:44
la macro suggerita era perfetta, funziona esattamente come avevo bisogno. grazie

Chiedo un altro suggerimento ora

Nel foglio 1 ho usato un codice per cercare i fogli con doppio click
ma se questi fogli fossero nascosti, è possibile richiamarli ugualmente?

grazie
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect(Target, Range("A1:A400")) Is Nothing Then Worksheets(Target.Value).Activate End If End Sub

di zsadist data: 22/03/2017 08:05:35
mmmm

non ho capito bene, senti, prova a fare come suggerito da Patel (ed altri nei vari topic)
metti un file di esempio..

in ogni caso, se ho inteso la tua domanda, prova questo codice

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Not Intersect(Target, Range("A1:A400")) Is Nothing Then
If Worksheets(Target.Value).Visible = 0 Or Worksheets(Target.Value).Visible = 2 Then
Worksheets(Target.Value).Visible = -1
End If
Worksheets(Target.Value).Activate
End If
End Sub

di GNELLINO (utente non iscritto) data: 22/03/2017 09:15:12
File allegato

in vba, cliccando col mouse destro su Foglio 1 (Dati) e aprendo "Visualizza Codice" trovi la macro di cui parlavo

in pratica, da "RIEPILOGO RAZIONI" vado a creare un nuovo foglio Raz 'N' ogni volta che voglio, ma vorrei poi nascondere questo foglio che si crea a fine utilizzo ma poterlo richiamare dal foglio dati con il Boolean
di zsadist data: 22/03/2017 10:35:53
beh, guarda, il codice che ti avevo postato mi sembra che possa funzionare... più o meno.. ti allego un file modificato... vedi se ti giova

Vuoi Approfondire?