Ver Mensaje Individual
  #12 (permalink)  
Antiguo 14/12/2011, 08:51
carnero
 
Fecha de Ingreso: noviembre-2009
Mensajes: 313
Antigüedad: 4 años, 11 meses
Puntos: 0
Respuesta: borrar fila en excel

Cita:
Iniciado por erbuson Ver Mensaje
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:
Ver original
  1. Dim FilaExcel As Single
  2. For i = 0 To List1.ListCount -1
  3.   If List1.List(i) <> "" Then
  4.       FilaExcel = FilaExcel + 1
  5.       xlSh.Cells(FilaExcel + 3, 1).Value = List1.List(i)   'CODIGO
  6.  End If
  7. 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