Como averiguar la primera columna con datos.

[Benito Bartolomé]

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. 

[JSDJSD]

Prueba a ver que tal          

[JSDJSD]

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

 

[Benito Bartolomé]

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.

 

[Benito Bartolomé]

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. 

 

 

[Gerson Pineda]

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 

[Gerson Pineda]

Recién me doy cuenta que leí mal ?

Necesitas buscar la primera columna

col = Hoja1.UsedRange.Column

 

Saludos 

[JSDJSD]

A ver a hora                       

[JSDJSD]

 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

 

[DiegoPC]

Hola

 

Puedes lograrlo con esta línea

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

[Benito Bartolomé]

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.

[Benito Bartolomé]

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.

[Benito Bartolomé]

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.

 

[hernan medina]

buenos dias, podria luego de localizar la primera columna reemplazar la variable en una formula dada? por ejemplo

ult = Range("XFD1").End(xlToLeft).Column

h = -(Cells(ult, 1).End(xlToRight).Column)

 Range(Cells(2, ult), Cells(2, ult - 1).End(xlDown).Offset(0, 1)) = _
        "=+IF(VALUE(LEFT(R[1]C[x],RC[-1]))=RC[-8],"""",""Auxiliar"")"

 quiero reemplazar la primera columna hallada con este codigo por el valor -8, para que el cabio sea automatico

[Antoni]

Range(Cells(2, ult), Cells(2, ult - 1).End(xlDown).Offset(0, 1)) = _
        "=+IF(VALUE(LEFT(R[1]C[x],RC[-1]))=RC[" & h & "],"""",""Auxiliar"")"