caranbis

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...

'Tiene que hacerse con una función personalizada, 'Es la siguiente: Public Function Contar_Palabra(Celda As Range, Palabra As String) As Integer Dim Cont As Integer Dim Encontrado As Integer Encontrado = InStr(1, Celda.Value, Palabra) While...

Sub GenerarHojas() Dim Ini As Integer Dim Tot As Integer ' Application.ScreenUpdating = False ' Sheets(Sheets.Count).Select Tot = Sheets.Count Ini = Sheets.Count + 1 For i = 1 To 12 Sheets.Add Next ' For i = Ini To Ini + 11 Sheets(i).Name =...