Jump to content

Buscar primera celda vacía en una columna


Recommended Posts

Hola, al buscar la primera celda vacía de una columna me surge un problemilla: el código

Sub Macro1()
Dim fila As Double

'la primera fila vacía será

fila = Range("A" & Rows.Count).End(xlUp).Row

'la línea anterior da 1 si la primera celda está vacía y
'también si solo la primera tiene datos
End Sub
[/CODE]

da como resultado [color=#ff0000][b]"1"[/b][/color] si la primera celda está vacía y también [color=#ff0000][b]"1"[/b][/color] si solo la primera tiene datos. A partir de que haya dos celdas da resultados coherentes. Os dejo tres imágenes para ilustrar esto.

¿Hay algo que se pueda hacer para que cuando no haya celdas esta comprobación arroje [b][color=#ff0000]"0"[/color][/b]? Naturalmente sin comprobaciones posteriores que hagan perder tiempo, tipo:

[CODE]If TypeName(Range("A1")) = "Empty" Then fila = 0[/CODE]

post-145254-145877009509_thumb.png

post-145254-145877009511_thumb.png

post-145254-145877009513_thumb.png

post-145254-145877009515_thumb.png

Link to comment
Share on other sites

alli NO hay ningún problema, el código está bien, alli estas buscando la última fila con datos, si quieres la ultima fila vacia, pues por logica será la siguiente fila despues de la última fila con datos, es decir

fila= fila+1

nota: si la columna está vacia, la macro te arroja 1 porque NO existe la fila 0 (cero), si tu tabla NO tiene encabezados, pues tendras que verificar si realmente la primera fila está vacia para escribir en ella, algo asi (lo escribi directamente, no copie nada) (existe 1.000.000 de formas diferentes de hacerlo)

if fila = 1 then
IF range("A1").VALUE ="" THEN
Fila=0
END IF
end if
fila=fila+1[/CODE]

suerte

Link to comment
Share on other sites

Gracias por la respuesta. Son diferentes formas de interpretar el código. En realidad el código no devuelve la última fila vacía como bien dices, sino la última fila con datos (otra cosa es para qué lo uses tú después): si te fijas en las figuras que he enviado es así. Si no hay celdas con datos la respuesta lógica habría de ser (0).

Evidentemente yo no lo entiendo como la mayoría y estoy equivocado pero me cuesta comprender que haya un mismos resultado (1) para dos situaciones diferentes.

Yo lo tengo resuelto de esta manera, pero me fastidia perder el tiempo en una comprobación que sería innecesaria si el código pudiera devolver (0)

    fila = Range("A" & Rows.Count).End(xlUp).Row
If TypeName(Range("A1").Value) = "Empty" Then fila = 0
fila = fila + 1
[/CODE]

Link to comment
Share on other sites

Yo lo tengo resuelto de esta manera, pero me fastidia perder el tiempo en una comprobación que sería innecesaria si el código pudiera devolver (0)

el códido escrito

fila = Range("A" & Rows.Count).End(xlUp).Row

regresa siempre un número de fila, por lo cual es IMPOSIBLE que regrese un valor 0 (cero) ya que como dije antes, la FILA 0 (cero) no existe, por ello es que debes hacer la comprobación, y no lo veas como perdida de tiempo, perdida de tiempo es no hacerlo y luego estar buscando el porque los datos no estan como deberia de estar.

Link to comment
Share on other sites

Prueba así:

Sub BuscarÚltimaFila()
ÚltimaFila = ActiveSheet.UsedRange.Rows.Count - _
WorksheetFunction.CountIf(Range("A1:A" & ActiveSheet.UsedRange.Rows.Count), "")
End Sub[/CODE]

Solo funciona si el rango de datos es continuo.

Link to comment
Share on other sites

Archived

This topic is now archived and is closed to further replies.

  • Crear macros Excel

  • Posts

    • @Sergio primeramente pido disculpas por usar este hilo, pero tengo la siguiente consulta porque ya no se me permite adjuntar archivos en el foro?
    • Hola @ffernando, A la espera de que te pueda ayudar alguien con mas conocimientos que yo, a ver si te sirve. Primero de todo, debes tener los 2 archivos excel en una misma carpeta.  Uno con las macros y otro con la "Base de datos" En el archivo con macros debes crear 2 procesos: Function IsFileOpen(FileName As String) Dim iFilenum As Long Dim iErr As Long On Error Resume Next iFilenum = FreeFile() Open FileName For Input Lock Read As #iFilenum Close iFilenum iErr = Err On Error GoTo 0 Select Case iErr Case 0: IsFileOpen = False Case 70: IsFileOpen = True Case Else: Error iErr End Select End Function y este otro  Sub LiberarBarra() Application.StatusBar = False End Sub estos 2 procesos los debe tener en un modulo. Por último debes poner el siguiente código en el botón que hayas asignado para realizar la entrada de datos. Dim objExcel As Application Dim RutaArchivo As String Dim Texto As String Dim Fila As Integer Dim Final As Integer Texto = "Guardando los datos" Application.StatusBar = Texto Set objExcel = CreateObject("Excel.Application") With objExcel RutaArchivo = ThisWorkbook.Path & "\NOMBRE DEL LIBRO QUE ALMACENARA LOS DATOS.xlsx" If IsFileOpen(RutaArchivo) Then MsgBox "El libro debe estar cerrado para proceder." Exit Sub Else With .Workbooks.Open(RutaArchivo) For Fila = 2 To 1000 If .Worksheets("NOMBRE DE TU HOJA DESTINO").Cells(Fila, 1) = "" Then Final = Fila Exit For End If Next COPIA ESTA LINEAS PARA CADA UNO DE TUS BOX PARA REALIZAR LA ENTRADA DE DATOS .Worksheets("NOMBRE DE TU HOJA DESTINO").Cells(Final, 1) = ME.TXT_NOMBRE DE TU BOX .Worksheets("NOMBRE DE TU HOJA DESTINO").Cells(Final, 2) = ME.TXT_NOMBRE DE TU BOX COPIA ESTA LINEAS PARA CADA UNO DE TUS BOX PARA REALIZAR LA ENTRADA DE DATOS ME.TXT_NOMBRE DE TU BOX.Value = Empty .Close SaveChanges:=True End With End If End With Call LiberarBarra MsgBox "Datos guardados correctamente!" End Sub Con esto debería de funcionarte. De todos modos, si compartes el archivo será mucho mejor. Saludos,
    • Hola tod@s!!! me gustaría saber como puedo capturar los datos de un formulario a un otro libro (que no sea el libro que contiene la macro con el form). La idea es que varias personas puedan ir criando datos desde formularios "personales" y que estos datos generados por todos sean grabados  una única hoja. ahora mismo tengo el formulario funcionando, pero cada usuario guarda en "su archivo" la información. :( les agradezco de antemano toda la ayuda!!!
    • Hola sagamoal Ser miembro de paga, te da algunas ventajas, como subir archivos. Prueba esta formula, deberás adecuar a tus rangos =SI(INDICE(MES(Hoja1!$D$5:$D$9)=7,COINCIDIR(B6,Hoja1!$B$5:$B$9,)),INDICE((Hoja1!$D$5:$D$9,Hoja1!$E$5:$E$9),COINCIDIR(B6,Hoja1!$B$5:$B$9,),,SI(Hoja2!C6="i",1,2)),"") B6 es el código, y lo busca en la hoja 1 en la columna que corresponda. te adjunto imágenes para que te guíes. hoja1 Espero te sea de utilidad Saludos, Silvia   Hoja2    
    • Esta es la propiedad: ActiveSheet.Shapes(ShapeName).Fill.Transparency = valor (Entre 0 y 1) Por asociación con el resto de scrollsbar, no creo que un nuevo control para que controle esta propiedad.
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy