Moderatori: Anthony47, Flash30005
Soluzione a quanto richiesto : "10 Dec vorrei che fosse trasformato in una data tipo 10/12/2014"
Ipotizzando che "10 dic" sia in A1, scrivi in B1 =testo(A1;"gg/mm/aaaa")
Così trasformi 10 dic in 10/12/2014
Sub TrasfTxtData()
UR = Range("A" & Rows.Count).End(xlUp).Row
Columns("B:B").ClearContents
For RR = 1 To UR
TD = UCase(Right(Range("A" & RR).Value, 3))
MGG = Trim(Left(Range("A" & RR).Value, 2))
MAA = "2014"
Select Case TD
Case "GEN"
MMese = "01"
Case "FEB"
MMese = "02"
Case "MAR"
MMese = "03"
Case "APR"
MMese = "04"
Case "MAG"
MMese = "05"
Case "GIU"
MMese = "06"
Case "LUG"
MMese = "07"
Case "AGO"
MMese = "08"
Case "SET"
MMese = "09"
Case "OTT"
MMese = "10"
Case "NOV"
MMese = "11"
Case "DIC"
MMese = "12"
End Select
Range("B" & RR).Value = CDate(MGG & "/" & MMese & "/" & MAA)
Range("B" & RR).NumberFormat = "dd/mm/yyyy"
Next RR
End Sub
in relazione al quesitoe' irrisolvibile, perche' non e' sufficientemente dettagliato
Torna a Applicazioni Office Windows
Supporto per sviluppo macro VBA Ordinare per data Autore: Carletto Ribolla |
Forum: Applicazioni Office Windows Risposte: 3 |
Inserire add.in nella barra di avvio veloce in excel 2003 Autore: Ricky0185 |
Forum: Applicazioni Office Windows Risposte: 4 |
Trasformare celle con formattazioni in html Autore: servicedynergy |
Forum: Applicazioni Office Windows Risposte: 5 |
Excel: problema con date se devo unirle a testi Autore: valle1975 |
Forum: Applicazioni Office Windows Risposte: 5 |
Visitano il forum: Nessuno e 8 ospiti