| | Post: 103 | Registrato il: 03/10/2015
| Città: ALBAREDO PER SAN MARCO | Età: 44 | Utente Junior | 2003 | | OFFLINE |
|
11/11/2018 15:14 | |
Buona Domenica a Tutti mi serve una macro per velocizzare un lavoro perchè manualmente ci vorrebbe troppo tempo.Prima fase Cancellare nella colonna G del foglio2 qualsiasi cosa lasciando solo i valori numerici in questo caso (Tot. Premi Proprietario),(matteo),(Record: 1.18.8).Seconda fase dividere la somma ottenuta (8.6282+29.056+0) per il mumero di elementi della colonna B,(In Questo caso 7),Riportare tutto nel foglio 3 come da esempio.Grazie anticipatamente Matteo.Mi serve la macro perchè i dati cambiano tutti i giorni e ci vuole troppo tempo per calcolarli manualmente . |
|
| | Post: 1.983 | Registrato il: 06/04/2013
| Utente Veteran | 2010 | | OFFLINE |
|
11/11/2018 16:33 | |
ciao
se i due importi sono sempre preceduti da "Euro " bastano delle formule:
in B1 del foglio3:
=SOSTITUISCI(STRINGA.ESTRAI(Foglio2!G1;TROVA("Euro";Foglio2!G1)+5;LUNGHEZZA(Foglio2!G1));".";"")*1+SOSTITUISCI(STRINGA.ESTRAI(Foglio2!G3;TROVA("Euro";Foglio2!G3)+5;LUNGHEZZA(Foglio2!G3));".";"")*1
in C1 del foglio3:
=B1/D1
in D1 del foglio3:
=CONTA.VALORI(Foglio2!B:B)
NB: i numeri riportati nel tuo allegato e nel tuo post sono errati.
saluti
Domenico
Win 10 - Excel 2016 |
| | Post: 103 | Registrato il: 03/10/2015
| Città: ALBAREDO PER SAN MARCO | Età: 44 | Utente Junior | 2003 | | OFFLINE |
|
11/11/2018 18:26 | |
Ciao Dodo ho provato ad inserire i dati e ho questo errore ti mando la foto.Grazie Matteo |
| | Post: 1.984 | Registrato il: 06/04/2013
| Utente Veteran | 2010 | | OFFLINE |
|
11/11/2018 19:05 | |
con la foto ci faccio poco e bisogna vedere che hai nel foglio2
...io ti ho allegato il file sulla base di quanto tu hai esposto e non riscontro l'errore.
Manda il file originale
saluti
[Modificato da dodo47 11/11/2018 19:06] Domenico
Win 10 - Excel 2016 |
| | Post: 104 | Registrato il: 03/10/2015
| Città: ALBAREDO PER SAN MARCO | Età: 44 | Utente Junior | 2003 | | OFFLINE |
|
11/11/2018 20:08 | |
Ciao Dodo ti mando il file con aggiunta dati non sensibili. Grazie Matteo se è possibile puoi aggiungere una macro con la funzione splendida che hai trovato. |
| | Post: 3.206 | Registrato il: 03/04/2013
| Utente Master | Excel 2000 - 2013 | | OFFLINE | |
|
12/11/2018 10:10 | |
Buona giornata, Matteo;
consentimi un caro saluto a Domenico.
Prendendo spunto dalla soluzione proposta da @dodo47, ho pensato ad un Codice VBA di questo tipo:
Option Explicit
Sub Calcola()
Application.ScreenUpdating = False
Dim Rcd As Long, x As Long, y As Long, Rsl As Long
Dim Formula As String
Rsl = Range("A" & Rows.Count).End(xlUp).Row
If Rsl < 2 Then Rsl = 2
Range(Cells(2, 1), Cells(Rsl, 2)).ClearContents
With Worksheets("Foglio2")
Rcd = .Range("G" & .Rows.Count).End(xlUp).Row
y = 2
For x = 1 To Rcd
If Left(.Cells(x, 7).Value, 3) = "Tot" Then
Cells(y, 1).Value = .Cells(x, 2).Value
Formula = "=SOSTITUISCI(STRINGA.ESTRAI(Foglio2!G" & x & ";TROVA(" & Chr(34) & "Euro" & Chr(34) & ";Foglio2!G" & x & ")+5;LUNGHEZZA(Foglio2!G1));" & Chr(34) & "." & Chr(34) & ";" & Chr(34) & Chr(34) & ")*1"
Cells(y, 2).FormulaLocal = Formula
y = y + 1
End If
Next x
End With
Range(Cells(2, 2), Cells(Range("A" & Rows.Count).End(xlUp).Row, 2)).Copy
Cells(2, 2).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
Application.ScreenUpdating = True
Cells(2, 10).Select
End Sub
Vedi se può esserti d'aiuto.
A disposizione.
Buon Lavoro.
Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013 |
| | Post: 105 | Registrato il: 03/10/2015
| Città: ALBAREDO PER SAN MARCO | Età: 44 | Utente Junior | 2003 | | OFFLINE |
|
12/11/2018 19:51 | |
Buona sera Giuseppe sto provando il codice solo ora ti ringrazio è perfetto l'unica cosa è che quando inserisco i dati se la cella G1 è
vuota quando lancio la tua macro calcola mi restituisce #VALORE!
nelle colonne B,C,H. E' possibile inserire una macro cancella dati perché quando inserisco dati sensibili mi si cancellano tutte le formule e devo scaricare da capo il tuo file precedente. Grazie ancora
al mitico GiuseppeMN |
| | Post: 3.208 | Registrato il: 03/04/2013
| Utente Master | Excel 2000 - 2013 | | OFFLINE | |
|
12/11/2018 21:40 | |
Buona sera, Matteo. @gattodimarmo1980
... l'unica cosa è che quando inserisco i dati se la cella G1 è vuota quando lancio la tua macro calcola mi restituisce #VALORE!
Risolverei con una Colonna d'appoggio nel Foglio di lavoro Foglio2 e una piccola modifica nel Codice VBA. @gattodimarmo1980
... nelle colonne B,C,H. E' possibile inserire una macro cancella dati perché quando inserisco dati sensibili mi si cancellano tutte le formule e devo scaricare da capo il tuo file precedente.
Questa richiesta non lho capita; puoi precisare? Grazie. A disposizione. Buona serata. Giuseppe
Windows XP - Excel 2000
Windows 10 - Excel 2013 |
| | Post: 106 | Registrato il: 03/10/2015
| Città: ALBAREDO PER SAN MARCO | Età: 44 | Utente Junior | 2003 | | OFFLINE |
|
13/11/2018 19:57 | |
Buona sera Giuseppe riesco a rispondere solo adesso, la macro che hai fatto va benissimo così mi si cancellavano le formule perché incollavo i dati sensibili non correttamente. Ti ringrazio ancora. Buona serata Matteo.
|
|
|