guevarat

Dante Amor respondió: Te anexo la función actualizada Function Num_texto(Numero) Dim Texto Dim Millones Dim Miles Dim Cientos Dim Decimales Dim Cadena Dim CadMillones Dim CadMiles Dim CadCientos Texto = Numero ' If Left(Texto, 1) = "0" Then existe = True End If ' Texto =...

230283 respondió: Efectivamente, he ayudado a varias personas respecto a este caso. De mi parte no hay problema alguno en apoyarte, siempre y cuando se solicite la ayuda por este medio primero. Enviame un mail a mi dirección para saber a que dirección tengo que...