Risultati da 1 a 7 di 7

Discussione: Elimino spazi ma la data non si sposta sulla DX



  1. #1
    L'avatar di G.Bove
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Milano
    Età
    52
    Messaggi
    907
    Versione Office
    2010
    Likes ricevuti
    25
    Likes dati
    200

    Elimino spazi ma la data non si sposta sulla DX

    Ciao a tutti,
    nell'importazione di un CSV mi porto dietro anche degli spazi vuoti.
    Con le mie limitate conoscenze, mixando aiuti e preghiere ho unito il tutto in questa macro:
    Codice: 
    Sub Esegui_tutte()
    Call RescueMarius_R1R2
    Call VuotoSpazi_Ricky1
    Call Vuotoaperdere1
    Call sostituisci_punto1
    End Sub
    
    Sub RescueMarius_R1R2()
    
      ' ................
      
    End Sub
    
    Public Sub VuotoSpazi_Ricky1()
        Dim Sh As Worksheet
        Dim LRiga As Long
        Dim Lng As Long, Col As Integer
        Set Sh = ThisWorkbook.Worksheets("Analisi2")
        Application.ScreenUpdating = False
        With Sh
            LRiga = .Range("K" & .Rows.Count).End(xlUp).Row
            For Col = 11 To 12 ' <<===== 11 = Colonna "K",  19 = Colonna "L"
                LRiga = .Cells(Rows.Count, Col).End(xlUp).Row
                For Lng = 1 To LRiga
                    .Cells(Lng, Col).Value = _
                    Replace(.Cells(Lng, Col).Value, " ", "")
                Next Lng
            Next Col
        End With
        Set Sh = Nothing
        Application.ScreenUpdating = True
        MsgBox "Elaborazione effettuata"
    End Sub
    
    Public Sub Vuotoaperdere1()
    Dim Sh As Worksheet
    Dim LRiga As Long
    Dim Lng As Long
    Set Sh = ThisWorkbook.Worksheets("Analisi2")
    With Sh
    LRiga = .Range("N" & .Rows.Count).End(xlUp).Row
    For Lng = 1 To LRiga
     .Range("N" & Lng).Value = _
    Replace(.Range("N" & Lng).Value, " ", "")
    Next
    End With
     Set Sh = Nothing
    
    End Sub
    
    
    Sub sostituisci_punto1()
    '
    ' sostituisce i punti con i due punti
    '
        Columns("M").Select
        Selection.Replace What:=".", Replacement:=":", LookAt:=xlPart, _
            SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
            ReplaceFormat:=False 'toglie gli spazi vuoti
            Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
     SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
     ReplaceFormat:=False
    
    End Sub
    Ma nella colonna L (presente una data) vengono eliminati gli spazi ma per permettere alla data di spostarsi a dx devo entrare nella celle cliccando con il mouse e poi dare invio per tutte le le righe.
    Ovviamente c'è un'istruzione che non conosco. Mi aiutate?



    PS Non inserisco allegato perchè:
    1) spero che il mio tutor Ges e il maestro Marius...non siano collegati.
    2) che dopo la risposta di qualcuno di buon cuore questo thread si autodistrugga.

    Gene

  2. #2
    L'avatar di Marius44
    Clicca e Apri
    Data Registrazione
    Sep 2015
    Località
    Catania
    Età
    74
    Messaggi
    4004
    Versione Office
    Excel2010
    Likes ricevuti
    827
    Likes dati
    176

    Re: Elimino spazi ma la data non si sposta sulla DX

    Ciao Gene
    prova a mettere il seguente codice nella macro
    Sub sostituisci_punto1()
    Codice: 
    Selection.HorizontalAlignment = xlRight
    ovviamente adattandola alla colonna che ti interessa.

    Ciao,
    Mario

  3. #3
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    50
    Messaggi
    5386
    Versione Office
    office 365/2016
    Likes ricevuti
    1272
    Likes dati
    1339

    Re: Elimino spazi ma la data non si sposta sulla DX

    Ciao
    Forse perchè queste date vengono riconosciute come testo, cioè non te le riconosce come numero seriale e quindi dovresti aggiungere una qualsiasi operazione matematica con le formule esempio esempio =data+0, oppure =data*1, oppure =data /1
    però queste operazioni potrebbero diventare lunghissime.

    La stessa operazione potresti farla con "Incolla Speciale"

    Procedi cosi:
    1) clicca qualsiasi cella vuota
    2) copia questa cella vuota (CTRL+C)
    2) seleziona tutte le date interessate
    3) mouse destro -> incolla speciale->Addizione

    adesso dovresti averle allineate sulla destra
    Un saluto
    Se non lo sai spiegare in modo semplice, non l'hai capito abbastanza bene Cit. Einstein

  4. #4

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    46
    Messaggi
    3521
    Versione Office
    Excel 2013
    Likes ricevuti
    1226
    Likes dati
    1293

    Re: Elimino spazi ma la data non si sposta sulla DX

    Un saluto a tutti. Soluzione tramite VBA (ciclo che converte in data):

    Codice: 
    Sub ConvertiDate()
    Dim uRiga As Long
    Dim iCount As Long
    
    
    uRiga = Range("L" & Rows.Count).End(xlUp).Row
    
    
    For iCount = 2 To uRiga
        Range("L" & iCount) = CDate(Range("L" & iCount))
    Next
    End Sub

  5. #5
    L'avatar di G.Bove
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Milano
    Età
    52
    Messaggi
    907
    Versione Office
    2010
    Likes ricevuti
    25
    Likes dati
    200

    Re: Elimino spazi ma la data non si sposta sulla DX

    Grazie a tutti
    [RISOLTO]

    Alla prossima.
    Gene

  6. #6
    L'avatar di Gerardo Zuccalà
    Clicca e Apri
    Data Registrazione
    May 2015
    Località
    Milano, Italy
    Età
    50
    Messaggi
    5386
    Versione Office
    office 365/2016
    Likes ricevuti
    1272
    Likes dati
    1339

    Re: Elimino spazi ma la data non si sposta sulla DX

    Ciao Gene, sarebbe interessante sapere come hai risolto, con la Macro o con Incolla speciale , un saluto
    Se non lo sai spiegare in modo semplice, non l'hai capito abbastanza bene Cit. Einstein

  7. #7
    L'avatar di G.Bove
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Milano
    Età
    52
    Messaggi
    907
    Versione Office
    2010
    Likes ricevuti
    25
    Likes dati
    200

    Re: Elimino spazi ma la data non si sposta sulla DX

    Ciao Gerardo,
    ho preferito il metodo VBA, perchè definitivo e duraturo. L'incolla speciale mi avrebbe costretto a ripetere l'operazione ad ogni interrogazione.

    Gene

Discussioni Simili

  1. [Risolto] Rimozione spazi
    Di ama1990 nel forum Domande su Excel in generale
    Risposte: 13
    Ultimo Messaggio: 14/12/16, 17:13
  2. Risposte: 6
    Ultimo Messaggio: 03/11/16, 05:20
  3. Annulla spazi col vba
    Di ges nel forum Domande su Excel VBA e MACRO
    Risposte: 9
    Ultimo Messaggio: 17/02/16, 19:17
  4. Conta Valori per Colonna e Sposta i Totali
    Di A.Maurizio nel forum Domande su Excel VBA e MACRO
    Risposte: 17
    Ultimo Messaggio: 30/11/15, 16:44
  5. inserimento automatico basato sulla data
    Di Diego nel forum Domande su Excel in generale
    Risposte: 9
    Ultimo Messaggio: 25/11/15, 17:55

Permessi di Scrittura

  • Tu non puoi inviare nuove discussioni
  • Tu non puoi inviare risposte
  • Tu non puoi inviare allegati
  • Tu non puoi modificare i tuoi messaggi
  •