| | Post: 9 | Registrato il: 29/08/2016
| Città: AGROPOLI | Età: 64 | Utente Junior | Excel 2013 | | OFFLINE | |
|
  20/11/2023 18:35 | |
Buonasera,
per me è troppo complicato, nel web ho trovato questa formula che non riesco a comprendere il funzionamento.
Mi farebbe comodo se è possibile calcolare automaticamente il totale in base,
1. ai giorni
2. al mese
3. alle persone
Qui sotto lo schema.
Grazie. [Modificato da n.diluccio 20/11/2023 18:40] |
|
| | Post: 880 | Registrato il: 02/04/2018
| Città: PESCARA | Età: 75 | Utente Senior | EXCEL 2016 - SPREAD32 | | ONLINE |
|
| 20/11/2023 18:44 | |
Re: Calcolo totale automatica. Scusami, tu hai il file scaricato dal web, noi non ce l'abbiamo
perchè dovremmo fare anche il lavoro di costruirlo ?
non puoi inviarlo ?
Leo
LEO
https://t.me/LordBrum |
| | Post: 10 | Registrato il: 29/08/2016
| Città: AGROPOLI | Età: 64 | Utente Junior | Excel 2013 | | OFFLINE | |
|
| 20/11/2023 19:00 | |
L'ho allegato, ma non ci riesco.
l'ho fatto di nuovo non so se ci sono riuscito.
|
| | Post: 882 | Registrato il: 02/04/2018
| Città: PESCARA | Età: 75 | Utente Senior | EXCEL 2016 - SPREAD32 | | ONLINE |
|
| 20/11/2023 19:06 | |
ecco come nasce il disordine
se hai allegato un file, puoi rendertene conto benissimo guardando in basso al tuo stesso post
ora potresti spiegare con precisione che cosa vorresti ?
la tabella che hai ripetuto ha a che fare col file ? in che modo ?
Leo
LEO
https://t.me/LordBrum |
| | Post: 11 | Registrato il: 29/08/2016
| Città: AGROPOLI | Età: 64 | Utente Junior | Excel 2013 | | OFFLINE | |
|
| 20/11/2023 19:14 | |
La tabella che ho allegato non ha niente a che fare con il file. L'ho trovata nel web ma non capisco come funziona e non risco ad adattarlo alle mie esigenze. |
| | Post: 883 | Registrato il: 02/04/2018
| Città: PESCARA | Età: 75 | Utente Senior | EXCEL 2016 - SPREAD32 | | ONLINE |
|
| 20/11/2023 19:18 | |
n.diluccio, 20/11/2023 19:14:
La tabella che ho allegato non ha niente a che fare con il file. L'ho trovata nel web ma non capisco come funziona e non risco ad adattarlo alle mie esigenze.
eppure dopo aperto il file, spostando il tutto lateralmente, nel foglio sulla destra si vede proprio quella tabella
Quindi ?
e non hai ancora detto quali sono le tue esigenze
Leo
LEO
https://t.me/LordBrum |
| | Post: 12 | Registrato il: 29/08/2016
| Città: AGROPOLI | Età: 64 | Utente Junior | Excel 2013 | | OFFLINE | |
|
| 20/11/2023 19:25 | |
La tabella nel file l'ho messa io per esempio.
Con quel file allegato inserendo il mese, i giorni, e le persone dovrebbe calcolarmi il totale, con riferimento alla tabella. |
| | Post: 13 | Registrato il: 29/08/2016
| Città: AGROPOLI | Età: 64 | Utente Junior | Excel 2013 | | OFFLINE | |
|
| 20/11/2023 19:30 | |
In effetti a secondo del mese inserito c'è una tariffa più il totale delle persone se 1, 2 o 3. |
| | Post: 884 | Registrato il: 02/04/2018
| Città: PESCARA | Età: 75 | Utente Senior | EXCEL 2016 - SPREAD32 | | ONLINE |
|
| 20/11/2023 19:39 | |
quel file è completamente sbagliato nel funzionamento, mi permetto di ipotizzare che tu lo abbia preso da qualche parte.
manca praticamente tutto il codice, a giudicare dalle decine di variabili impostate.
la tua richiesta continua a non essere affatto chiara e
pertanto passo la parola a qualche mago
Leo
LEO
https://t.me/LordBrum |
| | Post: 14 | Registrato il: 29/08/2016
| Città: AGROPOLI | Età: 64 | Utente Junior | Excel 2013 | | OFFLINE | |
|
| 20/11/2023 19:51 | |
Scusa non so come spiegarlo, nella tabella ci sono tutti i mesi dell'anno, in corrispondenza c'è una somma. Esempio gennaio 40€ 1 persone, 50€ 2 persone, 60€ 3 persone. febbraio uguale 40€ 1 persona, 50€ 2 persone, 60€ 3 persone. Esempio agosto 120€ 1 persona, 130€ 2 persone, 140€ 3 persone. Cosi per tutti i mesi. |
| | Post: 885 | Registrato il: 02/04/2018
| Città: PESCARA | Età: 75 | Utente Senior | EXCEL 2016 - SPREAD32 | | ONLINE |
|
| 20/11/2023 20:02 | |
n.diluccio, 20/11/2023 19:51:
Scusa non so come spiegarlo, nella tabella ci sono tutti i mesi dell'anno, in corrispondenza c'è una somma. Esempio gennaio 40€ 1 persone, 50€ 2 persone, 60€ 3 persone. febbraio uguale 40€ 1 persona, 50€ 2 persone, 60€ 3 persone. Esempio agosto 120€ 1 persona, 130€ 2 persone, 140€ 3 persone. Cosi per tutti i mesi.
potresti spiegarlo solo in italiano
comunque il tuo file sul mio pc si apre automaticamente e va subito in errore
allora ho provato a cancellare le righe di errore e in qualche modo compare il cosiddetto userform della prenotazione
quindi si puo' capire che prendendo lo spunto da una tabella di tariffe trovata da altra parte, tu voglia realizzare una piccola gestione alberghiera.
Ho capito, ma chi deve fare questo lavoro ?
Io non so programmare in VBA, solo se tutto fosse stato a posto avrei potuto provare a collegare i valori della tabella allo schema del foglio,perchè questo avevo capito all'inizio.
Ma qui bisogna ricostruire in buona parte il file
Ecco perchè ho parlato di mago, meno male che uno ne abbiamo...arriverà
Leo
LEO
https://t.me/LordBrum |
| | Post: 15 | Registrato il: 29/08/2016
| Città: AGROPOLI | Età: 64 | Utente Junior | Excel 2013 | | OFFLINE | |
|
| 20/11/2023 20:02 | |
Nella file allegato nella TextBox "Costo" mi deve dara il totale. |
| | Post: 16 | Registrato il: 29/08/2016
| Città: AGROPOLI | Età: 64 | Utente Junior | Excel 2013 | | OFFLINE | |
|
| 20/11/2023 20:04 | |
Ho capito, so che è molto complicato speriamo che arrivi qualche mago davvero.
|
| | Post: 3.134 | Registrato il: 10/10/2013
| Città: VICENZA | Età: 69 | Utente Master | 365 | | OFFLINE |
|
| 20/11/2023 20:05 | |
ciao
quel file è da completare (ne avevo fatto uno similare)
lo scopo è di calcolare il totale in base alla stagione/persone/giorni permanenza
mancano dei mesi
non si hanno le date di permanenza
per il resto è un calcolo noioso da impostare non difficile
la rottura è che quasi sempre ci sono delle date che iniziano con una stagione e finiscono in un'altra
[Modificato da federico460 20/11/2023 20:06] |
| | Post: 886 | Registrato il: 02/04/2018
| Città: PESCARA | Età: 75 | Utente Senior | EXCEL 2016 - SPREAD32 | | ONLINE |
|
| 20/11/2023 20:13 | |
n.diluccio, 20/11/2023 20:04:
Ho capito, so che è molto complicato speriamo che arrivi qualche mago davvero.
be', una stanza, in una certa stagione, per un tot di persone, per un tot di giorni non è che sia un problema di alta matematica, quindi il mago sarebbe quello che ricostruisce tutto cio che manca.
leo
LEO
https://t.me/LordBrum |
| | Post: 3.135 | Registrato il: 10/10/2013
| Città: VICENZA | Età: 69 | Utente Master | 365 | | OFFLINE |
|
| 20/11/2023 21:07 | |
ciao
tutto è facile se si sa come fare😄
io una furbatina l'avrei
per non dover fare calcoli strani nei cambi stagione
adeguo il file e te lo allego |
| | Post: 17 | Registrato il: 29/08/2016
| Città: AGROPOLI | Età: 64 | Utente Junior | Excel 2013 | | OFFLINE | |
|
| 20/11/2023 21:37 | |
Grazie. |
| | Post: 3.136 | Registrato il: 10/10/2013
| Città: VICENZA | Età: 69 | Utente Master | 365 | | OFFLINE |
|
| 20/11/2023 22:09 | |
ciao
senza macro da spostare la tabella dove si vuole e strutturare a piacere
|
| | Post: 18 | Registrato il: 29/08/2016
| Città: AGROPOLI | Età: 64 | Utente Junior | Excel 2013 | | OFFLINE | |
|
| 20/11/2023 23:06 | |
Grazie, adesso ci provo ad inserirlo nel mio file.
Grazie ancora. |
| | Post: 19 | Registrato il: 29/08/2016
| Città: AGROPOLI | Età: 64 | Utente Junior | Excel 2013 | | OFFLINE | |
|
| 21/11/2023 01:19 | |
Buonasera,
le formule funzionano, ma inserendo i dati tramite una Form con delle TextBox quando vengono registrate nelle celle aggiungendo un nuovo rigo le formule non funzionano. Ci vorrebbe una macro.
Grazie comunque federico450. |
| | Post: 3.137 | Registrato il: 10/10/2013
| Città: VICENZA | Età: 69 | Utente Master | 365 | | OFFLINE |
|
| 21/11/2023 01:30 | |
ciao
le formule funzionano se inserisci le date come DATA cioè numeri
lo stesso vale per il numero delle persone
sicuramente tu inserisci TESTO..............
devi formattare l'inserimento delle texbox come numeri.
allega un file funzionante e si sistema |
| | Post: 20 | Registrato il: 29/08/2016
| Città: AGROPOLI | Età: 64 | Utente Junior | Excel 2013 | | OFFLINE | |
|
| 21/11/2023 13:12 | |
Buongiorno federico470,
ho allegato il file funzionante.
Grazie. [Modificato da n.diluccio 21/11/2023 14:43] |
| | Post: 3.138 | Registrato il: 10/10/2013
| Città: VICENZA | Età: 69 | Utente Master | 365 | | OFFLINE |
|
| 21/11/2023 18:02 | |
ciao
come pensavo
il numero persone viene inserito come testo
le formule vanno trascinate in basso non si replicano da sole
perciò la E e la L non vanno cancellate
UR = Range("A" & Rows.Count).End(xlUp).Row
'If UR <= 10 Then GoTo labF
Range("A" & CStr(UR)).Value = ""
Range("B" & CStr(UR)).Value = ""
Range("C" & CStr(UR)).Value = ""
Range("D" & CStr(UR)).Value = ""
Range("F" & CStr(UR)).Value = ""
Range("G" & CStr(UR)).Value = ""
Range("H" & CStr(UR)).Value = ""
Range("I" & CStr(UR)).Value = ""
Range("J" & CStr(UR)).Value = ""
Range("K" & CStr(UR)).Value = ""
Range("M" & CStr(UR)).Value = ""
Range("N" & CStr(UR)).Value = ""
Range("O" & CStr(UR)).Value = ""
se cancelli l'ultima riga le formule spariscono
[Modificato da federico460 21/11/2023 18:18] |
| | Post: 21 | Registrato il: 29/08/2016
| Città: AGROPOLI | Età: 64 | Utente Junior | Excel 2013 | | OFFLINE | |
|
| 21/11/2023 18:14 | |
Ciao,
scusa io non sono un esperto in materia, mi puoi dire cosa devo fare? |
| | Post: 3.139 | Registrato il: 10/10/2013
| Città: VICENZA | Età: 69 | Utente Master | 365 | | OFFLINE |
|
| 21/11/2023 18:38 | |
ciao
trova quella parte di macro e elimina
le stringhe con la E e la L......come vedi dall'immagine
poi
Next x
If tt = False Then
r = r + 1
Sh2.Cells(r, 1) = ComboBox1
Sh2.Cells(r, 2) = ComboBox2
Sh2.Cells(r, 3) = CDate(Label28)
Sh2.Cells(r, 4) = CDate(Label29)
Sh2.Cells(r, 6) = ComboBox3
Sh2.Cells(r, 7) = ComboBox4
Sh2.Cells(r, 8) = ComboBox26 * 1
Sh2.Cells(r, 9) = ComboBox5
Sh2.Cells(r, 10) = TextBox4
Sh2.Cells(r, 11) = TextBox5
nella parte dell'inserimento metti un *1 davanti alla combo26 così diventa un numero
la colonna E non va avvalorata ha la formula
la puoi usare solo se metti il calcolo dei giorni nella text3.......ma non lo fai
mia opinione
hai fatto un file con un codice caotico
avvalori le combo con dati che hai nella tabella ma non servono a niente
visto che non mi pare ci sia un codice per richiamare il tutto
vediamo se gli esperti di vba ci mettono le mani
[Modificato da federico460 21/11/2023 18:43] |
| | Post: 22 | Registrato il: 29/08/2016
| Città: AGROPOLI | Età: 64 | Utente Junior | Excel 2013 | | OFFLINE | |
|
| 21/11/2023 18:55 | |
Molte cose le ho cancella, ho delle Form che richiamano tutti i dati per metterli in evidenza.
Ti ringrazio per il tempo che mi hai dedicato e spero che qualche esperto di VBA ci metta le mani. |
| | Post: 3.140 | Registrato il: 10/10/2013
| Città: VICENZA | Età: 69 | Utente Master | 365 | | OFFLINE |
|
| 21/11/2023 19:15 | |
beh!
quelle variazioni le puoi fare tu tranquillamente
per ora ti fanno funzionare le formule
poi per la text vedo se ci riesco |
| | Post: 23 | Registrato il: 29/08/2016
| Città: AGROPOLI | Età: 64 | Utente Junior | Excel 2013 | | OFFLINE | |
|
| 21/11/2023 19:20 | |
Ho fatto le modifiche che mi hai suggerito, sembra che vada bene. Meglio questo che niente.
Grazie.
|
| | Post: 3.141 | Registrato il: 10/10/2013
| Città: VICENZA | Età: 69 | Utente Master | 365 | | OFFLINE |
|
| 21/11/2023 19:26 | |
allora
ce l'avevi e l'hai eliminato
Private Sub Label29_Click() 'Data minore della data di arrivo
'Dim k '(BUONO)
Application.ScreenUpdating = False
CalendarFrm.Show
Me.Label29.Caption = CalendarFrm.Value
If CDate(Label29) < CDate(Label28) Then MsgBox "Data minore della data di arrivo": Label29 = "": Exit Sub
Label29 = Format(Label29, "dd/mm/yyyy")
TextBox3 = CDate(Label29) - CDate(Label28) + 1
'Call Calc(CDate(Label28), ComboBox2)
'TextBox6 = Format(Val(TextBox3) * Prez, "#,##0.00 €")
End Sub
Next x
If tt = False Then
r = r + 1
Sh2.Cells(r, 1) = ComboBox1
Sh2.Cells(r, 2) = ComboBox2
Sh2.Cells(r, 3) = CDate(Label28)
Sh2.Cells(r, 4) = CDate(Label29)
Sh2.Cells(r, 5) = Val(TextBox3)
Sh2.Cells(r, 6) = ComboBox3
Sh2.Cells(r, 7) = ComboBox4
Sh2.Cells(r, 8) = ComboBox26 * 1
Sh2.Cells(r, 9) = ComboBox5
Sh2.Cells(r, 10) = TextBox4
Sh2.Cells(r, 11) = TextBox5
If TextBox6 <> "" Then Sh2.Cells(r, 12) = CDbl(TextBox6)
If TextBox7 <> "" Then Sh2.Cells(r, 13) = CDbl(TextBox7)
Sh2.Cells(r, 14) = ComboBox9
Sh2.Cells(r, 15) = TextBox8
Sh2.Activate
Sh2.Range("A1:T" & r).Select
Sh2.Sort.SortFields.Clear
Sh2.Sort.SortFields.Add2 Key:=Range("C2:C" & r), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
Sh2.Sort.SortFields.Add2 Key:=Range("A2:A" & r), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
With Sh2.Sort
.SetRange Range("A1:T" & r)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Else
Sh2.Cells(k, 1) = ComboBox1
Sh2.Cells(k, 2) = ComboBox2
Sh2.Cells(k, 3) = CDate(Label28)
Sh2.Cells(k, 4) = CDate(Label29)
Sh2.Cells(k, 5) = Val(TextBox3)
Sh2.Cells(k, 6) = ComboBox3
Sh2.Cells(k, 7) = ComboBox4
Sh2.Cells(k, 8) = ComboBox26 * 1
Sh2.Cells(k, 9) = ComboBox5
Sh2.Cells(k, 10) = TextBox4
Sh2.Cells(k, 11) = TextBox5
Sub Cancella_Ultima_Riga1() 'PRENOTAZIONI
Dim UR As Long
Dim sino As Integer
sino = MsgBox("sei sicuro di eliminare l'ultima riga ?", vbCritical + vbYesNo, "CANCELLA")
If sino = vbYes Then
'MsgBox "Hai scelto SI"
Else
'MsgBox "Hai scelto NO"
Exit Sub
End If
UR = Range("A" & Rows.Count).End(xlUp).Row
'If UR <= 10 Then GoTo labF
Range("A" & CStr(UR)).Value = ""
Range("B" & CStr(UR)).Value = ""
Range("C" & CStr(UR)).Value = ""
Range("D" & CStr(UR)).Value = ""
Range("E" & CStr(UR)).Value = ""
Range("F" & CStr(UR)).Value = ""
Range("G" & CStr(UR)).Value = ""
Range("H" & CStr(UR)).Value = ""
Range("I" & CStr(UR)).Value = ""
Range("J" & CStr(UR)).Value = ""
Range("K" & CStr(UR)).Value = ""
Range("M" & CStr(UR)).Value = ""
Range("N" & CStr(UR)).Value = ""
Range("O" & CStr(UR)).Value = ""
End Sub
cambia queste parti e vedrai che comincia a funzionare
|
| | Post: 24 | Registrato il: 29/08/2016
| Città: AGROPOLI | Età: 64 | Utente Junior | Excel 2013 | | OFFLINE | |
|
| 21/11/2023 21:20 | |
Ho fatto le modifiche che mi hai suggerito credo che funzionano.
Grazie di tutto. |
|
|
|
|