Problema con eliminado de filas en excel 2007/2016 en VB.NET

[Yaldabaot]

Hola amigos del foro, vengo yo a uds de nuevo luego de numerosos intentos y desesperación, ya que sinceramente ya no se que podré estar haciendo mal.

Estoy haciendo una automatización en VB.NET 2010 en Excel, la cuál consiste en un limpiado de un archivo. Me pidieron unas modificaciones en el programa entonces tuve que cambiarlo bastante pero al final de cuentas el funcionamiento en sí del programa lo hace bien, excepto en un pequeño gran detalle el cuál es que no elimina las filas que yo quiero que elimine, estas para ser eliminadas simplemente tienen que ser un campo vacío, simplemente es eso pero no entiendo porque el programa no lo hace.

Les dejo acá el fragmento del método

Código (vbnet) [Seleccionar] Expandir




      'Variables a utilizar

       Dim str_cod As String = String.Empty
       Dim str_xxx As String = String.Empty
       Dim str_sku As String = String.Empty


       Dim xlWorkSheet As Excel.Worksheet = Nothing ' Hojas


       Dim i As Integer = 0 'Contador del ciclo

       Dim xcell As New Object

       xlWorkSheet = xlworkbook.Sheets("Hoja2") 'Hoja que estoy utilizando
       Dim xlrange_col2 As Range = Nothing

        'Progress Bar que utilizo

       pg_proceso_inventario.Minimum = 1
       pg_proceso_inventario.Maximum = filas


       'Este es el rango que recorro de la hoja de excel
       xlrange_col2 = xlWorkSheet.Range("B2:" + "B" + filas) 'Rango filas
     
        i = 2 ' Debe empezar en 2 porque este posee un encabezado

       'Esto es un checkbox consiste en que si quiero quitar o dejar todos. ignorar esto
       If chkDejarTodos.Checked = False Then

           'Ciclo que empiezo a recorrer el rango

           For Each xcell In xlrange_col2

               pg_proceso_inventario.Value = pg_proceso_inventario.Value + 1
               lbl_indice_numero.Text = i.ToString

               'limpiamos las variables

               str_cod = Nothing 'Código1
               str_xxx = Nothing 'Código XXX
               str_sku = Nothing 'Código SKU

               str_cod = Convert.ToString(xlWorkSheet.Cells(i, 1).Value) 'Código1
               str_xxx = Convert.ToString(xlWorkSheet.Cells(i, 2).Value) 'Código XXX
               str_sku = Convert.ToString(xlWorkSheet.Cells(i, 3).Value) 'Código SKU


               'Si el checkbox de familia no está activado procedemos a eliminar todo aquel
                'que no empiece por 77 y está vacío

               If chk_Familia.Checked = False Then

                   If str_cod.StartsWith("77") Then
                       i = i + 1

                   'Acá es el maldito problema, no lo elimina de ninguna forma

                   ElseIf (no_vacio(str_xxx) = False) Then
                       ' xlWorkSheet.Rows(i).delete()
                       With xlWorkSheet
                           .Rows.Item(i).delete()
                       End With

                       'xlWorkSheet.Cells(i, 2).Value = "DEBO ELIMINARME"
                       i = i + 1
                   Else
                       i = i + 1
                   End If

               Else
                   'Si el checkbox está activado
                   If str_cod.StartsWith(str_familia) Then
                       i = i + 1
                   Else
                       xlWorkSheet.Rows(i).Delete()
                       i = i + 1
                   End If
               End If

           Next
       End If

       pg_proceso_inventario.Value = pg_proceso_inventario.Minimum
       xlworkbook.Save()

       lbl_Cant_Produc.Text = devolver_filas(xlapp, xlWorkSheet)

       release_object(xlrange_col2)
       release_object(xlWorkSheet)





Bien les voy a explicar en prosa un poco más el código, consiste en recorrer ese rango desde B2 hasta la cantidad de filas que posee el archivo, cuando el encuentra un código que empieza por 77 el lo ignora si este ya no empieza por 77 entonces verifica que el código 2 (o sea la fila B del rango que estamos recorriendo) sea vacío y si no lo es lo elimina se supone porque en realidad no lo hace....


Bien este es el método que averigua si hay algo

Código (vbnet) [Seleccionar] Expandir



Public Function no_vacio(ByVal str As String) As Boolean
       If str.Length > 0 Then
           Return True
       End If
       Return False
   End Function



Inicialmente utilizaba el String.nulloblank o String.nullwhitespace pero el resultado es el mismo y la verdad ya no se que estoy haciendo mal.

Muchas gracias por leerme.

[Serapis]

mmm... no si si es un error al escribir o no, pero leyéndote, me fuerza a preguntarme si sabes distinguir filas de columnas.

Fila 0 |Columna 0 | Columna 1 | Columna 2 | Columna 3 |
Fila 1
Fila 2
Fila 3

Tampoco me queda claro lo que quieres hacer... si eliminar la celda, vaciar su contenido (a juzgar por este comentario: xlWorkSheet.Cells(i, 2).Value = "DEBO ELIMINARME"), o eliminar la fila o columna...

Lego observo que en todas las condicones dentro de: "If chk_Familia.Checked = False Then", haces:

Código (vbnet) [Seleccionar] Expandir

I=(I+1)
Entonces puedes hacerlo tras terminar, una única vez...

La función 'novacio', es redundante, e induce a complicaciones si la comparación se hace en la forma:

Código (vbnet) [Seleccionar] Expandir

Si Novacio(x ) = FALSE luego
es preferible pensarlo en positivo:

Código (vbnet) [Seleccionar] Expandir

Si Contienealgo(x) luego
Pero en efecto, la propia función es redundante, poque el objeto string posee métodos intrínsecos para ello (como bien señalas al final):

Código (vbnet) [Seleccionar] Expandir

If String.IsNullOrWhiteSpace(str_xxx)=FALSE Then
    xlWorkSheet.Cells(i, 2).Value = ""
End If

Finalmente, advertirte que esta comprobación es correcta solo si se sabe con absoluta certeza que será siempre así y que nunca nadie cometerá errores:

Código (vbnet) [Seleccionar] Expandir

If str_cod.StartsWith("77") Then
Ya que cabe la posibilidad de que contenga espacios a la izquierda... aunque solo sea uno. Mejor así:

Código (vbnet) [Seleccionar] Expandir

If (str_cod.TrimStart(" ")).StartsWith("77") Then
Nota: Que esta forma en una sola línea no altera el contenido de "str_cod", solo ejecuta la comparación sin modificar el contenido.

[Yaldabaot]

Hola NEBIRE, primero que todo muchas gracias por el tiempo de leerme y sobretodo responderme.

Muchas gracias por la aclaración, entiendo perfectamente la diferencia entre columna y fila, mira te explico, el método .Cells de la librería interop tiene dos parámetros opcionales, en este caso seria ( fila, columna), entonces si yo le indico los dos parámetros en lugar de borrar toda la fila ( que es lo que ocupo) borro solo una celda.

Bien,  yo lo que necesito es que al no cumplirse que el código 1 empiece por 77 este verifique que el codigo 2 no sea vacío o nulo, si este es vacío o nulo necesito eliminar la fila completa, cosa que no lo está haciendo por alguna razón y por ello recurro a uds.

Antes de que me digas si estoy en la hoja correcta o si es el rango correcto debo comentarte que revisé a cabalidad y lamentablemente se encuentra bien.

Tienes razón en lo del incremento del indice, es totalmente redundante y lo voy a corregir, gracias por notarlo.

Respecto a los condicionales voy a revisarlos nuevamente, muchas gracias.

Si sabes algo en especifico te agradecería mucho para poder dar con el problema.