Jump to content

96andres96

Members
  • Posts

    37
  • Joined

  • Last visited

About 96andres96

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

96andres96's Achievements

  1. Muchas gracias a los dos, me han servido de mucha ayuda y he conseguido solucionarlo. Cierro el tema al haber conseguido la respuesta.
  2. Buenas tardes. Tengo dos filas con distintos nombres en cada columna, y los quiero pasar a una columna sin que se dupliquen los valores, pero no sé como hacerlo. Ejemplo: Tengo estas dos filas con nombres de colores: Fila 1: Azul, Verde, Morado, Rosado Fila 2: Amarillo, Gris, Negro, Azul, Morado, Dorado, Rojo. Y lo que quiero es ir comparando la fila 1 con la fila 2 y que en una columna me coloque los nombres sin repetirlos: Columna 1: Azul, Verde, Morado, Rosado, Amarillo, Gris, Negro, Dorado, Rojo. ¿Cómo puedo hacer esto? Ya que lo que he conseguido con mi código es que al comparar, por ejemplo Azul (Fila 1) con la Fila 2 en la columna me lo coloca una sola vez, pero luego cuando me coge el verde (Fila 1) al comparar en la fila 2, como verde <> azul, entonces me vuelve a colocar el azul, y al final obtengo en la columna: Azul, Verde, Morado, Rosado, Amarillo, Gris, Negro, Azul, Morado, Dorado, Rojo. Pongo este ejemplo de prueba porque actualmente lo que quiero hacer está en un libro con un código muy largo y el código no me está permitido compartirlo, pero si es necesario, hago un libro de prueba e invento este ejemplo. Gracias de antemano. Saludos.
  3. Muchas gracias a los dos. Ambas respuestas me han servido, pero por sencillez he optado por la de JSDJSD. No obstante, como comenté anteriormente, tengo que tener siempre activa una impresora (de tickets) entonces si le doy a la macro, al crearse el PDF lo hace en el formato de esa impresora. Por tanto, pensé en el inicio de ejecutar la macro poner: Application.ActivePrinter = "Microsoft Print to PDF" Y una vez finalizada la macro, cambiar a la impresora de Tickets, pero me da error. ¿Hay alguna forma de conseguir esto que comento? Gracias.
  4. Aquí adjunto un excel de prueba. Lo que me gustaría es guardar las tablas (en la prueba están vacías) en una única hoja horizontal en PDF. La opción de imprimir que comenta Exceler C no me sirve, ya que tengo que tener una impresora activa todo el rato y no puedo cambiarla por la de Microsoft Print To PDF. Gracias. Prueba.xlsm
  5. Buenas. Quisiera hacer una macro para guardar un rango de celdas en un PDF cuando se cliquee en un botón. La macro en sí, se hacerla. El problema viene en que el rango de celdas seleccionado es grande (no mucho), pero lo suficiente como para que cuando se genere el PDF se guarde en varias hojas. Por tanto, lo que me gustaría que me ayudasen a conseguir es a que la información del rango de celdas se redimensione para que quepa en una única hoja del PDF. ¿Es posible? Gracias.
  6. Gracias, Hector por tu aportación. Al final, como comenté hice mi formulario, así que ya quedó solucionado el tema^^
  7. Buenas tardes. Tengo una macro que selecciona un rango de celdas para imprimir. La macro la tengo en Hoja1 y las celdas que quiero imprimir están en Hoja2. Si coloco la macro en Hoja2 para imprimir, la macro corre bien, sin embargo, si coloco la macro en Hoja1 y la ejecuto desde esa página me salta error. Estoy en Hoja1 y quiero imprimir las celdas de Hoja2 con el siguiente código y me salta error: Sub ImprimirTicket() Sheets("Hoja2").Range("O2:R10").Select Sheets("Hoja2").PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False End Sub Sin embargo, teniendo la macro en Hoja1, si le hago un apaño dirigiéndome a Hoja2 y regresando a Hoja1 funciona la macro. Sub ImprimirTicket() Sheets("Hoja2").Select 'Voy a hoja2 Sheets("Hoja2").Range("O2:R10").Select Sheets("Hoja2").PrintOut Copies:=1, Collate:=True, _ IgnorePrintAreas:=False Sheets("Hoja1").Select 'Regreso a la hoja donde tengo la macro, hoja1 End Sub ¿Alguna idea de por qué ocurre esto y cómo podría evitar este apaño de forma más óptima? Gracias.
  8. Buenas tardes. Tengo en excel un macro con el que imprimo un ticket y tras imprimir el ticket automáticamente se abre el cajón portamonedas. El cajón portamonedas he logrado abrirlo a través de las propiedades de la impresora que es de la marca AV Pos modelo P-83. No obstante, me gustaría hacer una macro que abra solo el cajón portamonedas sin necesidad de imprimir. El cajón que tengo es el HS-410. ¿Hay alguna forma de hacer esto? Gracias.
  9. Hice lo que mostraba el artículo, pero no me funcionaba bien. Al final opté por crearme yo mismo un formulario que suple el teclado virtual. Gracias de todos modos ^^
  10. Buenas tardes. Tengo un ordenador Lenovo que es convertible, se puede convertir a tablet. Cuando cambio de pc a tablet y, por ejemplo, voy a Google a buscar algo, se me activa el teclado virtual, ya que el teclado físico no lo puedo usar porque está boca abajo. Pues bien, si voy al excel me gustaría que también se activase. Es decir, que si selecciono una celda me aparezca el teclado virtual para poder escribir sobre ella. ¿Hay alguna forma? Porque por más que he buscado no he encontrado la solución. Gracias.
  11. Buenas tardes. Tengo el siguiente código en una macro: Sub Prueba() hora = Hour(Now) If hora <= 18 & Sheets("Hoja1").Range("G7") = 1 Then MsgBox ("haz esto") ElseIf hora > 18 & Sheets("Hoja1").Range("G7") = 2 Then MsgBox ("haz esto otro") Else MsgBox ("No se cumple") End If End Sub Sin embargo, siempre se me ejecuta el Else aunque a priori se cumplan las condiciones del If. Adjunto el excel de prueba. ¿Alguna idea del por qué no entra en el If ni en el ElseIf? Gracias Prueba.xlsm
  12. Buenas. Tengo dos preguntas sobre el uso de los formularios. Tengo un label con un texto en color negro, y me gustaría darle el color en hex: #731232 sin embargo, no sé cómo aplicarle este color a la letra. Por otro lado, quería saber si hay alguna forma de que los CommandButton tengan bordes redondeados en lugar de rectos. Gracias de antemano.
  13. Gracias por la respuesta. Cambiando lo que me comentaste junto con otro pequeño error que tenía me sale bien ya.
  14. Buenas. Tengo un libro de excel donde dependiendo del valor de unas celdas (Inicio de sesión) quiero que se muestren unas hojas y se oculten otras. Tengo esta macro: If Sheets("Principal").Range("K23") = Sheets("Usuarios").Range("B4") And Sheets("Principal").Range("K24") = Sheets("Usuarios").Range("C4") Then 'Se comprueba usuario y contraseña ''USUARIO1 Dim Hoja As Object For Each Hoja In ActiveWorkbook.Sheets If Hoja.Name = "Inicio1" Then 'Quiero que se vea la hoja Inicio1 Hoja.Visible = True Else Hoja.Visible = False 'Oculta el resto de hojas End If Next Hoja Sin embargo, cuando voy a ejecutar la macro me salta el siguiente error: No se puede asignar la propiedad Visible de la clase Worksheet. He estado leyendo por los foros y sale que puede ser debido a que el libro está protegido, pero en mi caso ni el libro ni ninguna hoja está protegida. ¿Alguna idea? Gracias.
×
×
  • Create New...

Important Information

Privacy Policy