Jump to content

All Activity

This stream auto-updates     

  1. Today
  2. Buenas noches, En un archivo excel tengo una columna de fechas con la función HOY(), sin embargo cuando vinculo a través de un formulario con VBA esa información a una plantilla en word me arroja la fecha con este formato 30/05/2014, y la necesito así: 30 de mayo de 2014. ¿Hay alguna opción con macro que se actualice automáticamente sin necesidad de ejecutarlo que se le pueda añadir a dicha función para lograrlo? La idea es que el excel me de la hora actual siempre que lo abra y obviamente luego pasarla al archivo word con el formato solicitado...
  3. me gustaria hacerlo exactamente igual al del video de ramon,,, pero no se cuadrar el offset,,
  4. te voy a pasar un video de lo q busco,,, ya q el codigo no es mio,, simplemente lo modifico y lo adapto a mis requerimientos solo mira los primero 50seg ,, el resto es explicaicon de como o hace, como tu eres un experto pues no pierdas tiempo viendo todo el video. el problema es q no puedo cuadrar los rotulos e insertarlos,,,
  5. LOS ROTULOS O TITULOS NO VAN Dentro del cuerpo del mensaje, no es asi lo q estoy buscando,, es un poco diferente te explico con el boton buscar paciente de la hoja principal o factura,, llamo al form ok una ves abierto el form, debe listarme los datos de la hoja cliente,,,, en los campoc NOMBRE E IDENTIFICACION, debo digitar por nombre o indentficacion para buscar en la gran catindad de pacientes q van a estar contenido en la hoja cliente,,,, aunq yo lo hago de forma manual, digitando en la celda E5 , digitando su numero de identicacion,,, es decir busco tener las 2 fomas, por formulairo y por la formulas,, la fomula ya esta hecha,,,lo hice con la funcion INDICE,, es el formulario el q no puedo cuadrar
  6. A ver... no entiendo... Parecía por tu explicación que querías dar de alta los clientes en la hoja CLIENTES. Es lo que hace. La única diferencia es que no subes los registros de a uno sino en bloque y con los títulos. Por eso, no tendrás problemas para la visualización de los datos. Pruébalo y comentas.
  7. es q no estan abiertos,, se abre uno primero y desde alli se llama al otro,, por eso con ese codigo no funciona,, me toco volver al hipervinculo
  8. LOS ROTULOS O TITULOS NO VAN Dentro del cuerpo del mensaje
  9. mmm,, hola tierra pampa, no entiendo cuando dices: es diferente a lo q escribia por q modifico el codigo, pero el ultinmoo mensaje,, el q le escribi a antoni, es la explicacion correcta lo q busco es ordenar el fomulario , q me liste los datos y los inserte en la hoja, haciendo un doble clic, solo son 3 o 4 campos,,,, el formulario debe listarme en su cuerpo de mensaje el dato del cliente, como nombre direccion e identidad y el telefono,, se puede buscar por nombre o por numero de indentidad,,, probe el codigo pero solo me lista los datos, y no hace mas,,
  10. Hola @renato13 Fijate si es más o menos lo que necesitas. Si te ayudó la colaboración recibida, puedes agradecerlo con un click en el corazón que se encuentra en la parte inferior derecha del comentario. Suerte! ae20190422_post41658_ReviArtDem.xlsm
  11. Hola John, tu y yo nos conocemos y sabes lo buen agradecido que soy siempre a todas vuestras ayudas. He creado un post está vez más sencillo que los anteriores, pero parece ser que el administrador Gerson Pineda se ha cabreado conmigo y no sé por qué. Te dejo el título del post que he creado a escasas horas: Buscar y sustituir el formato de letras sueltas. Espero que vaya todo muy bien. ¡Saludos!

  12. Hola @lug barry! Te modifico un poco el código, para que se carguen los datos en forma automática (incluídos los títulos). Fíjate si es lo que deseas (es diferente de lo que estabas escribiendo). Suerte! Private Sub UserForm_Activate() With Application .ScreenUpdating = False .DisplayAlerts = False End With ufila5 = 0: ufila5 = Hoja5.Cells(Rows.Count, 2).End(xlUp).Row If ufila5 < 8 Then ufila5 = 8 LISTACLI.ColumnCount = 6 LISTACLI.Width = 480 LISTACLI.ColumnWidths = "30; 100; 100; 50; 50; 150" LISTACLI.RowSource = Hoja5.Name & "!A7:F" & ufila5 Sheets("PRINCIPAL").Select Range("D3").Select 'anulamos lo anterior 'Sheets("CLIENTES").Activate 'Range("B8").Select 'While ActiveCell.Value <> "" ' ActiveCell.Offset(0, 50).Select ' If ActiveCell.Value = 0 Then ' ActiveCell.Offset(0, -5).Select ' LISTACLI.ColumnCount = 3 ' LISTACLI.AddItem ' LISTACLI.List(LISTACLI.ListCount - 1, 1) = ActiveCell.Value ' ActiveCell.Offset(0, 1).Select ' LISTACLI.List(LISTACLI.ListCount - 1, 2) = ActiveCell.Value ' ActiveCell.Offset(0, 1).Select ' LISTACLI.List(LISTACLI.ListCount - 1, 3) = ActiveCell.Value ' ActiveCell.Offset(0, 1).Select ' LISTACLI.List(LISTACLI.ListCount - 1, 4) = ActiveCell.Value ' ActiveCell.Offset(0, 1).Select ' 'LISTACLI.List(LISTACLI.ListCount - 1, 4) = ActiveCell.Value ' 'ActiveCell.Offset(0, 1).Select ' 'LISTACLI.List(LISTACLI.ListCount - 1, 5) = ActiveCell.Value ' 'ActiveCell.Offset(1, -5).Select ' Else ' ActiveCell.Offset(1, -5).Select ' End If 'Wend With Application .ScreenUpdating = True .DisplayAlerts = True End With End Sub
  13. Es que te repito, no veo la línea de codigo que te proporcione, y es sencillo de agregarla, ya con tu nivel de lógica en VBA, debes hacerlo, vamos avanza un poquito mas, seguro la satisfacción será tuya, no mía Saludos
  14. Pues en ese caso, se puede activar solo el rango usado Si no comprendes lo que te menciono, o como hacerlo Sube una muestra del libro, tal como lo establecemos en las normas Saludos
  15. Es que tu no cambias, (ya revisé tus temas pasados), y alguien que te diga de una vez, que eres un mal agradecido, pues no tenés "la fineza", de hacerlo... lo peor es que como no sabes "ni pipa", por ende no tienes idea de lo que comentas A partir de ahora, entras en mi lista negra de NO colaborar contigo, me tomo el derecho como Admin y más que todo como el colaborador, que siempre he sido aquí en el foro Si me vas a responder, por favor solo hazlo con respeto Muchisimas gracias!!! Saludos
  16. Yesterday
  17. Hola Gerson muchas grácias por la respuesta pero que pasaría si todas las hojas del libro no tienen el mismo rango de celdas! Gracias
  18. Hola como siempre no entiendo ni pipa, y menos macros. ¿Alguien descubre la forma de hacerlo con Buscar y Reemplazar? Se trata tan solo de buscar vocales que estén solas en el texto (o palabras de una sola vocal), ejemplo b, j, c, t, etc. Y pasarlas todas las buscadas y encontradas a formato cursiva. Ejemplo se busca la a sola, aparecen 14 resultados, y se aplica la cursiva a todas ellas. Nada más
  19. Ok Gracias Gerson, de ese modo no lo intenté, lo use estando la hoja filtrada, voy a quitar manualmente todas las filas ocultas y probaré todo desde el inicio tal como lo indicas.
  20. Hola Me he tomado un tiempito, para prepararte mi aporte Saludos Buscar y formatear letras_GP.zip
  21. Buenas tardes Maestros, estoy intentando crear una macro, que además de borrar las lineas en blanco, según la condición de si celda vacia, además si dentro de un rango especifico, la colunna , en este caso la D, no contiene datos, me borre ese rango especifico. Lo he estado intentando, y no lo consigo. Todo esto, es para una hoja de datos, para realizar pedidos a proveedores. Les adjunto archivo de ejemplo, por si pudieran ayudarme. Ejemplo.xlsm
  22. Esas simples lineas son cuando ambos libros están abiertos, pero solo una linea es para un libro, a la inversa Saludos
  23. Ahí no veo esta linea Ademas esta linea no es necesaria Saludos
  24. hola, buen dia, probe tu codigo pero me sale error, pero el error se produce cuando abro el libro 1 y llamo al 2, le coloque unprotec pero nada.. ,,, asi q lo hice de otra manera,, aunq todavia espabila al hacer el vinculo, los 2 libros estan el escritorio.. use otro codigo.. o macro,, gracias
  25. Si,.. Sub QuitarFiltro() Application.ScreenUpdating = False Fila = Hoja6.Range("A" & Rows.Count).End(xlUp).Row LimpiarCbx criterios Hoja6.Range("A4:R" & Fila).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Hoja6.Range("A1:R2"), Unique:=False Rows.EntireRow.Hidden = False Application.ScreenUpdating = True End Sub
  26. Es por tu bien, no el mio En el procedimiento "QuitarFiltro" ¿haz declarado la hoja, en este caso "hoja6"? Saludos
  27. Asi mis esta hecho Private Sub CmdFiltrar_Click() Fila = Hoja6.Range("A" & Rows.Count).End(xlUp).Row Application.ScreenUpdating = False criterios Hoja6.Range("A4:R" & Fila).AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=Hoja6.Range("A1:R2"), Unique:=False cargaListbox QuitarFiltro Application.ScreenUpdating = True End Sub mejor animate en abrir el archivo,..
  1. Load more activity
×
×
  • Create New...

Important Information

Privacy Policy