Jump to content

Como averiguar la primera columna con datos.


Recommended Posts

Hola a todos,

Una duda que no he sabido resolver y es como puedo a averiguar cuál es la primera columna con datos sin indicarle al procedimiento ni la fila ni la columna, lo tendría que detectar el procedimiento. 

Igual no se puede, sí es así hacérmelo saber. 

Sé la que el código para la última columna es:

uC=Cells(1,1).End(xlToRight).Column

Pero en el le estamos indicando las coordenadas (fila,columna).

He puesto el ejemplo (1,1) pero puedo tenerla en cualquier parte de la hoja.

Saludos. 

Link to comment
Share on other sites

Private Sub CommandButton1_Click()

    primeracol = Cells(1, 1).End(xlToRight).Column
    MsgBox "Primera columna con datos en fila 1 es: " _
        & "La columna " & "** " & primeracol & " **"

End Sub

 

Link to comment
Share on other sites

Hace 17 minutos , JSDJSD dijo:
Private Sub CommandButton1_Click()

    primeracol = Cells(1, 1).End(xlToRight).Column
    MsgBox "Primera columna con datos en fila 1 es: " _
        & "La columna " & "** " & primeracol & " **"

End Sub

 

Hola JSDJSD, gracias por la ayudita.  

Lo estoy viendo desde el móvil y no puedo probar pero te comento lo que veo:

-Usas siempre la primera fila y la primera columna está vacía.

ENTONCES:

Si yo tengo la columna "A" con datos, ¿cuál es el procedimiento que me indique que la primera fila con datos es la "A", no la adyacente  y si es la "B" pues me diga que es la "B", etc.

Como decía, yo no voy a darle coordenadas la macro debe buscar por toda la hoja donde está la primera columna, fila con datos o también me vale el rango. ¿ Es posible?

Disculpa si te estoy liando.

Gracias  JSDJSD.

 

Link to comment
Share on other sites

Hace 48 minutos , JSDJSD dijo:
Private Sub CommandButton1_Click()

    primeracol = Cells(1, 1).End(xlToRight).Column
    MsgBox "Primera columna con datos en fila 1 es: " _
        & "La columna " & "** " & primeracol & " **"

End Sub

 

JSDJSD,  corrijo lo siguiente:

Si yo tengo la columna "A" con datos, ¿cuál es el procedimiento que me indique que la primera fila con datos es la "A", no la adyacente  y si es la "B" pues me diga que es la "B", etc.

Esto lo hace bien  sólo me falta comprobar la primera columna que me indique que es la "A" o "1".

Disculpa. 

 

 

Link to comment
Share on other sites

Hace 1 hora, Benito Bartolomé dijo:

como puedo a averiguar cuál es la primera columna con datos sin indicarle al procedimiento ni la fila ni la columna, lo tendría que detectar el procedimiento

Prueba así:

vuc = Hoja1.UsedRange.SpecialCells(xlCellTypeLastCell).Column

Reemplaza hoja1 por la que corresponde

 

Saludos 

Link to comment
Share on other sites

 For cont = 1 To 16361
        With Hoja1
            letra = Split(Cells(cont).Address, "$")(1)
            ufh1 = .Range(letra & Columns.Count).End(xlUp).Row
            If ufh1 > 1 Then
                letcol = .Range(letra & 1).Column
                MsgBox letcol
                Exit For
            End If
        End With
    Next cont

 

Link to comment
Share on other sites

Hace 7 horas, Gerson Pineda dijo:

Recién me doy cuenta que leí mal 😄

Necesitas buscar la primera fila

col = Hoja1.UsedRange.Column

 

Saludos 

Gracias Gerson, te debo una.

Pensé que era una alucinación mía y no se podía pero veo que en VBA es difícil ponerle limites.

Un abrazo y muchas gracias.

Link to comment
Share on other sites

Hace 6 horas, JSDJSD dijo:
 For cont = 1 To 16361
        With Hoja1
            letra = Split(Cells(cont).Address, "$")(1)
            ufh1 = .Range(letra & Columns.Count).End(xlUp).Row
            If ufh1 > 1 Then
                letcol = .Range(letra & 1).Column
                MsgBox letcol
                Exit For
            End If
        End With
    Next cont

 

Hola JSDJSD, disculpa la tardanza.

Perfecto ahora hace lo que yo pretendía. Como lo comenté a Gersón me parecía muy difícil sin aportar ningún dato de las coordenadas (fila, columna)

Muy agradecido. Buen día.

Link to comment
Share on other sites

Hace 4 horas, DiegoPC dijo:

Hola

 

Puedes lograrlo con esta línea

MsgBox "Primera celda llena: " & ActiveSheet.UsedRange.Cells(1).Address(False, False)

Hola Diego, no por ser el último en llegar tú procedimiento está también genial. Me gusta mucho también.

Veo que con lo que pasas tú @Gerson Pineda y @JSDJSDtengo tres posibles soluciones, que fantástico es VBA.

Un abrazo y muchas a los tres.

 

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
×
×
  • Create New...

Important Information

Privacy Policy