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à
    51
    Messaggi
    872
    Versione Office
    2010
    Likes ricevuti
    24
    Likes dati
    187

    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à
    73
    Messaggi
    3224
    Versione Office
    Excel2010
    Likes ricevuti
    628
    Likes dati
    155

    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à
    49
    Messaggi
    4920
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1127

    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

  4. #4

    L'avatar di Rubik72
    Clicca e Apri
    Data Registrazione
    Dec 2015
    Località
    Cosenza
    Età
    45
    Messaggi
    2833
    Versione Office
    Excel 2013
    Likes ricevuti
    1027
    Likes dati
    983

    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à
    51
    Messaggi
    872
    Versione Office
    2010
    Likes ricevuti
    24
    Likes dati
    187

    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à
    49
    Messaggi
    4920
    Versione Office
    2013
    Likes ricevuti
    1117
    Likes dati
    1127

    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

  7. #7
    L'avatar di G.Bove
    Clicca e Apri
    Data Registrazione
    Oct 2015
    Località
    Milano
    Età
    51
    Messaggi
    872
    Versione Office
    2010
    Likes ricevuti
    24
    Likes dati
    187

    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, 18:13
  2. Risposte: 6
    Ultimo Messaggio: 03/11/16, 06:20
  3. Annulla spazi col vba
    Di ges nel forum Domande su Excel VBA e MACRO
    Risposte: 9
    Ultimo Messaggio: 17/02/16, 20: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, 17:44
  5. inserimento automatico basato sulla data
    Di Diego nel forum Domande su Excel in generale
    Risposte: 9
    Ultimo Messaggio: 25/11/15, 18: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
  •