Sviluppare funzionalita su Microsoft Office con VBA Numero ultima cella piena in un range che potrebbe avere colonne vuote

LoginRegistrati
Stai vedendo 4 articoli - dal 1 a 4 (di 4 totali)
  • Autore
    Articoli
  • #23452 Risposta

    Juk
    Partecipante

      Ciao a tutti, ho cercato parecchio senza trovare una risposta; il mio problema, come anticipato nel titolo, è di riuscire a ottenere il numero dell'ultima colonna che contiene dati in un foglio dove potrebbero esserci delle colonne vuote.

      Col solito sistema, che riporto qui sotto, ottengo il numero dell'ultima colonna solo nel caso tutte le celle piene siano contigue.

      totCols = Cells(2, Columns.Count).End(xlToLeft).Column

      Per intenderci, nel caso avessi 5 colonne di cui la quarta vuota totCols varrebbe 3 e non 5

      Vi ringrazio in anticipo per il vostro aiuto, Luca

      #23459 Risposta
      tanimon
      tanimon
      Partecipante
        5 pts

        ciao a tutti,

        ciao Juk,

        prova e fai sapere.

         

        ciao

        Frank

        Sub prova()
        
        ' macro testata per 10 righe
        
        Dim uc As Long, ucol As Long
        ucol = 0
        
        For r = 1 To 10
        
            uc = Cells(r, Columns.Count).End(xlToLeft).Column
            If uc > ucol Then ucol = uc
            
        Next r
        MsgBox ucol
        End Sub
        

         

        o meglio ancora

        `ucol = ActiveSheet.UsedRange.Columns.Count
        `
        #23466 Risposta

        Mister_x

          ciao

          trovare l'ultima riga e ultima colonna in qualsiasi posizione del foglio

          Nriga = UsedRange.Row + UsedRange.Rows.Count - 1
          Ncolonna = UsedRange.Column + UsedRange.Columns.Count - 1

          ciao

           

          #23724 Risposta

          Juk
          Partecipante

            Ciao, grazie infinite per il vostro aiuto, proverò sicuramente le due vostre proposte che mi interessano molto

            ma nel frattempo ho sistemato la cosa con una riga copiata 'brutalis', non lo nascondo, da un altro sito.

            Al momento, per mancanza di tempo, non l'ho ancora approfondita ma funziona alla grande:

            totCols = Cells.Find("*", [A1], , , xlByColumns, xlPrevious).Column

            Vi aggiorno sui miei test che farò con le vs. proposte, grazie ancora per il vs. tempo

            Luca

          LoginRegistrati
          Stai vedendo 4 articoli - dal 1 a 4 (di 4 totali)
          Rispondi a: Numero ultima cella piena in un range che potrebbe avere colonne vuote
          Gli allegati sono permessi solo ad utenti REGISTRATI
          Le tue informazioni:



          vecchio frac - 2750 risposte

          albatros54
          albatros54 - 940 risposte

          patel
          patel - 817 risposte

          Marius44
          Marius44 - 708 risposte

          Luca73
          Luca73 - 624 risposte