Pagina precedente | 1 | Pagina successiva
Vota | Stampa | Notifica email     « Discussione Precedente | Lista | Discussione Successiva »
Autore

Help Me! Formula concatena e varie

Ultimo Aggiornamento: 06/12/2021 18:03
Giovan Battista.Lauricella
Post: 30
Registrato il: 02/02/2013
Città: MILANO
Età: 67
Utente Junior
2019
OFFLINE
05/12/2021 11:45
00#1
Buongiorno a tutti cortesemente ho bisogno dell'aiuto di qualcuno di voi esperti che abbia la pazienza di dedicarmi un pò di tempo.
Io ho la necessita partendo dal file estrazione da invoice che allego (allegato estrazione da invoice), quindi da questo:
Numero Data Cliente Totale
1.346 06/10/2021 CARCASSI UMBERTO [935] Riscossione fattura nr 1346"intestata a CARCASSI UMBERTO [935]"del 44475 285,00
1.345 06/10/2021 OCCHIPINTI SONIA [930] Riscossione fattura nr 1345"intestata a OCCHIPINTI SONIA [930]"del 44475 55,00

di arrivare a questo (Prima nota secondo trimestre anche questo allegato):
05/10/2021 Riscossione fattura nr 1346 intestata a CARCASSI UMBERTO del 05/10/2021 285,00
06/10/2021 Riscossione fattura nr 1345 intestata a OCCHIPINTI SONIA del 06/10/2021 55,00
06/10/2021 Riscossione fattura nr 1344 intestata a MARINERO VENERINA del 06/10/2021 95,00
06/10/2021 Riscossione fattura nr 1343 intestata a GALLINA ANTONIO del 06/10/2021 208,70
06/10/2021 Riscossione fattura nr 1342 intestata a CARUSO SARA del 06/10/2021 55,00
06/10/2021 Riscossione fattura nr 1341 intestata a SINATRA MANUELA del 06/10/2021 1000,01

sono riuscito inserendo più formule (nell'estrazione di invoice)a farlo:

=CONCAT("Riscossione fattura nr ";A4;"""intestata a ";C4;"""del ";TESTO(B4;"gg/mm/aaaa");)

1.346 5/10/21 CARCASSI UMBERTO Riscossione fattura nr 1346 intestata a CARCASSI UMBERTO del 05/10/2021 285,00
1.345 6/10/21 OCCHIPINTI SONIA Riscossione fattura nr 1345 intestata a OCCHIPINTI SONIA del 06/10/2021 55,00
1.344 6/10/21 MARINERO VENERINA Riscossione fattura nr 1344 intestata a MARINERO VENERINA del 06/10/2021 95,00
1.343 6/10/21 GALLINA ANTONIO Riscossione fattura nr 1343 intestata a GALLINA ANTONIO del 06/10/2021 208,70
1.342 6/10/21 CARUSO SARA Riscossione fattura nr 1342 intestata a CARUSO SARA del 06/10/2021 55,00
1.341 6/10/21 SINATRA MANUELA Riscossione fattura nr 1341 intestata a SINATRA MANUELA del 06/10/2021 1.000,01

Ma questo inserendo sia la formula di sopra ma anche con vari copia ed incolla e con sostituisci (es: " con spazio)
oppure nella colonna E: =+SINISTRA(C4;(LUNGHEZZA(C4)-6)) per togliere [935] che è un dato che non interessa
ed alla fine arrivo comunque al risultato però con l'intervento mio manuale più volte, credo che inserendo uan macro con queste
formule io potrei incollare il file estrazioni di invoice e le macro potrebbero restituirmi direttamente, o tramite l'utilizzo di pulsanti funzione, il file Prima nota ...trimestre, mi potete dare una mano? Io con le macro sono praticamente più che digiuno.
Vi ringrazio anticipatamente.

Giovan Battista.Lauricella
Post: 30
Registrato il: 02/02/2013
Città: MILANO
Età: 67
Utente Junior
2019
OFFLINE
05/12/2021 22:34
00#2
Ecco gli allegati
Io ero convinto di aver inserito gli allegati li metto qui, scusate
[Modificato da Giovan Battista.Lauricella 05/12/2021 22:35]
dodo47
Post: 3.245
Registrato il: 06/04/2013
Utente Master
2010
OFFLINE
06/12/2021 09:38
00#3
ciao
l'allegato più grande non si scarica correttamente..... se puoi riallegarlo

saluti




Domenico
Win 10 - Excel 2016
L2018
Post: 124
Registrato il: 02/04/2018
Città: PESCARA
Età: 75
Utente Junior
EXCEL 2016 - SPREAD32
ONLINE
06/12/2021 09:46
00#4
ciao
l'allegato più grande non pare essere un suo file bensì un file di tal Simone8989

Leo

LEO
https://t.me/LordBrum
duccio.73
Post: 107
Registrato il: 27/12/2016
Città: SIENA
Età: 50
Utente Junior
Office 2019/Office 365
OFFLINE
06/12/2021 10:39
00#5
A me l'allegato rimanda alla discussione senza allegati...
---
pensa bene a quello che cerchi, allega un file di esempio, prova il registratore di macro, imparerai e potresti già avere la soluzione
Giovan Battista.Lauricella
Post: 31
Registrato il: 02/02/2013
Città: MILANO
Età: 67
Utente Junior
2019
OFFLINE
06/12/2021 11:18
00#6
Inserimento file esatti
Come hai ben notato quell'allegato non era mio, ti allego qui i passaggi che faccio dall'allegato 1 all'allegato 4 per arrivare al prodotto finito.
Allegato 1 - Dati estratti da invoice

Allegato 2 inserimento formula colonna D poi con copia incolla elimino la formula e mi resta il testo pulito

Allegato 3 sistemazione testo con inserimento della colonna D poi con copia incolla sistemo il testo come da allegato 4 (prodotto finito)
L2018
Post: 125
Registrato il: 02/04/2018
Città: PESCARA
Età: 75
Utente Junior
EXCEL 2016 - SPREAD32
ONLINE
06/12/2021 11:24
00#7
ho molta fretta ma gia ieri ho creduto di capire il risultato che si voleva ottenere, e lo posto

spero di aver capito bene, se è così niente macro

Leo

LEO
https://t.me/LordBrum
Giovan Battista.Lauricella
Post: 32
Registrato il: 02/02/2013
Città: MILANO
Età: 67
Utente Junior
2019
OFFLINE
06/12/2021 11:36
00#8
Ho inserito i file con i passaggi che faccio, da dove parto e dove arrivo,c'è credo da costruire una macro che faccia tutto in automatico senza il mio intervento.
L2018
Post: 126
Registrato il: 02/04/2018
Città: PESCARA
Età: 75
Utente Junior
EXCEL 2016 - SPREAD32
ONLINE
06/12/2021 13:01
00#9
sorry, le macro non le so fare

Leo

LEO
https://t.me/LordBrum
Giovan Battista.Lauricella
Post: 33
Registrato il: 02/02/2013
Città: MILANO
Età: 67
Utente Junior
2019
OFFLINE
06/12/2021 14:05
00#10
vediamo se c'è qualche altro volenteroso, grazie comunque per la tua disponibilità
[Modificato da Giovan Battista.Lauricella 06/12/2021 14:06]
by sal
Post: 6.619
Registrato il: 14/11/2004
Utente Master
Office 2019
OFFLINE
06/12/2021 16:53
00#11
Ciao ecco la macro che fa il lavoro 

Sub Combina()
Dim r, c, d, x, L, rng, sh1 As Worksheet, sh2 As Worksheet

Set sh1 = Worksheets("Invoicex")
Set sh2 = Worksheets("Risultato")

sh1.Activate
rng = ActiveSheet.UsedRange
sh2.Activate
Range("A10:G10000").ClearContents
r = 10: c = 1
For x = 4 To UBound(rng)
  sh2.Cells(r, c) = rng(x, 3)
  sh2.Cells(r, c + 1) = rng(x, 5)
  L = WorksheetFunction.Find("[", rng(x, 6))
  d = Mid(rng(x, 6), 1, L - 2)
  sh2.Cells(r, c + 2) = d
  sh2.Cells(r, c + 3) = "Riscossione fattura nr " & rng(x, 3) & " del " & rng(x, 5) & " " & d
  sh2.Cells(r, c + 4) = rng(x, 8)
  r = r + 1
Next x
End Sub


questo il risultato


Ho riunito il risultato nel file che conteneva il foglio "Invoicex" aggiungendo un nuovo Foglio "Risultato"

basta cliccare sull'icona che hai i dati che ti servono, puoi anche stamparlo il foglio non viene riportata l'icona,

non so se era importante ho tolto il numero in parentesi quadre dopo il nominativo

comunque ci sono altri dati, non riportati nel foglio Risultato, ho riportato solo quelli che hai detto

fammi sapere, Ciao By Sal (8-D

[Modificato da by sal 06/12/2021 16:55]
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie clicca qui
Giovan Battista.Lauricella
Post: 34
Registrato il: 02/02/2013
Città: MILANO
Età: 67
Utente Junior
2019
OFFLINE
06/12/2021 18:03
00#12
Come sempre sei un grande, problema risolto, grazie sempre di cuore
Vota:
Amministra Discussione: | Chiudi | Sposta | Cancella | Modifica | Notifica email Pagina precedente | 1 | Pagina successiva
Nuova Discussione
 | 
Rispondi
Feed | Forum | Bacheca | Album | Utenti | Cerca | Login | Registrati | Amministra
Tutti gli orari sono GMT+01:00. Adesso sono le 08:59. Versione: Stampabile | Mobile | Regolamento | Privacy
FreeForumZone [v.6.1] - Copyright © 2000-2024 FFZ srl - www.freeforumzone.com

  • Anteprima