Macros y programación VBA

Hola: Quisiera saber si hay alguna manera de poder filtrar, alternativamente, importes (ej: 81,73), fechas (28/01/2015) y texto ("Cta"). Me da problemas para filtrar cantidades, y se debe al orden de los 3 autofiltros (paso a paso, si lo filtra). Sub FiltroSencillo() On Error Resume Next x = Columns("" & Range("B1") & "").Column With [a1] .AutoFilter x, [a1] 'Para importes 'No funciona bien .AutoFilter x, "*" & [a1] & "*" 'Para texto en general .AutoFilter x, CDate([a1]) 'Buscar fecha End With End Sub[/PHP] Filtrosencillo.rar

Tengo un listbox con datos de equipos con información común pero almacenados en diferentes hojas, todo va bien hasta la selección de algún equipo de otra hoja, donde me genera error. adjunto parte del archivo, de antemano, gracias. Private Sub ListBox1_Click() Sheets("FichaSwitches").Select Range("A1").Activate Cuenta = Me.ListBox1.ListCount Set Rango = Range("A1").CurrentRegion For i = 0 To Cuenta - 1 If Me.ListBox1.Selected(i) Then Valor = Me.ListBox1.List(i) Rango.Find(What:=Valor, LookAt:=xlWhole, After:=ActiveCell).Activate End If Next i Sheets("Fichatransmisores").Select Range("A1").Activate Cuenta = Me.ListBox1.ListCount Set Ran…

Hola buenos días, necesito vuestra ayuda. Os comento: Quiero bloquear las celdas que están en la columna "Solicitar" en función de la diferencia de dias con las que se solicite un día. Esta hoja servirá básicamente para solicitar días de visita, la gente pondrá un número que se le ha asignado en la columna "Solicitar" y quiero que salte un mensaje de error cuando se solicita con menos de 7 días de antelación o con más de 30 días, es decir un máximo y un minimo. Muchas gracias! a continuación os adjunto la hoja Libro1.xls

Estimados expertos saludos, no comprendo la razón por la cual el siguiente codigo publicado en este foro me ubica los datos ingresados en el textbox en la fila 40. Cuando en realidad lo requiero en la fila 5 concretamente desde la columna C. Adjunto el codigo que incluye el problemas de hacer un numero consecutivo el primero Private Sub CommandButton1_Click() Dim Consecutivo As String 'Ingresa el valor consecutivo Dim Nombre As String Dim Telefono As String Dim Institucion As String Dim ultimafila As Double 'Busca la Ultima Fila Consecutivo = TbxNumOficio.Value Nombre = TbxDirigidoA.Value Telefono = TbxTelef.Value Correo = TbxInstitucion.Value ultimafila…

Buenas tardes Foristas, quiero darles las gracias por la ayuda que he recibido en otras ocasiones. Entrando en materia necesito que por favor me ayuden a copiar y luego insertar o adicionar un formato prediseñado en excel para toma de datos de costos y luego organizarlos en un tabla para su posterior analisis. La idea es que si tengo un producto mas a crear o adicionar pueda insertar el formato y llenarlo y asi me vaya generando los datos en la tabla de analisis. Muchas gracias Anexo un ejemplo. Insertar formato.rar

Hola Estimados Foristas. Nuevamente recurro a ustedes, les comento que estoy avanzando en mi proyecto (Inicialmente utilice el aporte de GP), este es un buscador muy agíl con imagenes, reporte y exporta a PDF. AHORA NECESITO que me MODIFIQUE el registro, he buscado en el foro la forma de como adecuarlo pero no logro encontrar la ruta correcta. He insertado un botón para que ejecute la modificación. Espero de sus atenciones. Slds. FELIX CONTROL DE ACTIVOS FIJOS NO ELECTRICOS.zip

Hola, disculpen las molestias quisiera que alguien me apoye a programar una macro para resolver este caso. Se trata de generar una macro que me ayude a sustituir las x por la palabra que viene en la fila 1 y que corresponda con la columna por ejemplo la fila una se sustituyo por hola, la segunda seria por como y asi sucesivamente. Disculpen las molestias y excelente tarde sustituir.xls

Hola Amigos Necesito que me ayuden con una macro (no conozco mucho del tema), para poder alertar 30 dias antes sobre el vencimiento de exámenes y a la vez envíe un correo con el nombre de la persona, el área y la fecha limite de vencimiento. He probado algunas macros pero son muy engorrosas. les adjunto el archivo para que me puedan ayudar. Desde ya gracias, atte Claudio Prueba macro.rar

Buenos días; Tengo un pequeño problema con la macro que estoy haciendo, quien me puede ayudar??. La macro lo que hace es mandar un correo electrónico cuando la celda B contigua a la celda C en la que se está escribiendo contiene texto. Este paso le hace bien, el problema es que antes de mandar el correo hago un filtro en la columna E, al filtrar me salta un mensaje antes de mandar el correo diciendo “ esta hoja de calculo contiene filas o columnas ocultas que el destinatario puede mostrar. ¿ desea continuar ?”, como podría quitar este mensaje para que enviara el correo directamente sin tener que aceptar nada. Gracias y un saludo,

Buenas tardes! Estoy trabajando en una macro que trabaja en base a una userform, el problema es que al cerrar el formulario el excel se bloquea (no se desplaza correctamente por las celdas y no deja cerrar el excel) todo esto hasta que cambio de hoja seleccionando abajo manualmente. todas las pruebas que he hecho me han llevado al problema, que esta en el siguiente codigo y al sacar la seleccion de la hoja2 (marcado en rojo) funciona correctamente, pero no puedo llenar los combobox. Private Sub UserForm_Initialize() Application.Visible = False Hoja2.Visible = xlSheetVisible Columns("ag:ag").Select Selection.EntireColumn.Hidden = False Sheets("Operaciones").Sele…

Hola a todos Continuo con mis andanzas con windows media object, y como ultimamente, con dudas, os comento Mi intención es crear un "Reproductor en excel" para que me ayude en mis proyectos de edición de video, para ello, utilizaba un cronómetro con el que podía hacer "time shift" ("Modificar el inicio de un video", esto a mi me va bién para calcular donde tiene que ir cada segmento de video para su posterior edición y poner comentarios dentro del excel) Como desconozco mucho como funciona esto, le he incluido el cronómetro al reproductor, pero, el problema es que no va a la par con el video (el crono a veces se retrasa o se adelanta). mi pregunta es, ¿hay alguna ma…

Hola: He ideado un formulario para búsquedas con 4 posibilidades: ContieneExacto, ContieneAproximado, NoContieneExacto y la última ya te la puedes imaginar. Y quisiera que al marcar/desmarcar alguno de los dos Checkbox (Exacto / No contiene), se ejecute una de las 4 opciones. Si no marco nada, debe hacer una búsqueda del tipo Contiene/Aproximado. Si por ejemplo marco el check Exacto, buscará del tipo Exacto/Aproximado. Saludos Buscador.rar

Buenas Tarde a Tod@s soy Nuevo con VBA y hablo español muy mal quiero Vuestra ayuda para aprender un poco para mis tareas diarias. lo que necesito de momento es lo siguiente: tengo 2 hoja en el libro de excel y "Sheet1" es hoja principal y "sheet2" es solamente para tareas terminadas en la sheet1 tengo todos los datos (Tareas pendientes") y en esta hoha"Sheet1" en la columna "H" pongo datos cuando esta treminada. lo que quiero, es un codigo que me haga lo siguiente. 1- cuando pongo algo en la columna "H" esta fila me corta de la sheet1 y pega en el "SHEET2" en la ultima fila disponible 2- y de la sheet1 se borra dicha fila de momento eso es todo lo que…

que tal buenas tardes amigo quisiera saber como puedo extraer un varios xml en una celda toda la infornmacion que viene en el xml en una tabla de excel, por favor se lo agradeceria demasiado ya que son un buen de xml los que me falta de ver para hacer una cuenta de gastos, eh intentado exportar el xml en excel , pero me sale repetido muchas veces informacion del xml, simplemente lo que me intresa del xml es el rfc el nombre del proveedor el subtotal el iva retenciones de isr iva y sie esta en dolares la factura asi como lo mas importante la descripcion de la factura asi como si es ingreso o egreso para eso quisiera extraer el xml amigos, ya que eh visto muchos ejemplos y …

disculpen amigos un macro que me arroje la diferencia de dos o mas carpetas que tienen 2 o mas archivos iguales, de hecho lo vi en un ejemplo del señor macro antonio, un comparativo de todos los archivos faltantes o iguales ? gracias.

Buenos días, os explico: Tengo un problema, necesito que en función del turno de trabajo que sea una persona, me busque una hoja oculta. Para que lo entendais mejor, he creado un excel para que me podais ayuda, En la casilla C5 quiero que la gente pongo el turno que le pertoca (A,B,C,D o E) y en función de eso quiero que me busque la hoja del turno que le pertoca: yo soy turno "A": pongo en C5 turno "A" y visualizo automáticamente la hoja del "turno A", o se me desoculta esa hoja. Alguien me puede ayudar? Hoja turnos.xls

Buenas tardes, amigos hace tiempo atrás solicite ayuda con una macro para la impresión masiva de archivos, funcionaba perfecto, resulta que por algún motivo que desconozco dejo de funcionar sin ningún cambio al archivo original. Ejempor Imprimirmas.zip

Hola he copiado un ejemplo de un hilo llamado, Buscador con 3 criterios (Listbox y 3 Textbox) y he ido adaptando a lo que busco, funciona bien pero no filtra aun del todo bien por ejemplo filtro por numero de la semana, parque y maquina, pero por ejemplo con la seman 23, parque atalaya de la solana y maquina A1.1 no me filtra y con otros si, ya no se como hacer que funcione. porfavor a ver si podeis hechame una mano. Filtro OT cliente.rar

Hola, tengo una base de datos en excel, requiero buscar en ella las filas que tengan en la columna J la palabra doble (quiere decir que tengo datos en cargos y créditos), de esta fila encontrada, requiero hacer dos copias con los mismos datos pero que una tenga 0 (ceros) en crédito y otra que tengo 0 (ceros) en cargo, y eliminar la fila que dice doble. Espero me puedan ayudar. Subo un ejemplo del archivo en la hoja 1 y en la hoja 2 como me gustaria que quedara. Gracias. Ejemplo Macro.rar

Hola buen día Alguien me pudiera ayudar con esto que he buscado y no encuentro la manera? Tengo varios archivos con terminación ".DAT" en una carpeta y deseo pasarlos a EXCEL, (claro son textos con separación de PIPE "|" y convertirlos a Columna). El archivo final debe ser el excel con todos los datos de todos los archivos .DAT en uno solo (consecutivo hacia abajo) Alguien que me ayude? Anexo archivos .DAT ejemplo en un ZIP Gracias. archivos DAT.zip

Buenas noches, Me dirijo a uds con la siguiente consulta: 1. Lo que necesito es vincular los valores de las celdas C1, C2,....., Cn a las casillas de contenidas en la siguiente página web (http://www.gebweb.net/optimap/) como si al ingresar los valores en C1 y C2, Cn automáticamente se ubiquen en las casillas mencionadas de la página web para hacer la consulta respectiva 2. Posteriormente, quisiera que se clickee automáticamente el botón "Calculate Fastest Round Trip", o " Calculate Fastest A-Z Trip"(contenida en la misma página web) y me arroje el resultado correspondiente. 3. Una vez calculada la ruta mas corta, importar el dato, y si es posible la…

Buen día, Espero y me puedan apoyar con un archivo que estoy creando. Lo que hice primero fue hacer una base de datos en access solo con los campos de "Numero" y "Estatus". En el archivo de excel hice un formulario con un tetxbox, un label y los commandbutton de aceptar y cancelar. Lo que quiero es que al escribir en el textbox un numero y al darle aceptar, ubique el numero en la tabla de access y devuelva en el label el dato que viene en "Estatus" Espero haberme dado a entender, disculpen que no haya subido algún código. Espero y me puedan apoyar, de antemano muchísimas gracias, saludos... estatus.rar

Hola a todos, En el archivo adjunto me gustaría saber como puedo hacer que me pueda enviar mensajes automaticos segun la la aproximacion de la fecha de la columna K pero con un intervalo de 20 dias antes de la fecha, 15 dias antes de la fecha y 11 dias antes de la fecha que ese sea el rango en el que se envie un email de notificacion el cual debera llevar en el asunto del mensaje los datos de las columna A (trabajo), C (cliente) y J (Orden de compra). No puedo colocar el email ya que es de mi trabajo pero es de outlook. Seria posible realiazar esta solicitud? Muchas Gracias por su colaboracion. Saludos, EJEMPLO MACRO.zip

amigo tengo este combobox en la hoja1 con el listado de hojas ocultas, cuando selecciono la hoja3 por ejemplo.........este me envia sin prolemas hasta la hoja, pero cuando regreso a la hoja1 (por medio de un boton) , el combobox muestra la ultima seleccion ( en este caso la hoja3) pero si vuelvo a seleccionar esta misma hoja3 no hace nada, tengo que seleccionar otra hoja y despues de esto, si puedo vollver a seleccionarla (hoja3). no se si sea la solucion .....pero cuando regrese a la hoja1 encontrar el combobox en blanco.....no se si sea necesario.........este es el codigo y el archivo Private Sub UserForm_Initialize() ComboBox1.RowSource = "hoja1!" End Sub Private S…

Hola amig@s. Esta macro Sub GuardaSinMacros() Application.ScreenUpdating = False Application.DisplayAlerts = False Set l1 = ThisWorkbook Ruta = "D:\Datos Mecanicos\" nombre = Range("G4") & "_" & Range("C13") & "-" & Range("H13").Value & ".xlsx" 'Cria archivo llamado Copia.xlsm en la misma ruta para que sirva de base a la creacion del .xlsx en variable nombre l1.SaveCopyAs Ruta & "copia.xlsm" Set l2 = Workbooks.Open(Ruta & "copia.xlsm") l2.SaveAs Ruta & nombre, FileFormat:=xlOpenXMLWorkbook, CreateBackup:=False 'cria archivo requerido l2.Close Kill Ruta & "copia.xlsm" 'elimina el arc…