Bueno sí,
Leí en TODOEXCEL que tiene opciones de VBA que se le han propuesto.
Aunque desde mi punto de vista, como usted depende de la apreciación, (autorización, validación... Etc.) de alguien más, en un escenario de 12,000 celdas, entonces elegir cuales cambiar y cuales no, es un desafío, no complicado, aunque sí es un reto de entendimiento.
Por otro lado, si usted es el autor y no tiene inconveniente con usar una hoja Auxiliar, tal vez le conviene más usar una columna Auxiliar en su lugar. En esa columna usar la función ESFORMULA(), similar a lo que usó para el condicional, para saber si el contenido es una fórmula o un valor, así en consecuencia del resultado VERDADERO o FALSO traer al final el que desea, puede ser el valor que está escrito e incluso con un SI() + BUSCARV() + INDIRECTO() podría traer la fórmula de la lista que preparó previamente.
Pruebe e intente,
Saludos
Por
Israel Cassales, · publicado
Buenas gente, esot y programando una macro la cual al llegar a la sentencia :
Cells(2, columna).Activate
me tira: se ha producido el error 1004 en tiempo de ejecucion: error definido por la aplicacion o el objeto
me seria de gran ayuda si identifican la causa del mismos. el codigo completo es el siguiente:
Dim f As String
Dim contadorhija As String
copiado = 0
columna = 3
contadorpadre = 3
Windows("Herramienta Patricio.xlsm").Activate
Cells(3, 1).Select
'ciclo recorredor de padres
Do Until IsEmpty(ActiveCell.Value)
ref = ActiveCell
Set Fso = CreateObject("Scripting.FileSystemObject")
'suspende macro se falta una estructura
If Not (Fso.FileExists("G:\VLS-Industrial\Logistica\PReid\Consumo MP sem siguiente\Estructuras\" & ref & ".xls")) Then
MsgBox "La estructura de la referencia " & ref & " no fue bajada de sap, descarguela, y vuelva a correr la macro"
Exit Sub
End If
'abre estructura
Workbooks.Open Filename:= _
"G:\VLS-Industrial\Logistica\PReid\Consumo MP sem siguiente\Estructuras\" & ref & ".xls"
Windows(ref & ".xls").Activate
Range("E11").Activate
contadorhija = 11
columna = 3
'recorro estructura y va armandola en el hoja de excel, selecciona ref hija y comprueba
Do Until IsEmpty(ActiveCell.Value)
Windows(ref & ".xls").Activate
Cells(contadorhija, 5).Activate
refhhija = ActiveCell
'Comprueba si existe ref hija en tabla
Windows("Herramienta Patricio.xlsm").Activate
Cells(2, columna).Activate
Do Until IsEmpty(ActiveCell.Value) Or copiado = 1
'Comprueba si existe ref hija en tabla
If refhija = ActiveCell Then
Windows(ref & ".xls").Activate
ActiveCell.Offset(0, 4).Activate
Selection.Copy
Windows("Herramienta Patricio.xlsm").Activate
Cells("contadorpadre", columna + 1).Select
ActiveSheet.Paste
activecells.Offset(0, 1).Activate
activecells = Cells("contadorpadre", 2) * Cells("contadorpadre", columna + 1)
activerange.Offset(0, 1).Activate
contadorhija = contadorhija + 1
contadorpadre = contadorpadre + 1
copiado = 1
End If
Windows("Herramienta Patricio.xlsm").Activate
facha = columna + 3
Cells(2, columna).Activate
Loop
Windows(ref & ".xls").Activate
Cells(contadorhija, 14).Activate
If ActiveCell = "COMP" Or copiado = 0 Then
Cells(contadorhija, 5).Activate
Selection.Copy
Windows("Herramienta Patricio.xlsm").Activate
ActiveSheet.Paste
Windows(ref & ".xls").Activate
Cells(contadorhija, 9).Activate
Selection.Copy
Windows("Herramienta Patricio.xlsm").Activate
Cells("contadorpadre", columna + 1).Activate
ActiveSheet.Paste
Cells("contadorpadre", columna + 2) = Cells("contadorpadre", columna + 1) * Cells("facha", 2)
End If
Loop
Windows("Herramienta Patricio.xlsm").Activate
fila.Value = fila.Value + 1
Cells(1, fila).Select
Loop
End Sub