hola ingrese esta formula en vba y por alguna razon si utilizas la misma formula en una celda, si tienes el resultado en toda la columna, osea si se aplica sin problema; pero cuando lo hago en codigo se aplica en algunas celdas de la columna y en otras arroja un 0, como si no existiera resultado... no se que sucede que hice mal... alguien me puede explicar. Private Sub Worksheet_SelectionChange(ByVal Target As Range) uf = Range("A" & Rows.Count).End(xlUp).Row With Range("B2:B" & uf) .Value = _ "=XLOOKUP(1,(espejo[Orden Number]=A2)*(espejo[role aprobador]=""capataz""),espejo[nombre approbador])" …

Buenos dias Familia Nuevamente necesito su ayuda tengo un archivo en la cual quiero copiar los datos que estan en el sheet1 de la columna B en adelante sin el encabezado y pegarlo en la sheet2 debajo del ultimo registro que tenga esa hoja. Favor su ayuda muchas gracias anexare el documento tuve que acortar la data para poder subirlo data foro.xlsx

Hola muy buenas noches, por favor me podrian apoyar, necesito que al señalar un ITEN del formulario AGREGAR_MANTENIMIENTO me lo ilimine de la hoja de calculo llamada "PH", y si en el Listbox "insumos2", agrego un item nuevo pueda tambien guardarlo. QUITAR LINEA.rar

Tengo un problema en mi codigo VBA es el siguiente ya que me oculta todas las imagenes en mi hoja y solo quiero que me oculte una que es el nombre de la imagen que lo pongo en la celda J23: Private Sub Worksheet_Change(ByVal Target As Range) Rango = "J23" If Not Application.Intersect(Target, Range(Rango)) Is Nothing Then For i = 1 To ActiveSheet.Shapes.Count If ActiveSheet.Shapes(i).Name <> Range("J23").Text Then ActiveSheet.Shapes(i).Visible = False Else ActiveSheet.Shapes(i).Visible = True End If Next End If End…

Buenas tardes, tengo una macro copiada de un ejemplo que funciona perfectamente. Usa un formulario para capturar datos a una hoja. El problema está cuando convierto el rango normal en una tabla. Aquí ya no me numera la columna A y se desplaza al final de la tabla. Agradecería me echasen una mano. Adjunto envío archivo. prueba.xlsm

Buenos dias, tengo un problemilla con una macro que ya tengo hecha y en la que dentro de la cual quiero hacer una llamada a otra siempre y cuando se cumpla una condición. La comparación que quiero hacer está en una celda combinada y es una cadena de caracteres que previamente he seleccionado con un desplegable de "validacion de datos". mas o menos asi: macro1 if = "cadena" then call macro2 else (aquí iria todo el resto de la macro1) end if ya sé que la sintaxis no es así pero es justamente para que me digaís como se haría. Quizás no me he explicado bien... Un saludo y gracias de antemano.

Hola chicos! hace poco publique un post sobre mi problema para leer los datos de una bascula TORREY, bueno, eso ya solucionado, en parte. Resulta que cuando leo los datos tengo que declarar mi variable "Peso" como String, si la declaro como double o byte me marca error, y necesito tomar solo el numero (ej. 0.406 kg solo necesito leer 0.406) para poder sacar el porcentaje en base a otros kilos ingresado anteriormente en una pagina llamada Estimaciones. Espero me puedan orientar o ayudar con esto Adjunto el archio =) Muchas Gracias! =) DatosBasculaxlsx.rar

Estimados amigos del foro ayudaexcel.com Mediante ayuda de un miembro llamado Shauinto, a quien le debo muchos agradecmientos, logre hacer una aplicacion en excel, que me permite busquedas y edicion de informacion de planos. La Solicitud que hago es la siguiente, y agradeceria la atencion que me puedan brindar. 1. El archivo contiene 6 userform, solo uso 2, que serian el editor, y el buscador. Los otros 4 userforms, son para usos secundarios como carga de un archivo, o seleccion de tipo de identificacion de un plano, o correccion. 2. Tengo el inconveniente de que al insertar un nuevo plano, el hipervinculo o ruta del archivo me lo crea en las dos hojas, la hoja de pre…

Hola, quiero que el boton buscar me llene tambien los datos de Semestre, Materias e Importe que actualmente no me carga, y que pueda modificar el Curso y sigan funcionando en forma dependiente tanto el Semestre como las Materias, gracias adjunto el archivo. Buscar.rar

Saludos a todos, con la siguiente cuestión, alguien sabrá algún código que me permita seleccionar solo las celdas vinculadas de libros externos. Gracias

Hola a tod@s, estoy intentando crear una macro para insertar una fecha desde un calendario en una determinada celda, pero mi excel 2003 no dispone de control de calendario 11. ¿como lo instalo? Gracias.

Hola a todos de nuevo. Yo y mis problemas. Ahora lo que necesito es insertar una fila en blanco cuando cambie el valor de una columna determinada. He creado la siguiente macro, pero no me funciona Sub Inserta_fila() 'Insertar fila en blanco cuando cambie el valor de la columna D Dim lngRow As Long, intRow As Long Range("D1").CurrentRegion.Sort _ lngRow = Cells(Rows.Count, 1).End(xlUp).Row For intRow = lngRow To 2 Step -1 If Cells(intRow, 1).Value <> Cells(intRow - 1, 1).Value Then _ Rows(intRow).Resize(1).Insert Next intRow End Sub En la columna D existen valores duplicados: 101 101 101 102 102 102 111 111 111 lo que quiero es que cada vez…

buenas noches a todos no tengo ninguna idea de como empezar para dar formato a una hoja de excel en la cual estoy implementando un control de trabajos de produccion para lo cual requiero ayuda ya que deseo poner en dos celdas distintas una fecha de ingreso y una fecha de entrega lo cual al poner el cursor en cada una de las celdas descritas aparesca el calendario para poner la fecha de ingreso y lo mismo para poner en la otra celda la fecha de entrega, espero me puedan detallar paso por paso la forma de como programarlo y asi hacer mas interesante mi pequeño proyecto ya que poco a poco quiero irlo implementarlo adjunto el archivo para que vean que es lo que trato de hacer…

Hola a todos Necesito ayuda con un trabajo que me tiene bastante preocupado Se trata de una macro que abra un archivo existente (desde el nombre de una celda) este paso lo tengo bien claro. Pero cuando me abre el archivo en este pueden haber 1 o 2 o 3 o hasta 5 hojas con diferentes nombres. Aquí es donde tengo el problema: necesito tomar algunos datos de las hojas que existen (en este punto tengo que crear una hoja con un nombre: "Totales" y pegar la información de las otras hojas) En este momento solo tengo como abrir el archivo y me quede pegado con el copiado y pegado... Por favor con su ayuda y comentarios, se lo agradezco de todo corazón. pego código existen …

Buenos días amigos, espero esten muy bien :congratulatory: Mi problema es el siguiente: tengo un reporte el cual quisiera optimizar con macros ya que está creado totalmente con formulas, trayendo como consecuencia que el archivo sea muy lento al momento de ejecutar algun filtro o consulta debido a su gran cantidad de información. En el archivo adjunto coloco un ejemplo de lo que mas o menos quisisera lograr, especificamente en la hoja "Presentacion", acompañado con una pequeña base de datos. Mi objetivo es lograr que al momento de yo cambiar el pais en mi reporte a traves de un combo box, me traiga información a la matriz, sujeto a las condiciones tipo de producto y pre…

Llevo dando vueltas sobre esto un tiempo pero no doy con la tecla/codigo despúes de buscarlo. Lo que quiero conseguir es que tras hacer una búsqueda, en un listbox me liste los datos, en mi caso son todos de una fila de una hoja de Excel, sin embargo quiero que cada 5 columnas (partiendo de una determinada) se correspondan a una fila (con numeración por orden) en el listbox siempre que tengan datos estas celdas. En cuanto al encabezado de las columnas del listbox sería siempre el mismo. Adjunto archivo Sería la hoja "cambiotar" despúes de localizar un paciente. En concreto las columnas desde la A a la H estarían vinculadas a la hoja "basal". Un saludo listbox filas…

Buenas tardes a todos. En esta macro: Public Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long Public Declare Sub mouse_event Lib "user32" (ByVal dwFlags As Long, ByVal dx As Long, ByVal dy As Long, ByVal cButtons As Long, ByVal dwExtraInfo As Long) Public Const MOUSEEVENTF_LEFTDOWN = &H2 Public Const MOUSEEVENTF_LEFTUP = &H4 Public Const MOUSEEVENTF_RIGHTDOWN As Long = &H8 Public Const MOUSEEVENTF_RIGHTUP As Long = &H10 Sub ABRIR_IE() Dim IE As Object Set IE = CreateObject("InternetExplorer.Application") IE.Navigate "http://www.paginaweb.html" While IE.Busy DoEvents Wend IE.Visible = True DoEvents …

Adjunto un archivo zip En la hoja hay tres líneas de información que se separan en cuatro columnas, Al ejecutar la macro no consigo que los números aparezcan como tal y me pone un error del tipo n valor! ¿Alguien me puede ayudar para que se vuelquen los números correctamente? Gracias y feliz 2014 Borja transponer tasas.zip

Una macro que ordene por fechas (columna A), que sume automaticamente los datos de la columna B, en una celda de la misma columna y que separe con un borde con el siguiente grupo de fechas, Sera posible?..Gracias

Hola amigos, de nuevo vengo con otra "nueva" inquietud....me explicaré: en mi libro tengo en la hoja Facturas (Botón Albarán), un ejemplo para crear un albarán, introduzco el cliente mediante la celda correspondiente y se rellenan los demás datos, así como cuando introduzco la referencia del producto se carga el nombre del producto, el iva y el listado de precios (solo he de introducir manualmente el lote y la cantidad). Hasta ahí bien, en la parte derecha se va creando una copia de la parte izquierda (una sería para el cliente y otra para mi, digamos), bueno lo que necesito es poder bloquear esa parte derecha del albarán, pues es sólo en la izquierda en donde se introdu…

Estoy acá nuevamente para plantearles un problema que tengo: Resulta que tengo un código VBA el cual se encarga de enviar en el cuerpo de un mail en Outlook, un rango de celdas específicas además de enviar un archivo adjunto. Este código me funcionaba perfecto en un libro Excel, pero al copiar y pegar dicho código en otro libro éste no envia el mail. Al momento de ejecutarlo en teoría funciona correctamente, no me lanza errores ni nada, pero simplemente no me envía el correo. Les adjunto el código: Sub Mail_Range_Outlook_Body() ' Don't forget to copy the function RangetoHTML in the module. ' Working in Office 2000-2010 Dim rng As Range Dim ruta As Workbook …

Hola tengo la siguiente macro, pero solo lo hace en la primera celda, pero la info la tengo en varias, como puedo hacer que lo haga en las demas??? gracias!! Sub crearCita() Dim objectOutlook As Object Dim objectCita As Object Set objectOutlook = CreateObject("Outlook.Application") Set objectCita = objectOutlook.CreateItem(olAppointmentItem) With objectCita .Subject = Cells(2, 2).Value .Body = Cells(2, 2).Value .Start = Cells(2, 3).Value .End = Cells(2, 4).Value .RequiredAttendees = Cells(2, 5).Value .ReminderMinutesBeforeStart = Cells(2, 6).Value .ReminderSet = True .Display (True) ' .Sen…

Estimados, Estoy personalizando un libro excel con una serie de botones opciones dispuesto en la cinta de opciones. Sub Add_Toolbar2() Dim TlBar As CommandBar Dim BarBtn As CommandBarButton Set TlBar = Application.CommandBars.Add(, , , True) With TlBar .name = "DupreeTasks" .Position = msoBarTop .Visible = True .Protection = msoBarNoChangeVisible + msoBarNoCustomize End With Set BarBtn = TlBar.Controls.Add(msoControlButton) With BarBtn 'ADDED HERE!! .BeginGroup = True .Caption = "Tom" .OnAction = "Open_Tom" .Style = msoButtonCaption End With Se…

Estimados señores buenas, felicidades por el foro. Les escribo para solicitar un favor inmenso en lo siguiente: Soy nuevo en el uso de macros y estoy creando un informe para análisis de aceite en laboratorio, lo que quiero es automatizarlo, se tienen diversos parámetros, uno de ellos es el parámetro "oxidación" al cual se le hicieron 4 pruebas en distintos tiempos, y se tiene un indicador "alarma" (adjunto archivo) La norma indica que para "oxidación" el resultado debería ser menor a 3 "normal"; si el resultado es igual mayor a 3 pero menor a 5 significa "alerta" ; y si el resultado es mayor igual a 5 significa "peligro" (cambio de aceite) Lo que quiero es que al hac…

Hola, Antes de nada agradecer al que me esté leyendo para intentar resolver la duda que tengo y solucionar la misma duda que pueda tener otra gente. Mi problema es que utilizando macros en Excel me sale el siguiente error: Se ha producido el error '1004' en tiempo de ejecución: Error en el método Insert de la clase Range Si entro en el Visual Basic me aparece resaltado: Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow La verdad que no tengo ni idea de que significa, porque la macro funcionaba hasta que bloqueé las hojas y guarde el trabajo. Al volver a abrirlo ya me aparecía el error. No tengo ni idea de utilizar macros...lo fui consiguiendo po…