borrar fila en excel

[carnero]

hola lo que pasa es que cargo info en un archivo excel, pero tambien me agrega unas filas en blanco la idea es sacarlas, use:

Código vb:

Rows.Select
        Selection.Delete Shift:=xlUp
 

pero no funciono, me borra "el formato" pero no la fila, la idea es que haga esto:

CA CB
1 r
2 ñ
2 d

4 g
5 g

---------> pasar a esto -------->


CA CB
1 r
2 ñ
2 d
4 g
5 g

GRACIAS!

[erbuson]

Hola, entiendo que deberías después de crear la hoja, ejecutar un bucle inverso desde la última hasta la primera, seleccionar la que este en blanco, suprimirla y continuar,

Esto es lo que hace Excel como sabrás cuando seleccionas y eliminas una Fila
Rows("7:7").Select
Selection.Delete Shift:=xlUp

Entonces, sería algo así:
For Fila = Ultima To 1 Step -1
IF ' Fila esta en Blanco según tus condicionantes Then
Row(str$(Fila) & ":" & str$(Fila)).Select
Selection.Delete Shift:=xlUp
End If
Next

Creo que así debería funcionar, independientemente de que si efectuas el proceso desde VB, es de suponer que debes interponer al Row y demás el nombre del Objeto Excel que hayas creado.

Saludos

[carnero]

Iniciado por erbuson

Hola, entiendo que deberías después de crear la hoja, ejecutar un bucle inverso desde la última hasta la primera, seleccionar la que este en blanco, suprimirla y continuar,

Esto es lo que hace Excel como sabrás cuando seleccionas y eliminas una Fila
Rows("7:7").Select
Selection.Delete Shift:=xlUp

Entonces, sería algo así:
For Fila = Ultima To 1 Step -1
IF ' Fila esta en Blanco según tus condicionantes Then
Row(str$(Fila) & ":" & str$(Fila)).Select
Selection.Delete Shift:=xlUp
End If
Next

Creo que así debería funcionar, independientemente de que si efectuas el proceso desde VB, es de suponer que debes interponer al Row y demás el nombre del Objeto Excel que hayas creado.

Saludos

como puedo saber las fila ? gracas
---------------------------------------------------------

no me funciono :P

grCIADS

[erbuson]

¿ Como puedes saber la Fila ? No acabo de ver clara la pregunta, imagino que depende como lo estás poniendo en Excel.

Dim Fila As Single, Rango As String
For Fila = 20 To 1 Step -1
If Cells(Fila, 1) = "" Then
Rows(CStr(Fila) & ":" & CStr(Fila)).Select
Selection.Delete Shift:=xlUp
End If
Next
End Sub

Este ejemplo ejecutado en Excel funciona, comprueba que he tenido que cambiar la manera de indicarle el rango ya que de la otra manera me daba error

[carnero]

Iniciado por erbuson

¿ Como puedes saber la Fila ? No acabo de ver clara la pregunta, imagino que depende como lo estás poniendo en Excel.

Dim Fila As Single, Rango As String
For Fila = 20 To 1 Step -1
If Cells(Fila, 1) = "" Then
Rows(CStr(Fila) & ":" & CStr(Fila)).Select
Selection.Delete Shift:=xlUp
End If
Next
End Sub

Este ejemplo ejecutado en Excel funciona, comprueba que he tenido que cambiar la manera de indicarle el rango ya que de la otra manera me daba error

muuuuuuuuuuuuuuuuuuuuchas gracias

[carnero]

me salto un error!


error en el metodo 'cells' del objeto'_Global'

en

If Cells(Fila, 1) = "" Then



que puede ser?

fila = 95
d = 95

[erbuson]

Hola, el ejemplo está probado en Excel, pero no en VB, no se donde lo estás programando, si pones un trozo del código que utilizas, le doy un vistazo a ver si atino con el problema.

Saludos

[carnero]

Iniciado por erbuson

Hola, el ejemplo está probado en Excel, pero no en VB, no se donde lo estás programando, si pones un trozo del código que utilizas, le doy un vistazo a ver si atino con el problema.

Saludos

despues de agregar los datos a una planilla excel pongo esto

Código vb:

Dim Fila As Single, Rango As String
  
  
  
  
For Fila = List1.ListCount - 1 To 1 Step -1
If Cells(Fila, 1) = "" Then
Rows(CStr(Fila) & ":" & CStr(Fila)).Select
Selection.Delete Shift:=xlUp
End If
Next
 

el error no sale siempre! solo aveces, yo creo que tiene que ver con el numero de filas!!

[erbuson]

Hola, lo único raro que veo es que los valores de ListCount, como sabras pueden ir desde 0 hasta ListCount-1 ya que si por ejemplo ListCount vale 10, sus valores van de 0 a 9

Por otra parte creo que el Valor de Rows, debe empezar necesariamente en 1, por lo tanto en la comparacion debes tenerlo en cuenta, suponiendo que los valores los has puesto de la manera....

For I = 0 To List1.ListCount - 1
' FilaExcel = I + 1 para el elemento I del List
Next

A ver si van por ahí los tiros.

Saludos

[carnero]

For i = 0 To List1.ListCount
xlSh.Cells(i + 3, 1).Value = List1.List(i - 1) 'CODIGO
ETC

ESO?

[erbuson]

Entiendo que aui hay un error ya que en el primer caso al empezar el For en 0 la resta de i-1 devuelve -1

List1.List(i - 1)

Por otra parte el For i = 0 To List1.ListCount debe ir hasta ListCount-1 ya que como te he comentado, si tiene 10 elementos van de 0 hasta 9 cuando ListCount vale 10

De Todos modos, se me ocurre una opcion mas simple que es no pasar el valor si este es nulo, por ejemplo así:

Código vb:

Dim FilaExcel As Single
For i = 0 To List1.ListCount -1
  If List1.List(i) <> "" Then
      FilaExcel = FilaExcel + 1
      xlSh.Cells(FilaExcel + 3, 1).Value = List1.List(i)   'CODIGO
  End If
Next
 

De este modo no tienes que comprobar nada después ¿ No ?

[carnero]

Iniciado por erbuson

Entiendo que aui hay un error ya que en el primer caso al empezar el For en 0 la resta de i-1 devuelve -1

List1.List(i - 1)

Por otra parte el For i = 0 To List1.ListCount debe ir hasta ListCount-1 ya que como te he comentado, si tiene 10 elementos van de 0 hasta 9 cuando ListCount vale 10

De Todos modos, se me ocurre una opcion mas simple que es no pasar el valor si este es nulo, por ejemplo así:

Código vb:

Dim FilaExcel As Single
For i = 0 To List1.ListCount -1
  If List1.List(i) <> "" Then
      FilaExcel = FilaExcel + 1
      xlSh.Cells(FilaExcel + 3, 1).Value = List1.List(i)   'CODIGO
  End If
Next
 

De este modo no tienes que comprobar nada después ¿ No ?

esque desde la base de datos arroja el codigo 1 y no necesito que agregue esete dato al listado de excel, por eso me deja una linea en blanco.
al terminar el listado esta lleno de espacios en blanco que necesito sacar

me entiendes?
gracias

[erbuson]

Pero ¿ No puedes efectuar la comparación antes de pasar el dato a Excel ? creo que es mas simple.

[carnero]

Iniciado por erbuson

Pero ¿ No puedes efectuar la comparación antes de pasar el dato a Excel ? creo que es mas simple.

si puedo!, el problema es que me queda la fila en blanco, me entiendes?

[erbuson]

Hola, de nuevo, lo que no entiendo es que si pasas los datos del List 1 a 1 hacia Excel, ¿ porque no puedes condicionar la fila que lo recibirá ?, a no ser que lo pases directamente todos.

Se me ocurre en otro caso que porque no haces un bucle inverso sobre el List antes de pasar hacia Excel y con el Remove vas eliminando los items que no quieras.

Algo mas o menos así:

Código vb:

Private Sub SinNulos()
  Dim f As Single
  For f = List1.ListCount - 1 To 0 Step -1
    If List1.List(f) = "" Then List1.RemoveItem f
  Next
End Sub
 

Saludos

[carnero]

Lo intentare