Видео

Muchas gracias por el video

la pregunta del millon puedes habilitar este calendario desplegable dentro de VBA forms ?

NO ME SIRVE LO TENGO ACTIVADO Y AUN ASI NO AGREGA NADA

MUCHAS Gracias!!!

Funciona con las columnas a la derecha, pero como se hace cuando se van a agregar a la izquierda

Super video, muchas gracias por compartir sus conocimientos.

Hola, no me aparece la función SECUENCIA

Inservible, partiendo de que quieres los totales de las celdas filtradas por separado.

Gracias 😊

muchísimas gracias

Excelente, me tardé más en repetir en video que en instalar el componente. Muy útil.

video corto y super bien explicado, un crack...

MUCHAS GRACIAS, TODA LA SEMANA INTENTANDO, ESTABA BUSCANDO EL COMPLEMENTO NUMLETRAS PERO NADA ME FUISIONABA , MUCHAS GRACIAS

Gracias!

Muchísimas gracias, me sirvió para incluso una fórmula de si.conjunto.

Muchas Gracias 😀👋👋👋👌

Hola y en dólares americano?

¡Muchas gracias! Excelente contenido🙂

Me dice que tengo que depurar el código

Hola estimado. Las comillas me rebotan porqué?

Exel ente!

Maestrazo, mucha gracias

Amigo me gustaría preguntarte algo en especifico quiero esto pero desde el programa plex me puedes pasar tu wath para especificarte bien ?

Gracias!! Justo lo que andaba buscando.

Te amo amigo, me hiciste la vida más feli

Como hago para que me salga la fecha en formato mexico, me sale formato americano

Y si les dijera que hay una manera incluso mas rapida de hacer todo esto? pero por muy lejos...

Muchísimas gracias!

y para Excel en una Mac? no encuentro ninguna solución =(

My util gracias

eres el mejor che🤛

Como cambiar 1500 letra UN MIL QUINIENTOS diga solo MIL QUINIENTOS

Muchas gracias, salvaste mi tarea :D

Wow! increible muchas gracias! Un crack!!

EXCELENTE¡¡¡ GRACIAS

Muchas gracias amigo.

Código (Macro); ═══════════════════════════════════ Function Dolares(tyCantidad As Currency) As String Dim lyCantidad As Currency, lyCentavos As Currency, lnDigito As Byte, lnPrimerDigito As Byte, lnSegundoDigito As Byte, lnTercerDigito As Byte Dim lcBloque As String, lnNumeroBloques As Byte, lnBloqueCero Dim laUnidades As Variant, laDecenas As Variant, laCentenas As Variant, I As Variant tyCantidad = Round(tyCantidad, 2) lyCantidad = Int(tyCantidad) lyCentavos = (tyCantidad - lyCantidad) * 100 laUnidades = Array("ONE", "TWO", "THREE", "FOUR", "FIVE", "SIX", "SEVEN", "EIGHT", "NINE", "TEN", "ELEVEN", "TWELVE", "THIRTEEN", "FOURTEEN", "FIFTEEN", "SIXTEEN", "SEVENTEEN", "EIGHTEEN", "NINETEEN", "TWENTY", "TWENTY-ONE", "TWENTY-TWO", "TWENTY-THREE", "TWENTY-FOUR", "TWENTY-FIVE", "TWENTY-SIX", "TWENTY-SEVEN", "TWENTY-EIGHT", "TWENTY-NINE") laDecenas = Array("TEN", "TWENTY", "THIRTY", "FORTY", "FIFTY", "SIXTY", "SEVENTY", "EIGHTY", "NINETY") laCentenas = Array("ONE HUNDRED", "TWO HUNDRED", "THREE HUNDRED", "FOUR HUNDRED", "FIVE HUNDRED", "SIX HUNDRED", "SEVEN HUNDRED", "EIGHT HUNDRED", "NINE HUNDRED") lnNumeroBloques = 1 Do lnPrimerDigito = 0 lnSegundoDigito = 0 lnTercerDigito = 0 lcBloque = "" lnBloqueCero = 0 For I = 1 To 3 lnDigito = lyCantidad Mod 10 If lnDigito <> 0 Then Select Case I Case 1 lcBloque = " " & laUnidades(lnDigito - 1) lnPrimerDigito = lnDigito Case 2 If lnDigito <= 2 Then lcBloque = " " & laUnidades((lnDigito * 10) + lnPrimerDigito - 1) Else lcBloque = " " & laDecenas(lnDigito - 1) & IIf(lnPrimerDigito <> 0, " AND", Null) & lcBloque End If lnSegundoDigito = lnDigito Case 3 lcBloque = " " & IIf(lnDigito = 1 And lnPrimerDigito = 0 And lnSegundoDigito = 0, "ONE HUNDRED", laCentenas(lnDigito - 1)) & lcBloque lnTercerDigito = lnDigito End Select Else lnBloqueCero = lnBloqueCero + 1 End If lyCantidad = Int(lyCantidad / 10) If lyCantidad = 0 Then Exit For End If Next I Select Case lnNumeroBloques Case 1 Dolares = lcBloque Case 2 Dolares = lcBloque & IIf(lnBloqueCero = 3, Null, " THOUSAND") & Dolares Case 3 Dolares = lcBloque & IIf(lnPrimerDigito = 1 And lnSegundoDigito = 0 And lnTercerDigito = 0, " MILLION", " MILLIONS") & Dolares End Select lnNumeroBloques = lnNumeroBloques + 1 Loop Until lyCantidad = 0 Dolares = "AMOUNT: (" & Dolares & IIf(tyCantidad > 1, " DOLLARS ", " DOLLAR ") & Format(Str(lyCentavos), "00") & "/100 USD)" End Function

Uaw... 👍

POR QUE ME EL SIGUIENTE TEXTO #¿NOMBRE? Y NO PUEDO SOLUCIONARLO

Hola no logro abrir el enlace

Mil gracias, no te imaginas la ayuda 😊

Hola, cuando voy a descargar el complemento de Mega me pide clave de descifrado, pero no la veo por ninguna parte. ¿Me podrías indicar dónde buscarla? Gracias...

Y que pasa si mi archivo si tiene check en todas esas opciones y no me aparece aun asi las hojas?

Y que pasa si quiero que diga dólares?

Gracias por la información

me gusto este tutorial ya aprendi gracias a ti, la mejor esplicacion

Perfecto profe

Excelente!!! Gracias.

Genial! Muchas gracias!

Excelente trabajo ingeniero y excelente explicación abrazos desde Puerto Rico 🇵🇷