If IsNumeric(ReNuFactura) Then
ActiveCell.Offset(0, 2) = CDbl(ReNuFactura)
Else
ActiveCell.Offset(0, 2) = ReNuFactura
End If
If ReReferencia.Enabled = False Then
ActiveCell.Offset(0, 5) = ""
ElseIf IsNumeric(ReReferencia) Then
ActiveCell.Offset(0, 5) = CDbl(ReReferencia)
Else
ActiveCell.Offset(0, 5) = ReReferencia
End If
lo que hace es ingresar los datos en la primera fila vacia que encuentre a partir de la fila 6, en la "BASE DE DATOS" todo va bien ecepto que no me pega ni el formato ni las formulas de la fila cinco que estara oculta
bueans tengo este codigo
lo que hace es ingresar los datos en la primera fila vacia que encuentre a partir de la fila 6, en la "BASE DE DATOS" todo va bien ecepto que no me pega ni el formato ni las formulas de la fila cinco que estara oculta
DEPRECIACION 26.rar