Exportar las inconsistencias por región
Dante necesito de tu ayuda,
Yo quiero que en el PASO 5 me exporte de la pestaña ALCANCES a la otras pestañas que adicione, para esto la pestaña alcances le puse unos límites. Esto para ponerme límites a la clasificación.
En la pestaña ALCANCES el cuadro lo clasifique de esta manera:
- (A5:A84)
El Primer cuadro es inconsistencias, que es lo que haya en Bogotá desde A5:184 de la pestaña ALCANCES que sea solo de BOGOTÁ.
1 respuesta
Respuesta de Dante Amor
1
H o l a:
Te anexo la macro para las inconsistencias:
Set h1 = Sheets("ALCANCES")
'
hojas = Array("BOGOTA", "BQUILLA", "MDLLIN", "CALI")
'Inconsistencias
For i = 5 To 84
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 = 3
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
Next'
S a l u d o s . D a n t e A m o r
