Exportar los datos ilegibles a las regiones
Dante necesito de tu ayuda,
En la pestaña ALCANCES el cuadro lo clasifique de esta manera:
- Ilegibles (A134: Infinito)
En el último es operaciones ilegibles, que son las de ALCANCES de A134: INFINITO, que sea solo de BOGOTÁ.
Agradeciendo tu atención
1 Respuesta
Respuesta de Dante Amor
1
H o l a :
Te anexo la macro para los registros ilegibles
'Ilegibles
For i = 134 To h1.Range("D" & Rows.Count).End(xlUp).Row
If h1.Cells(i, "D") = "" Then Exit For
region = h1.Cells(i, "D")
For j = LBound(hojas) To UBound(hojas)
If hojas(j) = region Then
Set h2 = Sheets(region)
k = 41
Do While h2.Cells(k, "D") <> ""
k = k + 1
Loop
h1.Range("A" & i & ":I" & i).Copy h2.Cells(k, "A")
Exit For
End If
Next
NextS a l u d o s .
