Eliminar Espacios en Celdas Excel 2013

Que tal el dia de hoy necesite de eliminar los espacios en blanco que estaban en unas celdas de excel
lo logre con la formula =ESPACIOS(texto)

tenia un campo con esto "   nombre  " en la celda D2 lo que hice fue en la celda D3
=ESPACIOS(D2) el resultado fue "nombre" ya nada mas corte y pegue como valores

espero les ayude

Consulta SQL para agrupar contar y graficar en Excel

que tal lo que se me pidio fue lo siguiente:
"necesitamos una consulta a la base de datos en donde obtengamos cuantas entradas al almacen tenemos por medio de facturas de compra por dia y mes"

para hacer eso realize la siguiente consulta


select POReceipt.Crtd_DateTime, count (*) as 'num' from POReceipt
inner join Batch on POReceipt.BatNbr = Batch.BatNbr
and POReceipt.Crtd_User=Batch.Crtd_User and Batch.PerPost = '201307'
group by POReceipt.Crtd_DateTime order by POReceipt.Crtd_DateTime

esto lo que hace me trae un resultado como el siguiente:
Crt_Date_Time            num
2013-07-01 00:00:00    18
2013-07-02 00:00:00    29
2013-07-03 00:00:00    15
2013-07-05 00:00:00    23
2013-07-06 00:00:00    4
2013-07-09 00:00:00    26
2013-07-10 00:00:00    8

ya esto lo pasamos a excel y hacemos una grafica y obtenemos esto:

Facturacion CBB Excel

Si estas a punto de comprar o contratar algún servicio para generar tus facturas mediante CBB (Codigo de Barras Bidimensional) espera lee esto

Si aun no tienes CBB revisa esta pagina del SAT 

si ya lo tienes y no quieres gastar Baja el siguiente archivo de Excel y solo modifica tus datos y personaliza tu codigo CBB

Archivo CBB

Listo ya estas listo para emitir facturas

Formula Numero a Texto

cuantas veces nos han pedido una formula para que al poner una catidad $ en una celda aparezca en otra de la siguiente manera Cantidad en Pesos 00/100 MN

la manera para lograrlo consta de dos pasos

Primero copia el siguiente codigo y crea un modulo en excel lo puedes llamar como mas gustes


Sub Convertir()

End Sub
Function Numletra(Number As Double, Optional Kurrencys As String, Optional Kurrency As String) As String

If Kurrencys = "" Then
Kurrencys = "PESOS"
Kurrency = "PESO"
End If
If Kurrency = "" Then Kurrency = Kurrencys

Const MinNum = 0#
Const MaxNum = 4294967295.99

Dim Result As String
If (Number >= MinNum) And (Number <= MaxNum) Then

Dim Kurrenzy As String
Kurrenzy = Kurrency
If Number >= 2 Or Number < 1 Then Kurrenzy = Kurrencys

Result = RecurseNumber((Fix(Number)))


If Round((Number - Fix(Number)) * 100) < 10 Then
Result = "SON: (" + Result + " " + Kurrenzy + " 0" + Mid(Str(Round((Number - Fix(Number)) * 100)), 2, 1) + "/100 M.N.)"
Else
Result = "SON: (" + Result + " " + Kurrenzy + " " + Mid(Str(Round((Number - Fix(Number)) * 100)), 2, 2) + "/100 M.N.)"
End If
Else
Result = "Error, verifique la cantidad."
End If



Numletra = Result

End Function

Function RecurseNumber(N As Long) As String

Dim Numbers, Tenths, Hundrens
Numbers = Array("CERO", "UN", "DOS", "TRES", "CUATRO", "CINCO", "SEIS", "SIETE", "OCHO", "NUEVE", "DIEZ", "ONCE", "DOCE", "TRECE", "CATORCE", "QUINCE", "DIECISÉIS", "DIECISIETE", "DIECIOCHO", "DIECINUEVE", "VEINTE", _
"VEINTIÚN", "VEINTIDÓS", "VEINTITRÉS", "VEINTICUATRO", "VEINTICINCO", "VEINTISÉIS", "VEINTISIETE", "VEINTIOCHO", "VEINTINUEVE")
Tenths = Array("CERO", "DIEZ", "VEINTE", "TREINTA", "CUARENTA", "CINCUENTA", "SESENTA", "SETENTA", "OCHENTA", "NOVENTA", "CIEN")
Hundrens = Array("CERO", "CIENTO", "DOSCIENTOS", "TRESCIENTOS", "CUATROCIENTOS", "QUINIENTOS", "SEISCIENTOS", "SETECIENTOS", "OCHOCIENTOS", "NOVECIENTOS")

Dim Result As String
Select Case N
Case 0
Result = "CERO"
Case 1 To 29
Result = Numbers(N)
Case 30 To 100
Result = Tenths(N \ 10) + IIf(N Mod 10 <> 0, " Y " + RecurseNumber(N Mod 10), "")
Case 101 To 999
Result = Hundrens(N \ 100) + IIf(N Mod 100 <> 0, " " + RecurseNumber(N Mod 100), "")
Case 1000 To 999999
Result = RecurseNumber(N \ 1000) + " MIL" + IIf(N Mod 1000 <> 0, " " + RecurseNumber(N Mod 1000), "")
Case 1000000 To 1999999
Result = RecurseNumber(N \ 1000000) + " MILLÓN" + IIf(N Mod 1000000 <> 0, " " + RecurseNumber(N Mod 1000000), " DE")
Case 2000000 To 999999999
Result = RecurseNumber(N \ 1000000) + " MILLONES" + IIf(N Mod 1000000 <> 0, " " + RecurseNumber(N Mod 1000000), " DE")
Case 1000000000 To 1999999999
Result = RecurseNumber(N \ 1000000000) + " MIL MILLONES" + IIf(N Mod 1000000000 <> 0, " " + RecurseNumber(N Mod 1000000000), " DE")
Case 2000000000 To 4294967295.99
Result = RecurseNumber(N \ 1000000000) + " BILLONES" + IIf(N Mod 1000000000 <> 0, " " + RecurseNumber(N Mod 1000000000), " DE")

End Select

RecurseNumber = Result

End Function



una vez creado el modulo desde cualquier celda una la formula =Numletra(aqui la celda donde esta el numero)

asi de sencillo