TAVO1

Muchiiiiisimas felicidades Maestro Ioyama, te deseo que la pases super en compañia de tus seres queridos, y gracias por compartir tu amistad en muchos foros. Recibe un cordial saludo y abrazo desde México.

Son bárbaros, muy bueno y gracias por compartirlo.

Gracias Mjrofra, por tu explicación, tienes mucha razón, hasta en los detalles de las fuentes de letras eres aplicado. Muchas Gracias.

Mjrofra ya con el segundo código, ya no hay que cambiar la línea comentada en el primer ejemplo, gracias por todo, pero por último y si puedes contestar, porqué será que cambio fuente del código a Tahoma, y me aparece el comentario un poco movido, te doy las gracias por si puedes contestar, y si no creéme, que así me sirve muchísimo, y por favor después de responder, si pudes por favor dar como solucionado el tema. Gracias Dios te bendiga mucho y a Lucas también.

Mjrofra muchas gracias por la aclaración, tienes como siempre la razón, lo que pasa es que yo antes de correr la macro anexé otro dato en la fila siguiente, mas grande de lo que dejaste en separador: Separador = Application.Rept(" ", 100 - Len(.Value) - Len(.Offset(, 1).Text)), habías dejado 60, y sinceramente coloqué más texto. Con el ejemplo que me mandaste ya con el archivo, vi que si corría bien, entonces fue lo que descubrí. Te pido mil disculpa por no haberte informado antes, y te voy a ser sincero tengo un hijo de 3 años y yo llego a casa como a las 8 o 9 pm, y mi hijo ya me está esperando para jugar, su lema de él es juagar y jugar, por lo que no tuve tiempo, y acá en el trabajo tenemos prohibido el internet, tengo que prestar máquina, pero están muy lentas, quiero responder un tema, y cuando le doy click me saca del internet, pero tu ejemplo si lo bajé ayer, aquí en mi trabajo. Eres sinceramente genial, y créeme va ver muchos foreros a quien le va a servir esta macro, porque muchos van a leer tu ayuda y le va a servir como a mí me han ayudado otras soluciones, que tú has dado. Te quiero comentar que antes de solicitarte ayuda quise hacer un bucle con For Next, que recorriera la columna A y B, guardando los datos en una variable y sí la recorría pero me colocaba la última fila de A y B, no me colocaba todos los datos, lo quise hacer copiando y pegando, y no tuve resultado, pero tú si eres un master. Dios te bendiga y un saludo a Avatar. No había leído lo de Lucas225, Muchas gracias, Dios bendiga a los dos y a todos los foreros que más saben, y no menciono nombres para no quedar mal. Gracias Mjrofra por el otro código no lo había checado, es más perfecto aún y a Lucas 225 no tengo palabras, eres estupendo también. Hoy en el trabajo quise responder sus soluciones, pero les repito presto otra máquina, porque la mía no tiene internet, escribí 10 veces mensaje tras mensaje y siempre me mandó este mensaje. The requested URL is not supported ________________________________________ The requested URL is not supported Tal como está lo copio, pero ahora si estoy en casa son las 11:01pm en México del 09-Febrero-2010, y les pido mil disculpas a todos, por no contestar antes, me quito el sombrero por las dos soluciones (así se dice en México). Muchas gracias.

Muchas gracias Mjrofra, es el segundo mensaje que te escribo, el otro no lo pude enviar, no estoy en casa debe ser por eso, he leido mucho tus mensaje de otros temas y lo que te puedo decir es que Dios te siga bendiciendo, ya que eres muy inteligente en esto de las macros, fijate que probé tu codigo y me manda error, El tipo no coincide, no te puedo explicar mas, porque no estoy en casa, pero llego a las 9:00 pm, ahora en México son las 11:10 am, Muchas gracias Mjrofra.

Hola Amigos, muchas gracias por sus consejos y ayudas que nos dan a las dudas que tenemos, os vengo a solicitar ayuda sobre una macro que me coge datos en la columna A y B, y lo coloca como comentario en celda F6. Esta macro la encontré en Todo.Expertos, lo que yo quisiera es que las cantidades en números por ejemplo 9,000.00 me lo pusiera tal como está su formato de origen, y también poder hacer el rango de A y B, dinámico, que si pongo datos desde A1:B4 me copie todos, o si coloco datos desde A1:B15, que copie todo el rango. Como opcional, quisiera si los datos del Rango A, quedaran alineados a la izquierda y los datos del rango B, quedaran alineados a la derecha en el comentario de F6. Muchas gracias anticipada por vuestra ayuda. INSERTAR COMENTARIOS.zip

Respuesta: ioyama Me uno a los saludos de los compañeros, para el master Ioyama y Fernando, que estén muy bien los dos y disfruten mucho sus actividades y aqui les estaremos esperando, Bye. Gracias por todos sus consejos.

Respuesta: Bucles Este ejemplo es muy bueno neverdelimon1, me gustaria usarlo pero acumular en una sola hoja lo copiado, no en diferentes hojas, agradesco mucho tu ayuda neverdelimon1. Gracias

Respuesta: Colocar celda como referencia en criterios Muchas gracias luisfecab, por tu ayuda, todos los dias se aprende algo nuevo, creeme pense que se trataba de otro programa, te comento que mi duda ya la resolvi y fue con filtros avanzados, como quiera ya se como subir archivos, ya que intentare seguir participando y porque no alguun dia ayudar a muchos con dudas de excel.

Respuesta: Colocar celda como referencia en criterios LO SIENTO NO PUEDO MANDAR EL ARCHIVO NO TENGO EXTENSION ZIP, TENGO RAR, PERO EL CODIGO ES EL SIGUIENTE: Sub FILTRARYCOPIAR() Range("C6").Select Selection.AutoFilter UF = Range("I" & Cells.Rows.Count).End(xlUp).Row UF1 = Range("C1") ActiveSheet.Range("$A$6:$I&UF").AutoFilter Field:=3, Criteria1:="=UF1*", _ Operator:=xlAnd Selection.Copy hoja = Range("C3") Sheets("hoja").Select Range("A3").Select ActiveSheet.Paste Sheets("MODIFICADO").Select End Sub LO QUE QUIERO LOGRAR ES FILTRAR, COLOCAR EL PARAMETRO EN C1, Y COPIAR A OTRA HOJA, COLOCANDO EL NUMERO DE HOJA EN C3, YO CREO QUE ME FALTA SELECCIONAR EL RANGO FILTRADO, PERO EL ERROR ME LO PRESENTA EN LA LINEA 5: ActiveSheet.Range("$A$6:$I&UF").AutoFilter Field:=3, Criteria1:="=UF1*", _ Operator:=xlAnd MUCHAS GRACIAS POR SU AYUDA

Respuesta: Colocar celda como referencia en criterios Gracias por los que me puedan ayudar, mando archivo para su mejor comprension, lo quise hacer semejante a los ejemplos leidos aqui mismo, e intente hacerlo pero me marca error.

BUENOS DIAS EN MEXICO: GRACIAS POR SU AYUDA. MI PROBLEMA SE PRESENTA CON EL SIGUIENTE CODIGO: Selection.AutoFilter ActiveSheet.Range("$A$6:$M$69").AutoFilter Field:=3, Criteria1:="=CO*", _ Operator:=xlAnd QUE GRABE EN EXCEL, PERO QUIERO MODIFICAR Criteria1:="=CO*", PARA COLOCAR RANGE("C1"), PARA PODER ESCRIBIR EN CELDA C1 LAS PALABRAS QUE COMIENCE EL FILTRO, LO HE TRATADO DE COLOCAR, PERO ME MANDA UN ERROR: ERROR DE COMPILACION: SE ESPERABA: FIN DE LA INSTRUCCION. MUCHAS GRACIAS

Respuesta: como Copiar un rango IOYAMA Eres muy grande en persona y conocimiento, Gracias por tu ejemplo y tiempo, Este ejemplo es similar a uno que yo necesito por eso la solicitud de tu colaboración. Muchas gracias y quedo a tus órdenes en lo que pueda ayudar, Buen día o Buenas Noches.

Respuesta: como Copiar un rango Hola ioyama que sorprendente eres con las macros, revise el ejemplo que le das a rub26 y es magnifico, perdon si es mucha molestia pero como le podria agregar en la hoja global en la primera columna el nombre de la hoja, o sea los numeros 2 de la hoja dos que se copiaron a la hoja global, colocar a la izquierda y en todas las filas copiadas al lado izquierdo el nombre de la hoja. Mil disculpas por tu tiempo. Muchas gracias por tu respuestas a todos lo que han solicitado.