Como convertir números positivos a negativos e insertarlos en celdas
Tengo un formulario que uso para insertar números en celdas con este código:
Private Sub ComBguardar_Click()
'Dim fila_final As Long
Dim insertar As Long
Hoja7.Visible = xlSheetVisible
Hoja7.Select
insertar = WorksheetFunction.CountA(Range("A:A")) + 1
Cells(insertar, 8).Value = FormatNumber(TxtCantidad)
Lo que necesito es que se inserte como numero negativo (-5), alguien me puede pasar el código.
2 Respuestas
Considera que si en la columna A no tienes datos, entonces el valor siempre se insertará en la celda 1.
Entonces, si vas a insertar valores en la columna H, lo conveniente es que cuentes las celdas con valor de la columna H.
Prueba lo siguiente:
Private Sub ComBguardar_Click()
'Dim fila_final As Long
Dim insertar As Long
Hoja7.Visible = xlSheetVisible
Hoja7.Select
insertar = WorksheetFunction.CountA(Range("H:H")) + 1
Cells(insertar, 8).Value = TxtCantidad * -1
End Sub---
Pero no es necesario hacer visible la hoja7 ni seleccionarla, puedes hacerlo de la siguiente manera, manteniendo oculta la hoja7:
Entonces quedaría únicamente esta línea:
Private Sub ComBguardar_Click()
Hoja7.Cells(Hoja7.Range("H" & Rows.Count).End(3).Row + 1, "H").Value = TxtCantidad * -1
End Sub---
Otros temas de interés:
https://www.todoexpertos.com/temas/microsoft-excel/ranking?scope=Total