Una pregunta como se puede activar undo se me desactivo y cuando quiero regresar un archivo no puedo

Yo había hecho este código: Function CARDINAL(Valor As Currency, Optional MonedaSingular As String = "", Optional MonedaPlural As String = "", Optional MonedaNacional As String = "") As String Dim parteEntera As Currency, parteDecimal As Currency, Digito As Byte, primerDigito As Byte, segundoDigito As Byte, tercerDigito As Byte, Bloque As String, cantidadBloques As Byte, cuentaCeros Dim textoUnidades As Variant, textoDecenas As Variant, textoCentenas As Variant, I As Variant 'Si esta como Option Explicit Dim ValorEntero As Long Valor = Round(Valor, 2) parteEntera = Int(Valor) ValorEntero = parteEntera parteDecimal = (Valor - parteEntera) * 100 textoUnidades = Array("UN", "DOS", "TRES", "CUATRO", "CINCO", "SEIS", "SIETE", "OCHO", "NUEVE", "DIEZ", "ONCE", "DOCE", "TRECE", "CATORCE", "QUINCE", "DIECISEIS", "DIECISIETE", "DIECIOCHO", "DIECINUEVE", "VEINTE", "VEINTIUN", "VEINTIDOS", "VEINTITRES", "VEINTICUATRO", "VEINTICINCO", "VEINTISEIS", "VEINTISIETE", "VEINTIOCHO", "VEINTINUEVE") textoDecenas = Array("DIEZ", "VEINTE", "TREINTA", "CUARENTA", "CINCUENTA", "SESENTA", "SETENTA", "OCHENTA", "NOVENTA") textoCentenas = Array("CIENTO", "DOSCIENTOS", "TRESCIENTOS", "CUATROCIENTOS", "QUINIENTOS", "SEISCIENTOS", "SETECIENTOS", "OCHOCIENTOS", "NOVECIENTOS") cantidadBloques = 1 Do primerDigito = 0 segundoDigito = 0 tercerDigito = 0 Bloque = "" cuentaCeros = 0 For I = 1 To 3 Digito = parteEntera Mod 10 If Digito <> 0 Then Select Case I Case 1 Bloque = " " & textoUnidades(Digito - 1) primerDigito = Digito Case 2 If Digito <= 2 Then Bloque = " " & textoUnidades((Digito * 10) + primerDigito - 1) Else Bloque = " " & textoDecenas(Digito - 1) & IIf(primerDigito <> 0, " Y", Null) & Bloque End If segundoDigito = Digito Case 3 Bloque = " " & IIf(Digito = 1 And primerDigito = 0 And segundoDigito = 0, "CIEN", textoCentenas(Digito - 1)) & Bloque tercerDigito = Digito End Select Else cuentaCeros = cuentaCeros + 1 End If parteEntera = Int(parteEntera / 10) If parteEntera = 0 Then Exit For End If Next I Select Case cantidadBloques Case 1 CARDINAL = Bloque Case 2 CARDINAL = Bloque & IIf(cuentaCeros = 3, Null, " MIL") & CARDINAL Case 3 CARDINAL = Bloque & IIf(primerDigito = 1 And segundoDigito = 0 And tercerDigito = 0, " MILLON", " MILLONES") & CARDINAL End Select cantidadBloques = cantidadBloques + 1 Loop Until parteEntera = 0 'CARDINAL = Trim(CARDINAL) & " CON " & Format(Str(parteDecimal), "00") & "/100 " & IIf(ValorEntero = 1, MonedaSingular, MonedaPlural) 'CARDINAL = Trim(CARDINAL) & " " & IIf(ValorEntero = 1, MonedaSingular, MonedaPlural) & " CON " & Format(Str(parteDecimal), "00") & " CENTAVOS " & " M.N." 'CARDINAL = Trim(CARDINAL) & " " & IIf(ValorEntero = 1, MonedaSingular, MonedaPlural) & " CON " & Format(Str(parteDecimal), "00") & "/100 " & " M.N." CARDINAL = Trim(CARDINAL) & " " & IIf(ValorEntero = 1, MonedaSingular, MonedaPlural) & IIf(MonedaNacional = "", "", " " & MonedaNacional) End Function Se lo pasé a ChatGPT, le pedí que lo acortara y viera como hacerlo más rápido, me entregó esto: Function CARDINAL(Valor As Currency, Optional MonedaSingular As String = "", Optional MonedaPlural As String = "", Optional MonedaNacional As String = "") As String Dim parteEntera As Currency, parteDecimal As Currency Dim Digito As Byte, cuentaCeros As Byte Dim textoUnidades As Variant, textoDecenas As Variant, textoCentenas As Variant Dim Bloque As String, resultado As String, I As Byte Dim ValorEntero As Long, cantidadBloques As Byte ' Redondeo el valor y separo la parte entera y decimal Valor = Round(Valor, 2) parteEntera = Int(Valor) ValorEntero = parteEntera parteDecimal = (Valor - parteEntera) * 100 ' Definición de arreglos con las unidades, decenas y centenas textoUnidades = Array("UN", "DOS", "TRES", "CUATRO", "CINCO", "SEIS", "SIETE", "OCHO", "NUEVE", "DIEZ", "ONCE", "DOCE", "TRECE", "CATORCE", "QUINCE", "DIECISEIS", "DIECISIETE", "DIECIOCHO", "DIECINUEVE", "VEINTE", "VEINTIUN", "VEINTIDOS", "VEINTITRES", "VEINTICUATRO", "VEINTICINCO", "VEINTISEIS", "VEINTISIETE", "VEINTIOCHO", "VEINTINUEVE") textoDecenas = Array("DIEZ", "VEINTE", "TREINTA", "CUARENTA", "CINCUENTA", "SESENTA", "SETENTA", "OCHENTA", "NOVENTA") textoCentenas = Array("CIENTO", "DOSCIENTOS", "TRESCIENTOS", "CUATROCIENTOS", "QUINIENTOS", "SEISCIENTOS", "SETECIENTOS", "OCHOCIENTOS", "NOVECIENTOS") cantidadBloques = 1 ' Bucle para procesar cada grupo de tres dígitos (bloques) Do Bloque = "" cuentaCeros = 0 For I = 1 To 3 Digito = parteEntera Mod 10 parteEntera = Int(parteEntera / 10) If Digito <> 0 Then Select Case I Case 1 Bloque = " " & textoUnidades(Digito - 1) & Bloque Case 2 If Digito <= 2 Then Bloque = " " & textoUnidades((Digito * 10) + Val(Split(Bloque)(1)) - 1) Else Bloque = " " & textoDecenas(Digito - 1) & IIf(Len(Bloque) > 0, " Y", "") & Bloque End If Case 3 Bloque = " " & IIf(Digito = 1 And Bloque = "", "CIEN", textoCentenas(Digito - 1)) & Bloque End Select Else cuentaCeros = cuentaCeros + 1 End If If parteEntera = 0 Then Exit For Next I ' Formatear bloques Select Case cantidadBloques Case 1 resultado = Bloque Case 2 resultado = Bloque & IIf(cuentaCeros = 3, "", " MIL") & resultado Case 3 resultado = Bloque & IIf(Bloque = " UN", " MILLON", " MILLONES") & resultado End Select cantidadBloques = cantidadBloques + 1 Loop Until parteEntera = 0 ' Formatear el resultado final CARDINAL = Trim(resultado) & " " & IIf(ValorEntero = 1, MonedaSingular, MonedaPlural) & IIf(MonedaNacional = "", "", " " & MonedaNacional) End Function Me explicó las partes que estaba haciendo mal, como por ejemplo el usar funciones auxiliares, reducir bucles, simplificar las concatenaciones de cadenas, eliminación de código redundante y me pidió que mejore la eficacia de las condiciones usando expresiones más concisas. Además, me explico que es lo que hizo en el nuevo código. Luego le pregunte si entendía para qué sirve la función, me explicó para qué era y como hacía el proceso. Excelente, y extraordinario gran diferencia cuando niño jugaba intentando mejorar Dr. Abuse.

excelente

👌🏻👌🏻

👏🏻👏🏻💯

Muy didactico el video, gracias por compartirlo

muy bueno , muchas gracias

👏🏻👏🏻💯

Gracias.

Gracias

EXCELente estimado Alejandro...éxitos y bendiciones.

Hola!! usando la función si.conjunto me sale el error #N/D. cómo puedo darle solución?

Gracias

Gracias

muy claro.

my

EXCELente Alejandro!!! Buen video, corto, bien explicado...éxitos y bendiciones. Gracias por compartir

EXCELente video estimado Alejandro, bien explicado en tiempo récord! éxitos y bendiciones.

Muy útil y atractivo, gracias.

Excelente, muy fácil.

Buen truco.