Entiendo que en el momento que tuviera dos celdas consecutivas sin fórmula que tuviera que recuperar ese código que planteas no me valdría, porque estoy copiando una fórmula que no existe de la celda de arriba en la celda de abajo de ella.
imagino que con borrar unas lineas te refieres a eliminar esos registros, estirar hacia abajo la tabla y en las nuevas líneas creadas añadirlos al final con los datos que tuvieran los antiguos, con las fórmulas arrastradas y creadas de nuevo. Entonces habria que escribir a mano todos los datos de cada columna a rellenar de todas las filas nuevas, dando lugar a cometer errores de copia/pega o reeescritura. Además, los registros los tengo ordenados con cierto orden , le perdería.
es lo que comentaba antes, era solución funcional trabajando con un excel en el mismo idioma en los dos ordenadores, por eso esto queda descartado, ya que por lo que veo excel no reconoce las funciones de un idioma a otro.
No sé, la verdad que me sorprende un poco que no se pueda hacer lo que planteo aquí al inicio.. Al final me voy a conocer todos los foros, ajja. Un saludo!
Por
MANTONIOPM, · 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