borisbarrera

Pregunta: ¿Qué tipo de letra y que color quieres colocar? ... ¿Quieres alternar entre ellos? Necesito que seas más específico.

Necesito que me envíes el código completo. Así, la verdad, no pude entender tu problema.

Cuando tengas abierto el archivo presiona Alt+F11 y luego busca en el cuadro superior izquierdo los módulos, donde seguramente encontrarás las funciones. Suerte y saludos. Boris.

http://www.megaupload.com/?d=2XFCP2ZB Baja este archivo y me avisas que tal te va. No te había dicho que con tus preguntas yo también aprendo mucho, así que no hay nada que agradecer. De hecho plagié tu propio código para responderte esta pregunta.

Acá está la solución. Sub Nuevahoja() 'si hay errores, que continúe On Error Resume Next 'preguntamos cual es el expediente hoja_de_calculo = Range("a1").Value 'este valor puede venir de un textbox, listbox, combobox, inputbox o una celda 'eliminamos...

Consulta. ¿Lo qué no te funciona son los botones en tiempo de ejecución?

Prueba con la función Trim que quita los espacios al final de los textos Sub Concatenar1() Dim Incremento_Fila As Integer Dim destino As String Dim cadena As String Set rango = Worksheets("Mana_Infantil") Range("F1").Select...

Revisa este archivo y dime si es esto lo que necesitas http://www.megaupload.com/?d=3O1O4GRE Si no lo puedes bajar, dame tu correo y te envío el archivo.

Ufff ... está difícil. Dame el fin de semana.

Cambia "ws.cells(iFila,1).value=datos" por "ws.cells(iFila, 1).select" Y agrega en la siguiente línea "activecell.pasteSpecial xlPasteAll" Lo probé y me funcionó perfecto. No olvides valorar la respuesta y finalizar la pregunta