Saludos amigos del foro. Vengo para solicitarles ayuda para saber como puedo hacer una macro. La situacion es la siguiente: Tengo un libro donde hay 12 hojas, una para cada mes del año, hay otra hoja donde tengo las tablas que uso para crear unas listas, cuando en alguna de las listas, en cualquiera de las hojas de los meses, requiere que se le agrege un nuevo campo, tengo un boton con una macro que me dirije a la hoja de las tablas y alli agrego la celda en la tabla correspondiente, ahora necesito hacer la macro que me devuelva justo a la hoja del mes de donde vino, ahi es donde no se como hacer, es decir, si desde la hoja Enero, fui a la hoja de las tablas, que al …

Buenas tardes a todos. A través de la fórmula "Imagen" he conseguido insertar logos partiendo de un enlace de la imagen. Sin embargo, me gustaría concatenar los mencionados logos estando fijos en la celda, es decir, sin que pueda manipularlos como cuando inserto una imagen normal. Lo he intentado con la función "Concatenar" e "Y" pero no consigo dar con ello puesto que creo que no es posible. Por ello creo que solo a través de una macro podría llegar a hacerlo. ¿Podrían ayudarme? Muchas gracias de antemano PD: adjunto un archivo para que se entienda Concatenar logos.xlsx

Me ha ocurrido algo muy raro, en las hojas excel que habro las columnas van numeradas 1, 2, 3 así sucesivamente y las columnas igual 1, 2, 3 así sucesivamente, pero hasta hace unos días las filas estaban numeradas con a, b, c .... Como puedo cambiarlo. Envío adjunto. Gracias Pitidos.xls

Buenas tengo una macro la cual utilizo para recolectar ciertos datos especificos. Donde los muestro en un listbox por medio de un boton de consulta(esto esta bien). El problema es que tengo un boton para pegar la misma informacion en otro libro que creo, cuando oprimo el boton. Lo que sucede es que no se como capturar la informacion de la hoja en la que estoy y enviarla a la hoja del nuevo libro. aqui esta el codigo de los 2 botones. Private Sub btnConsultaExis_Click() Hoja3.Activate 'Activa la hoja 3 Range("F2").Select Do If (ActiveCell <> ("")) Then ActiveCell.Offset(1, 0).Select 'Baja una celda If (ActiveCell.Value > 1) …

Hola buenas noches Tengo una hoja en la cual hago la entrada/salida de embalajes a través de un lector de código de barras, cuando leo el código del embalaje me pone la fecha, la hora y el estado. Yo pretendo que al leer el código haga una busqueda y si encuentra el mismo código debe de poner en la columna "ESTADO", "SALIDA", además que corte esas dos filas y las pegue en la Hoja "SEGUIMIENTO". Saludos codigo barras.xls

Hola a todos de nuevo. Siento ser tan pesado y solo espero que pronto pueda ofrecer mi ayuda como ahora me la estais ofreciendo a mi. En esta ocasion necesito borrar filas teniendo en cuenta 2 condiciones,en el archivo que adjunto os lo explico bien Gracias a todos por vuestro trabajo prueba.xls

Buenas noches, agradeceré tengan por bien ya que no sé como completar la cabecera de mi tabla según lo que describo en el archivo adjunto, y luego resumirlas según lo anotado. Gracias de antemano por vuestra colaboración PARA AyudaExcel.xls

Necesito copiar los datos de varias hojas de un mismo libro que se encuentran en la columna E y tenerlos los datos de cada columna, juntas en otra hoja nueva, después yo le agregaria los datos que se encuentran en las primeras columnas que siempre son las mismas. es *******..gracias

Que tal, tengo la necesidad de realizar una macro mediante la cual se cambie el valor de las celdas dependiendo del color que tengan en este caso el color son 2 amarillo y azul , en caso de que la celda sea amarilla necesito que el valor actual de la celda se modifique por la letra N y en el caso de que sea azul el valor de la celda sea E. - - - - - Mensaje combinado - - - - - Dar por cerrado esta pregunta ya lo tengo resuelto, gracias colores.rar

Hola de nuevo espero me podais ayudar con esta nueva duda. Para colocar una imagen en un boton de comando en un UserForm, voy a picture elijo la ruta de la imagen y la pongo en el botón, hasta ahi todo bien, mi problema empieza cuando quiero quitar la imagen de ese mismo botón de comando, que no se como hacerlo. Gracias por vuestra atención. Un saludo.

Hola buenas a todos, me gustaría saber si me pueden ayudar con esta idea ya que no controlo mucho de macros. Mi intención sería la creación de un "Calendario de Ausencias y retrasos" (adjunto prototipo abajo) en el cual tenemos en la primera columna: o un código o un nombre del alumno (añadí las dos pues no se si hay diferencia) y en la primera fila los meses ( debajo de los cuales están los días, laborales). Encima del calendario iría una "cajita" con los apartado Alumno, Fecha y 2 "botones" (casillas con "Ausencia" y "Retraso" escrito"). La idea sería que al escribir el nombre del Alumno (o el Código, como prefieran ustedes) junto con la fecha, Excel localizase la c…

Estimados No se que pasa, pero al ingresar un nuevo cliente y al precionar la tecla Guarda el registro aparece en la hoja CLIENTE, pero al presionar salir, desaparace de la hoja. me pueden ayudar Saluds MACROS.rar

Buenas Tardes Mi problema es el siguiente genere un pequeño menu con un useform, con el cual puedo seleccionar siertas hojas de mi libro de excel pero al momento de cerrar el useform y querer moverme en las celdas de la hoja selccionada no se mueve y por caso contrario se mueve la hoja desde donde cargue el useform. Les comparto el formulario (actualmente estoy utilizando el office 2013) Gestion de Refacciones.zip

hola amigos tengo la siguiente pregunta que a lo mejor ala mayoría de ustedes ya les ha pasado. tengo una formula matricial mayor a 255 caracteres al utilizar la formula manualmente y presionar las teclas control+shift+enter funciona sin problemas, al grabar la macro y ejecutarla me da un mensaje de error 1004. como puedo hacer para poner esta formula dentro de la macro y que esta la ejecute? copie este ejemplo pero no me ha funcionado para probar y hacer cambios pero no me ha funcionado Sub Macro2() Dim celda As Range ForEach celda In Range("B2:B12") celda.Select SendKeys "{F2}+{ENTER}", True Next celda EndSub[/CODE] mi formula es así de larga, favor su a…

Tengo esta macro para que al pisar una celda SOLO del rango B14 a B23, me abra un formulario Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'If Intersect(Target, Range("B14:B23")) Is Nothing Then If Intersect(ActiveCell, Range("B14:B23")) Is Nothing Then 'Target.Range ("B14") BUSQ_FACT.optProEntr.Visible = False BUSQ_FACT.optProEntr.value = True BUSQ_FACT.Show End If 'If Target.Column = 2 Then BUSQ_FACT.Show End Sub[/CODE] Soy muy malo en estas cosas de macros y otros He usado otras lineas de codigo pero algunas me funcionan mal, otras no me funciona y otra funciona pero cierro el form y se vuelve a abrir solo, y lo repite una y otra …

Despues de mucha de la ayuda que me da esta página, creo que es hora de aportar algo. Buscando por la web encontre este codigo que espero que les sirva de mucho. Saludos Sub MoverArchivos() ' 'Antes de correr la macro, elije las celdas que tengan la ruta 'del nombre actual, es decir a partir de A2 Dim NombreNuevo As String Dim NombreAnterior As String ' 'Si no encuentra algún archivo, continuará con el siguiente ' On Error Resume Next For Each Celda In Selection NombreAnterior = Celda.Value 'El dato del nombre nuevo y la carpeta nueva será la columna G, especificado con 6 NombreNuevo = Celda.Offset(0, 6).Value Name NombreAnterior As NombreNuevo Next C…

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

Macro Antonio, publicó una excelente solución para el llenado de una Lista o un Cuadro Combinado en el tema "UDF para llenar un control listbox/combobox en un formulario"; precisamente ese tema venía buscando hace buen tiempo. Me interesa saber sobre ese tema lo siguiente: ¿Una vez llenado la lista o el cuadro combinado, será posible eligir a discreción de esta misma Lista o Cuadro (Por ejemplo con doble click) cada vez un registro de tal manera de llevarlo a otra hoja diferente a la que contiene los datos recogidos en el Control? Fill List Function III.rar

Buen día Gente, Primero que nada agradecer a todos por la ayuda que me han prestado en este foro, ya que he encontrado mucha información valiosa para mi, MUCHAS GRACIAS GENTE POR SU TIEMPO Y COLABORACIÓN!!!! Bueno, necesito una ayuda con un tema, tengo un botón con el cual abro un archivo mediante un hipervinculo a este que se carga a un label, el tema es que no se como colocar que si el label esta sin informacion me salga un mensaje como "La imagen no esta cargada" y no me genere el error. Este el codigo del boton Dim url As String 'para abrir una pagina url = Label28 ActiveWorkbook.FollowHyperlink url [/CODE]

hola muy buenas noches a todos quiero que me ayuden con la macro cuando comienza a recorrer cada fila también debe de aumentarse los datos y también el porcentaje Proceso 14 de 15 procesando al 93.00 % atte osca maron practica6.xlsm

Buenas tardes; Tengo un problemita con una consulta SQL. En nombre de la columna de la que estoy filtrando un dato tiene espacios y ….por mas que he probado no consigo hacerla funcionar, siempre me da error. Como debo ponerlo (Descripción Casas )??. He probado con [ ] , con “”, con variable y nada. Dato = "'" & "Londres" & "'" Devolu = "'" & "Fin" & "'" Exacto = " = " Query = "SELECT * FROM Consulta where [Descripción Casas]" & Exacto & Dato & _ " and Motivo" & Exacto & Devolu Pd: no subo excel porque no se puede probar, si fuera necesario le s…

Muy buen Dia/Noche me suscribi a esta pagina con la intencion de encotrar ayuda pero cuando creo encontrarla me arroja un herror y lo unico que deseo es lo siguiente yo estoy a cargo de un estacionamiento y en ocaciones por cuestion del exceso de trabajo cometo herrores en la cuenta de horas ya que tengo que realizar el conteo mentalmente y no he podido dar con el clave 1 hora de entrada 2 hora de salida tendra que ser la hora actual del systema 3 seleccionar tres rangos de cobro (1.- 30 minutos gratis 2.- 90 minutos gratis y el tercero seria el 100% del tiempo gratis esto es para los clientes VIP) 4 numero de boleto o serie 5 tota…

Buen Dia! Por favor que alguien me ayude con el siguiente caso: Se tiene un archivo de Excel(adjunto) con una tabla de datos. A éstos se les necesita filtrar por la columna Negociador y por los estados "Próximo a Vencer" y "Vencido". Una vez se haga el filtro, la información debe ser copiada y pegada en una nueva pestaña la cual llevara el nombre del negociador filtrado. Esto se debe hacer con cada uno de los negociadores. Luego cada una de las pestañas, debe ser enviada via E-mail (Microsoft Outlook) al respectivo correo el cual estará en un archivo aparte de Excel con dos columnas, Nombre negociador y correo electrónico. Al final el archivo creado debe guardar…

Hola a todos, soy nuevo en el foto y en estos mundos de la programación vba. Estoy realizando una hoja de registro de artículos pero no consigo incluir la opción modificar un registro. Este es el codigo que tengo para incluir artículos y creo que el mismo me podría servir para modificar. El problema es que con este código lo que hago es añadir un registro nuevo al final de la tabla en vez de modificar el que esta seleccionado en el combobox. (Espero explicarme para que me podáis entender ya que como os digo soy totalmente novato en este mundo) Private Sub BtnGuardar_Click() Dim Drep As Object, Registro As String If Txt_Precio = "" Or Txt_Descripcion = "" O…

Hola tengo 2 archivos pero al tratar de correr la macro como complemento me da error 424. este es el código, el error esta en esta linea STOCK.AutoFilterMode Then, me sale error 424 no encuentra el objeto por que según no encuentra el STOCK que es una hoja del archivo que abrió. por su ayuda gracias Dim FILE As String FILE = ThisWorkbook.Path & "\" & "STOCK.xlsb" Set fso = CreateObject("Scripting.FileSystemObject") If fso.FileExists(FILE) Then Workbooks.Open Filename:=FILE Else MsgBox "El archivo " & FILE & " no existe.", vbCritical, "ARCHIVO INEXISTENTE" Exit Sub End If If STOCK.AutoFilterMode Then …