Máximos colaboradores

Buenas, por lo que veo sería: en la función: Function GetDepthFromCSV(csvData As Variant, holeID As String) As Variant cambia la línea done crea el array lineData , el delimitador de esta mal: lineData = Split(csvData(i), ";") ' cambia "," por ";" y la captura del campo, cambia el número de columnas GetDepthFromCSV = lineData(3) ' Asume que la columna 1 es PROF_REC ' cambio por 3 de esta manera parece que funciona como lo quieres. saludos survey_test2_v1.xlsm

Pues tienes toda la razón, @Israel Cassales tu propuesta y la @Antoni son las correctas. Escribí el código sin pensar en ese detalle. Saludos

Otra más: Sub BORRAR_COBRADAS() Dim i As Long For i = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1 If Range("L" & i) = "COBRADA" Then Rows(i).Delete End If Next End Sub

Saludos totales, Maestro @JasallBcn yo participaría variando en dos cosas, buscaría hasta la ultima fila con datos para hacer la eliminación de abajo hacia arriba, porque creo que si eliminas las filas de arriba hacia abajo, habría la posibilidad de saltarte algunas filas, porque las filas se reordenan cada vez que eliminas una ¿Qué opina? Sub BORRAR_COBRADAS() Dim i As Long Dim lastRow As Long lastRow = Cells(Rows.Count, "L").End(xlUp).Row For i = lastRow To 2 Step -1 ' Recorre de abajo hacia arriba If Range("FACTURAS!L" & i).Value = "COBRADA" Then Rows(i).EntireRow.Delete End If Next i End Sub