caranbis

Option ExplicitConst ENUM_CURRENT_SETTINGS As Long = -1&Const CCDEVICENAME = 32Const CCFORMNAME = 32Private Type DEVMODEdmDeviceName As String * CCDEVICENAMEdmSpecVersion As IntegerdmDriverVersion As IntegerdmSize As IntegerdmDriverExtra As...

..

Desafoortunadamente mi querido amigo, no hay solución para tu problema, esto es un problema de excel: Resulta que cuando hay un numero, cuyo número de dígitos es mayor a 15, desde el 16avo dígito excel muestra sólo ceros, aunque internamente guarda...

Si lo que dices es que, después de aplicarle "tablas dinámicas" a la tabla que importaste, ésta no te hace las sumas automáticameente, y todo está en cero, es porque probablemente los datos numéricos que importaste, excel los está tomando como texto,...

Coloca esta instrución al inicio de cada macro: Application.ScreenUpdating = False 'luego prueba y me cuentas cómo te fue. '"El conocimiento le pertenece al mundo"

'En lugar de esta: lngRetVal = ExecCmd("CMD.exe /C " & strInstruc) 'Intenta con esta: Dim lngRetValX as Double lngRetValX = Shell("CMD.exe /c " & strInstruc)

Concatena usando esta fórmula para cada cadena que estas concatenando: =TEXTO(A4;"00000000") o sea: =TEXTO(xxxxxxxxxxx;"00000000") Xxxxxxxxxxxx es cada celda o número que vas a concatenar

Pedón por la pifia mi querido amigo, aquí tienes las fórmulas, ya está corregidas: Horas diurnas:...

Para redondear a 3590000: =redond.mult(A1+4999;10000) Para redondear a 3600000: =redond.mult(A1+4999;10000)

'Puedes usar la siguiente fórmula personalizada Public Function Extraer_Numeros(Celda As Range) As Double Dim Temp As String For i = 1 To Len(Celda.Value) If IsNumeric(Mid(Celda.Value, i, 1)) Then Temp = Temp & Mid(Celda.Value, i, 1) Next...