Jump to content

juancyuky

Members
  • Content Count

    148
  • Joined

  • Last visited

About juancyuky

  • Rank
    Advanced Member
  • Birthday 06/28/1980
  1. Gracias Antoni, finalmente me funciono con el siguiente código: Sub filtro_final() 'final A = Application.WorksheetFunction.CountIf(Range("$A$5:$D$11"), Sheets("base").Range("c4").Value) If A >= 1 Then Range("A5").CurrentRegion.AutoFilter Field:=4, Criteria1:=Sheets("base").Range("c4").Value If A = 0 Then MsgBox "NO HAY DATOS QUE COPIAR" End Sub gracias por sus aportes tuve otras ideas para tomar en cuenta, doy por cerrado el tema y adjunto el docto.final filtro vacias.xlsm
  2. Hola Mauricio, Voy a intentar con tu valioso aporte y en este momento anexe el xlsm que al parecer no se cargo anteriormente y te comento si me resulto Muchas gracias!!! filtro vacias.xlsm
  3. Hola amigos De nuevo solicitando su apoya para resolver un tema, al filtrar ciertos datos y requiero copiar la información para procesarla solo que cuando no hay datos se produce un error 1004 como podria condicionarla con un if thense Sub copiar_filtro() ActiveSheet.Range("$A$5:$D$11").SpecialCells(xlCellTypeVisible).Copy End Sub Sub filtro() Range("A5").CurrentRegion.AutoFilter Field:=4, Criteria1:=Sheets("base").Range("c4").Value End Sub filtro vacias.xlsm de antemano gracias
  4. muchas gracias sebastian por tu valioso tiempo, quedo excelente saludos desde mexico!
  5. hola a todos tengo un informe con datos que necesito quitarle el excedente, un ejemplo seria, eliminar ciertas filas que sobran desde que se interrumpe (la celda b6) hasta la ultima con datos (a12) me gustaria contar contar con una macro para poder hacerlo ojala me puedan ayudar saludos...gracias de antemano eliminar desde.rar
  6. Re: reemplazar en columna especifica hola Gerson, si me funciono muchas gracias solo tuve que poner en la segunda macro 'Range("A:A") saludos.
  7. hola a todos, tengo que reemplazar en dos columnas solo que me gustaria saber como puedo especificar que reemplace en una columna especifica, una primer macro reemplaza "Eg" por "Egresos y luego que a la columna A con la segunda macro2 remplace "-" por "" solo que necesito que no toque la columna B que no se vea afectada por la segunda macro. ojala me puedan ayudar, gracias. remplaza.zip
  8. Re: limpiar contenido celdas gracias smar no sabes del apuro que me acabas de sacar justo en el momento que vi tu aporte lo aplique en el momento por que tenia presion de terminar un trabajo y justo a tiempo logre resolverlo con tu ayuda, de verdad muchisimas gracias!!!! saludos desde mexico morelos
  9. hola de nuevo, utilizo una macro para rellenar celdas intermedias, solo que para un caso que se me presento no me funciona la macro y es que las celdas intermedias al parecer no estan vacias, ya que si las borro manualmente ya funciona la macro, me gustaria saber como puedo limpiar la columna para poder rellenar las celdas, ojala alguien me pueda ayudar, gracias de antemano x su tiempo contenido celdas.zip
  10. muchas gracias quedo excelente....doy el tema por cerrado Saludos
  11. hola a todos, tengo una macro que me copia y me pasa un rango de datos a otra hoja el rango de datos puede cambiar a mas o menos datos en filas, cada vez que la utilizo tengo que modificar mi macro en el rango de datos (Range("a2:k17").Select, me gustaria saber como puedo indicar a la macro que copie las celdas ocupadas o no vacias para hacerla mas practica, ojala me puedan ayudar saludos.... selec.zip
  12. Re: cambiar de impresora muchas gracias mauricio por tu valioso tiempo, quedo super bien !!!! doy el tema por cerrado..
  13. Re: cambiar de impresora gracias si me funciono como me dijiste perfectamente quedando asi ya que una impresora esta en otro equipo en red Sub Cambiar_Impresora() Const Impresora1 As String = "HP LaserJet 2300 Series PCL 6 en Ne02:" Const Impresora2 As String = "\\Conta8\HP LaserJet P2035 Series PCL5e en Ne05:" ActivePrinter = VBA.IIf(ActivePrinter = Impresora1, Impresora2, Impresora1) MsgBox "Ha cambiado la impresora activa a: " & vbCrLf & vbCrLf & ActivePrinter, vbInformation, "Impresora activa" End Sub solo me gustaria agregar algo si es posible , que en una celda(a1) de una hoja de mi libro llamada (sobres) me indicara el mensaje de texto "la Impresora actal es "impresora 1 o impresora 2"
  14. hola a todos! tengo que cambiar de impresora predeterminada entre dos que utilizo normalmente y me gustaria contar con una macro que me permita hacerlo mas facilmente desde excel la mecanica actual es ir a inicio impresoras y predeterminar una u otra impresora un pequeño intento que me da la impresora actual es: Sub ImpreACTIVA() ImpresoraActiva = Left(ActivePrinter, Len(ActivePrinter) - 9) MsgBox "La impresora activa es: " & ImpresoraActiva End Sub HP LaserJet 2300 Series PCL 6 (impresora1) HP LaserJet 2035 Series PCL5e (impresora2) gracias de antemano
  15. muchas gracias por tu tiempo, me funciono muy bien tu aporte. saludos desde mexico, doy el tema por cerrado
×
×
  • Create New...

Important Information

Privacy Policy