Macro genera error 13 en tiempo ejecución
Favor tu soporte en en bucle que me genera error.
Les explico tengo en la columna Q2, datos de CM3 en la columna S2 quiero hacer el calculo de dividirlo a 10000 para pasarlo a M3. En la columna R2 hago calculo del M3 unitario.
Me sale este error
La detallo el Do While
'Cálculos de CM3 A M3
ActiveSheet.Range("R1").EntireColumn.Insert
ActiveSheet.Range("S1").EntireColumn.Insert
Range("R1").Value = "M3"
Range("S1").Value = "M3 total"
Range("Q2").Select
Do While ActiveCell.Value <> ""
If ActiveCell.Value = 0 Then GoTo salto
ActiveCell.Offset(0, 2).Value = ActiveCell.Value / 1000000
ActiveCell.Offset(0, 1).Value = ActiveCell.Offset(0, 2).Value / ActiveCell.Offset(0, -1).Value
salto:
ActiveCell.Offset(1, 0).Select
LoopA la espera de su soporte.
1 respuesta
H o l a:
Es posible que alguno de los valores de la columna Q o de la columna P sea un texto, es por eso que te envía ese error. Por la línea del error, creo que en la columna P tienes un texto.
Revisa que en la columna P tengas números, revisa en cuál fila se detuvo y revisa que en esa fila en la columna P tengas un número, revisa que ese número no sea un texto o que tenga espacios en blanco dentro de la celda.
¡Gracias! Dante por tu acostumbrado apoyo, si efectivamente, me estaba tomando la información del distrito no el valor número que quería para el calculo.
