Hola, respecto a lo que publiqué en ese foro que comentas decir que con 12000 celdas es para que se entienda, que no tengo 3 o 4 cables como para estar copiando y pegando formulas ya que como se puede entender da lugar a colarte y pegar una en la celda que no es sobre todo cuando llevas ya un buen rato con ello. Respecto a utilizar una hoja auxiliar es tal y como lo planteé. De hecho el código de Leopoldo Blancas me funcionó perfecto, quedando ese desafío resuelto. Donde estaba el problema?Que cuando ejecutaba la macro me pegaba en las celdas en blanco la fórmula en inglés, que es como tengo el excel en un ordenador de trabajo, y no reconoce las funciones en este otro ordenador también de trabajo y que está en español (que por politicas de empresa no tengo permitido cambiar, capado) Por tanto aunque el código estaba genial no puedo utilizar la hoja excel en el ordenador de teletrabajo. Es por eso por lo que en este foro he planteado el problema desde otro punto de vista, quitando las fórmulas de la hoja auxiliar, ya que por eso método no me valió. Dejo captura de lo que me pasaba (que no es el caso en este tema), aunque pusiera ESFORMULA como comentas no me iba a valer, porque las funciones que contienen están en ingles,, Puedo buscar la traducción?Si, pero me va a dejar de valer para uno de los ordenadores igual. Es por eso que no conviene mezclar lo de un foro con este porque lo he planteado de otra forma aquí. Un saludo!
Por
MANTONIOPM , · publicado el miércoles a las 21:43 2 días
Hola .
Podria alguien decirme como dar formato a unos labels. pasa que en la validacion de mi trabajo, antes de imprimir, aparcen los datos cargados en unos texbox, a un label, pero quiero que los labels tengan formato "$ ###,###.00" ya puse el codigo y solo aparece en uno. estare haciendo mal lo demas¿????
agradecere la ayuda que me puedan dar,,
este esl codigo ke escribi!
Dim BuenoPor As String
Dim Dia As String
Dim Nombre As String
Dim Domicilio As String
Dim Telefono As String
Dim lineacredit As String
Dim FechaDeCorte As String
Dim notass As String
Dim ReemCapital As String
Dim IntOrdianrios As String
Dim IntMoratorios As String
Dim CantRecibida As String
Dim Recibe As String
Dim Entrega As String
BuenoPor = Str(Val(reemcapi) + Val(ordinArios) + Val(moratorios))
Dia = fecha
Nombre = Cliente
Domicilio = domi
Telefono = fono
lineacredit = lineacredito
lineacredito.Value = Format(Val(lineacredit), "$ #,###.00")
saldoactual = Str(Val(lineacredito) - Val(reemcapi))
FechaDeCorte = period
notass = notas
ReemCapital = reemcapi
reemcapi.Value = Format(Val(reemcapi), "$ #,###.00")
intordinarios = ordinArios
ordinArios.Value = Format(Val(ordinArios), "$ #,###.00")
IntMoratorios = moratorios
moratorios.Value = Format(Val(moratorios), "$ #,###.00")
CantRecibida = Str(Val(reemcapi) + Val(ordinArios) + Val(moratorios))
Recibe = receive
Entrega = Cliente
esto se va a un userform , con labels , pero lo que es ordinario , moratorios , no aprecen formato !!