[Excel]-VBA-macro per aggiornamento di una dashboard

[zip 87]

grazie flash è un'ottima idea.

Mi servirebbe un altro spunto, ho una data in un formato gg/mm/aaaa hh:mm per ottenere solo il valore gg-mmm, ossia facendo in modo che nella cella ci sia solo il valore gg-mmm, c'è qualcosa oltre arrotonda.difetto?

[Flash30005]

Come arrotondare per difetto!?
Formatti semplicemente per "dd/mmm"
Guarda alcuni miei esempi fatti proprio in questo topic (tuo topic)

ciao

[zip 87]

Flash se cambio semplicemente il formato, nella cella resta comunque il valore gg/mm/aaaa hh:mm.
Invece se arrotondo difetto mi toglie le hh e i minuti e riesco ad utilizzare i giorni e il mese,

[Flash30005]

Se è una data formattando "dd/mmm" troverai solo il giorno e mese (esteso) se è una stringa allora troverai ciò che dici tu in quanto la formattazione data non riconosce la stringa allora usa la funzione Mid(TuaStringaData), 1,10) e poi formatti in data "dd/mmm"

se hai problemi posta ancora

ciao

[zip 87]

Scusa Flash, ma "MID" o "MIN" anche perchè mid non lo trovo

Codice: Seleziona tutto

For FF = 1 to worksheets.cont
If Sheets(FF).name <> "FoglioDaEscludere"  then
' Aggiornamento Pivot di ogni foglio
end if
next FF

quindi a "name" devo sostituire il nome del foglio tra apici, come a "FoglioDaEscludere"?


Ciao

[Flash30005]

Nel VbA Mid(stringa, 1, <ncaratteri) corrisponde a Estrai.Stringa
quindi parlo di codice VBA e prendendo dal primo carattere a 10° carattere hai la data se formattata in gg/mm/aaaa
dopodiché chiedi il formato (VBA) "dd/mmm")
Il tutto, credo da fare con ciclo For...Next di ogni riga/colonna di tuo interesse

ciao

[zip 87]

Scusa Flash e se non volessi usare vba ma semplicemente una formula?

[Flash30005]

Usa Stringa.Estrai(CellaCheContieneLaStringa;1;10) del quale trovi il Valore
ad esempio se la data stringa è in A1, allora

Codice: Seleziona tutto

VALORE(STRINGA.ESTRAI(A1;1;10))

e poi formatti la cella come vuoi
gg mmm
etc

Ciao

[zip 87]

Essendo il contenuto di quella cella un numero 1234,4567 poi vista con in formato gg/mm/aaaa hh:mm, arrotonda difetto dava lo stesso risultato della formula che mi hai mandato, ma uso quella così imparo qualcosa di nuovo,

Grazie

Ciao

[zip 87]

Volevo ringraziare Anthony e Flash, il file sembra funzionare bene

Adesso stavo provando ad inserire una userForm con una immagine di loading, ma non riesco a farla funzionare.
La UserForm viene caricata, ma la macro 2 non viene eseguita.

Ho creato la userform e all'apertura del workbook ho inserito:

Codice: Seleziona tutto

Private Sub Workbook_Open()

'macro1

UserForm.show

'macro2

Unload UserForm

end sub

poi ho inserito questa per evitare che si potesse chiudere

Codice: Seleziona tutto

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = vbFormControlMenu Then Cancel = True
End Sub

Pareri?

[zip 87]

risolto con

Codice: Seleziona tutto

userForm.show vbModeless

DoEvents

'macro

unload Userform

e sul codice UserForm invariato come ho scritto nel post precedente