Botón Guardar
Hola quiero hacerte una consulta;
Yo dentro de una hoja de Excel tengo un botón que me guarda los cambios, además de eso quiero que me proteja la hoja en la que estoy guardando los cambios y la clave de protección son dos datos numéricos que están en la misma hoja en las celda C5 D5 pero el problema es que quiero solo los datos numéricos sin coma (,).
Ejemplo
Tengo el siguiente código
Sub Guardar()
Dim Clave As String
ActiveWorkbook. Sabe
Clave = ? 'no se como agregar solo los valores numéricos concatenados
ActiveSheet.protec Clave
Application.Quit
End Sub
En la celdas C5 Y D5 con formato numérico con una aproximación de una cifra cosa que se podría cambiar a formato general sin ningún problema (por si hay algún problema con que sean numéricos) tengo por ejemplo 82,4 en C5 y 87,9 EN D5 lo que quiero es que esos datos queden almacenados en
Clave = 824879 por medio de una función
Gracias
Yo dentro de una hoja de Excel tengo un botón que me guarda los cambios, además de eso quiero que me proteja la hoja en la que estoy guardando los cambios y la clave de protección son dos datos numéricos que están en la misma hoja en las celda C5 D5 pero el problema es que quiero solo los datos numéricos sin coma (,).
Ejemplo
Tengo el siguiente código
Sub Guardar()
Dim Clave As String
ActiveWorkbook. Sabe
Clave = ? 'no se como agregar solo los valores numéricos concatenados
ActiveSheet.protec Clave
Application.Quit
End Sub
En la celdas C5 Y D5 con formato numérico con una aproximación de una cifra cosa que se podría cambiar a formato general sin ningún problema (por si hay algún problema con que sean numéricos) tengo por ejemplo 82,4 en C5 y 87,9 EN D5 lo que quiero es que esos datos queden almacenados en
Clave = 824879 por medio de una función
Gracias
1 respuesta
Respuesta de boumerang
1
Con el formato numérico, es suficiente pero, la aproximación la debes dar por truncamiento, no por redondeo.
-
La función que necesitas es la siguiente:
-
Sub Guardar()
Dim Clave As String
ActiveWorkbook.Save
Clave = SoloNumeros()
ActiveSheet.protec Clave
Application.Quit
End Sub
Function SoloNumeros()
Dim CADENA AS String
Dim DATO As String
For X = 1 To Len(CADENA)
DATO = Mid(CADENA, X, 1)
If DATO >= "0" And DATO <= "9" Then
SoloNumeros = SoloNumeros & DATO
End If
Next
End Function
-
-
La función que necesitas es la siguiente:
-
Sub Guardar()
Dim Clave As String
ActiveWorkbook.Save
Clave = SoloNumeros()
ActiveSheet.protec Clave
Application.Quit
End Sub
Function SoloNumeros()
Dim CADENA AS String
Dim DATO As String
For X = 1 To Len(CADENA)
DATO = Mid(CADENA, X, 1)
If DATO >= "0" And DATO <= "9" Then
SoloNumeros = SoloNumeros & DATO
End If
Next
End Function
-
