Amigos de Excel.
Por favor una ayuda.
Hay una hoja de Excel como "Libro Diario de Contabilidad"
3 Columnas......... INGRESOS -- EGRESOS -- SALDO
Formula: =F2+D3-E3 Hasta la fila 200
Quiero pasar esa formula a VBA con ese rango que cubra hasta la fila 200. Y que cuando se ingresen datos y haga la operación, y la siguiente celda no reciba ni Ingresos ni Egresos, quede entonces vacía. porque formular todo el rango y que rellene todo el rango con el mismo resultado de la ultima operación, no es agradable
Gracias anticipadas.
Por
Compumakro, · publicado
Buenas Noches
Tengo el siguiente código, que almacena las referencias de las celdas en la Variable Rango, para posteriormente borrar el contenido de las celdas.
El problema es que al llegar a la parte del borrado del Rango me Arroja error 1004 en tiempo de ejecución.
Son aproximadamente 100 celdas las que debe borrar.
Sub Factura_LimpiarPlantilla()
Dim Rango
Plantilla = "Factura_Registro"
Setup = "Factura_Setup"
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Sheets(Plantilla).Unprotect Clave
I = 2
Rango = ""
While Sheets(Setup).Cells(I, 3) <> ""
If Sheets(Setup).Cells(I, 5) = "SI" Then
Celda = Sheets(Setup).Cells(I, 3)
If Rango = "" Then Rango = Celda Else Rango = Rango & "," & Celda
End If
I = I + 1
Wend
Sheets(Plantilla).Range(Rango) = Empty
Sheets(Plantilla).Protect Clave
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub