copia incolla condizionato

[Bizzo]

Buongiorno amici, non capisco molto di VBA ma ho una macro che fa esattamente quello che vorrei.
Nel Foglio1 compila la scheda. Fare clic sul pulsante "AGGIORNA" e la macro esegue le seguenti operazioni, nel Foglio2:
- copia l'ultima riga non vuota (Bn:Jn n= numero);
- incolla la formula nella riga sottostante (ultima non vuota +1);
-incolla i valori nella riga precedente (quella che prima era l'ultima riga non vuota

Come si vede, nel Foglio2, io ho bisogno di incollare la formula non nella "ultima non vuota +1" ma dove ho inserito la data (colonna A:A) saltando le celle vuote ("").
Grazie molto a chi mi aiuta.

[CODICE=vba][/CODICE]

Sub Macro1()
'
' Macro1 Macro
'
Dim uR As Long
uR = Sheets("Foglio2").Cells(Rows.Count, 2).End(xlUp).Row
Sheets("Foglio2").Range(Sheets("Foglio2").Cells(uR, 2), Sheets("Foglio2").Cells(uR, 10)).Copy Sheets("Foglio2").Cells(uR + 1, 2)
Sheets("Foglio2").Range(Cells(2, 2), Sheets("Foglio2").Cells(uR, 10)).Copy
Sheets("Foglio2").Cells(2, 2).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Application.ScreenUpdating = False
Cells(1, 1).Select
End Sub

 

[Anthony47]

Intanto Benvenuto nel forum

Come si vede, nel Foglio2, io ho bisogno di incollare la formula non nella "ultima non vuota +1" ma dove ho inserito la data (colonna A:A) saltando le celle vuote ("").

Dovrebbe quindi bastare calcolare un secondo uR1 non su colonna B (come fai su uR), ma su colonna A; cioe':

uR1 = Sheets("Foglio2").Cells(Rows.Count, 2).End(xlUp).Row

Poi usi questo uR1 come Destination:

Sheets("Foglio2").Cells(uR, 10)).Copy Sheets("Foglio2").Cells(uR1, 2)

Fai sapere...

 

[Bizzo]

Fogli("Foglio2").Cells(uR, 10)).Copia Fogli("Foglio2").Cells(uR1, 2)

Grazie per il tuo suggerimento, ho provato ad inserire il due righe di istruzioni: non cambia nulla. Come ho premesso non sono molto addentro al linguagguo VBA, ti chiedo gentiòlmente se tu potessi riscrivere tutto il codice cosi evuto di sbagiare. Magari ho capito maschio. Un'altra cosa, quando dici : quindi dovrebbe bastare calcolare un secondo uR1 non su colonna B (come fai su uR), ma su colonna A, sembra che tu voglia cercare nella colonna A l'ultima riga non vuota. Devo aggiungere che nelle celle vuote ci sono formule, anche nella colonna A.
Grazie. Non mi crederai, ma sono due settimane che vado dietro a questa sluzione (circa tre ore al giorno) e sono arrivato a questo. Ora non così più andare avanti.

 

[Anthony47]

Quale e' la formula usata in colonna A?

 

[Bizzo]

E' una formula condizionale =Se(.....;......;.....) che va a cercare la data in altri fogli
ho provato ad inserire l'esempio con XL2BB ma in anteprima lo vedo tuto frazionato e non composto. te lo invio , magari è un mio problema

 

[Bizzo]

prova.xlsm
	A	B	C	D	E	F	G	H	I	J	K	L	M	N
1			1	2	3	4	5	6	7	8
2	05/03/2021	02/03/2021	5	10	6	8	32	52	56	12
3
4
5
6
7
8
9
10	05/04/2021	02/03/2021	2	12	5	30	36	12	15	20	copia e incolla valori B1:J10
11
12
13
14
15	06/07/2021										incolla formula (B10:J10)
16
17
18
19
20
21
22
23
24
25
26
27
Foglio2

Cell Formulas
Range	Formula
B10:J10	B10	=IF(A10<>"",INDEX(Foglio1!A:A,AGGREGATE(14,6,ROW(Foglio1!A:A)/(Foglio1!$A:$A<>""),1)),"")

 

[Bizzo]

in questo foglio la colonna A è vuota per motivi di praticità. ma considera che ci sono formule

 

[Bizzo]

prova.xlsm
	A	B	C	D	E	F	G	H	I
1
2
3
4		AAA		BBB
5
6	xxxyyy	2		36
7	zzzaaa	12		12
8	yyybbb	5		15
9	wwwzzz	30		20
10
11
12	Data
13	02/03/2021	2	12	5	30	36	12	15	20
Foglio1

Cell Formulas
Range	Formula
B13	B13	=B6
C13	C13	=B7
D13	D13	=B8
E13	E13	=B9
F13	F13	=D6
G13	G13	=D7
H13	H13	=D8
I13	I13	=D9

 

[Anthony47]

Non sapendo che cosa vorresti fare, e facendo affidamento sul codice che non fa quella cosa , la migliore cosa che ho immaginato e' questa:

Sub Bizzo4()
'
Dim uR As Long
uR = Sheets("Foglio2").Cells(Rows.Count, 2).End(xlUp).Row
uR1 = Evaluate("=MAX(if(Foglio2!A1:A10000<>"""",ROW(A1:A10000),""""))")
Sheets("Foglio2").Cells(uR, 2).Resize(1, 9).Copy Sheets("Foglio2").Cells(uR1, 2)
Sheets("Foglio2").Range(Cells(2, 2), Sheets("Foglio2").Cells(uR1, 10)).Copy
Sheets("Foglio2").Cells(2, 2).PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
Cells(1, 1).Select
End Sub

Fai sapere...

 

[Bizzo]

copiato ed incollato i valori delle righe fino, all'ultima cella della colonna A dove c'era una formula. Tutte le formule sono spartite.
Pensavo di essermi speigato. Quando nel foglio 2 colonna appare la data, significa che tutte le formule della riga (condizione =se( ...) si attivano e forniscono dei valori che dipendono dalla sceda del foglio 1. Se io non incollo questi VALORI , appena modifico la scheda del foglio 1 anche loro si modificano ma io devo conservarli. quindi bisogna incollare i valori. Tutte le celle che seguono nelle righe sucessive sono con formule. Quindi cosa deve fare la macro?
- deve individuare l'iltima riga con valori (numeri e formule) fare copia, deve incollare solo Valori. In questo modo le formule sono gia nelle righe sucessive.
- Oppure se non si può , non metto le formule nelle rghe sucessive all'ultima che ha valori ( numeri e formule) mi porto la formula nelle righe sottostanti (per conservarla) incollo i VALORI nella riga