Buenas tardes a tod@s, He hecho una hoja de calculo donde a partir de un determinado valor que introduzco en la hoja flows en la celda D11 obtengo otro en la celda E29. Pues bien, pretendo hacer en la hoja 1-1-2014, para los diferentes valores de la columna B, obtener el valor de h aplicando las formulas que contiene la hoja flows. Seguro que se puede hacer de alguna forma y seguramente con una macro pero honestamente no se como. Alguien sabe como? Adjunto ejemplo. Gracias de antemano y saludos. flow calculations.rar

tengo la siguiente macro Sub calcular_todo() Application.Calculation = xlCalculationAutomatic Application.ScreenUpdating = False End Sub Sub esta() Application.Calculation = xlCalculationManual Application.ScreenUpdating = False End Sub Public Function f_EquipoResponde(str_Equipo As String) As String Application.ScreenUpdating = False Dim obj_Shell As Object Dim obj_FileSystem As Object Dim obj_Fichero As Object Dim str_ContenidoFichero As String Dim str_FicheroTemporal As String Dim str_NombreMaquina As String Set obj_Shell = CreateObject("WScript.Shell") Set obj_FileSystem = CreateObject("Scripting.FileSystemObject") str_FicheroTemporal = ThisWorkboo…

Necesito un archivo para controlar el inventario de activos fijos. En donde contenga una pagina de inicio con las opciones: Ingreso al inventario, Egreso del inventario, Traslado de inventario. En la opcion: ingreso de inventario se desplegarian o aparecen los campos: -- Activo. -- Descripcion --- Ubicacion -- Comprado con --Cuenta --Cheque -- Lugar de Compra --Factura --Recibo --Fecha de compra --Donado por: --Feha de donacion -- Otros

macro para elegir carpeta origen, destino y copia recursiva de archivos . El problema que presenta es que cuando debería de salir de un menú inicial para seleccionar entre 4 opciones, y acto seguido pasarle un valor selecionado como carpeta origen al modulo principal. Acto seguido debería de solicitar una carpeta destino . La comprobacion de la existencia de los archivos se realiza desde un segundo archivo excel, haciendose la comprobacion en la carpeta origen y en todas sus subcarpetas de manera que todo aquel archivo que exista en carpeta origen o subcarpetas y aparezca su nombre en el segundo archivo excel será copiado en la carpeta destino. …

Buen día gente del foro, acá vengo con otra inquietud, quería saber si hay una forma (seguramente la hay) de hacer esto: tengo un rango horizontal de datos (BF4:BP4), necesito una macro para copiar los valores de dicho rango y pegarlo en otra hoja del mismo libro, hasta ahí para mi es facil, lo que no se como hacer es que quisiera que lo pegue en una fila concreta, que se determinará por el valor numérico que ingresemos en la celda (E16), osea, el número que ingresemos en (E16) sería el número de la fila donde quiero que pegue los valores del rango. Adjunto un ejemplo para que lo puedan interpretar mejor, si no soy claro háganmelo saber Desde ya muchas gracias …

Lo que busco sería posicionarme por ejemplo en A y que a partir de ahí elimine dos columnas, osea B y C, que D la deje intacta y siga con E y F y así sucesivamente. Es para eliminar dos columnas de info que ya no necesito únicamente.

Hoja amigos, les traigo a ustedes este error que me marca una macro, cabe decir que algunas macros las encontré en este foro y las adapte a mis necesidades. Les platico. la siguiente macro la tengo en un botón, el cual al dar clic llama a un userform Private Sub CommandButton6_Click() EliminarFilas2.Show End Sub en ese userform hay que poner una contraseña para poder eliminar Private Sub CommandButton1_Click() Dim resp As Integer resp = 3313 If TextBox1 = 3313 Then Unload Me 'Tu procedimiento aquí Call Busqueda_Resguardo.eliminarProducto Else MsgBox ("La clave ingresada es incorrecta"), vbInformation, "AVISO" TextBox1 =…

Buenos días,Soy nuevo en el foro y también bastante nuevo en el tema de generar macros en Excel con VB.Necesito hacer un macro en VB para intentar quitar las dobles comillas que me genera al copiar una celda que contenga saltos de línea hacia un Notepad.Muchas Gracias de antemano.

Hola a todos, Tengo un archivo que contiene macro para conciliación bancaria. Quisiera por favor que me digan como hago para eliminar ese mensaje "FECHA DE VCTO CADUCADO - 31.08.13". Si bien puedo trabajarlo cambiando la fecha de mi pc, pero eso me genera problema lo que quiero es que ya no salga ese mensaje. Mil gracias por la ayuda que me puedan brindar.

Buenos días, Estoy intentando eliminar todas las filas que tengan en la columna A celdas vacías y duplicadas. Al ejectur ambas macros por separado, Excel no hace nada. Sub Eliminarduplicados() Dim Valor As Long Application.ScreenUpdating = Fale Sheets("Hoja1").Range("A1").Select Do While Not IsEmpty(ActiveCell) Valor = Application.WorksheetFunction.CountIf(Range("A:A"), ActiveCell.Value) If Valor > 1 Then ActiveCell.EntireRow.Delete Else ActiveCell.Offset(0, 1).Select End If Loop Range("A1").Select Application.ScreenUpdating = True End Sub Sub Elimi…

Buenas tardes, tengo una planilla en donde voy trayendo datos de otras planillas (copio y pego) una vez que ya tengo toda la información, necesito que mediante una macro/formula se eliminen todas las filas en donde el primer dato (ubicado en la columna A) tiene el siguiente texto: QHP Standard 1,QHP Standard 2, QHP Standard 3, QHP Standard 4 y QHP Standard 5. He aplicado la siguiente Macro, pero no se como unificar que evalúe las 5 variables, por lo que he tenido que hacer 5 macros, y después hacer una para unirlas a todas. Quisiera saber si existe la posibilidad de hacer solo una y que tome las 5 variables de texto posible Sub Eliminar_Filas_1() She…

Hola buenas. Busco una Macro, ejemplo que comenzando en la fila 6 elimine las filas desde 6>12 salte 2 filas sin eliminar y continúe eliminado desde las filas 13>14 salte 2 filas sin eliminar y así hasta la fila ejemplo 1.000 O sea eliminar 7 filas saltar 2 sin eliminar y así hasta la 1.000 Saludos….

Hola, tengo una hoja de excel en la que voy registrando mis actividades en bici. Suelo ir añadiendo filas a la misma y muchas veces algunas están duplicadas. Estoy intentando hacer una macro que las elimine automáticamente pero no soy capaz de conseguirlo. Adjunto una hoja de ejemplo en la que me gustaría eliminar las filas 5 a 9 (las he señalado en amarillo) porque ya están incluidas en las filas 10 a 14. He conseguido hacer una macro pero me elimina las más antiguas, la adjunto también. La columna que utilizo para detectar los duplicados es la columna de fecha que incluye la hora y que por tanto nunca podría repetirse... ¿Puede alguien ayudarme? …

Hola, en mi hoja de excel tengo una lista desplegable y al lado una imagen, me gustaria que clicando una opcion no me apareciera la imagen y clicando cualquiera de las otras opciones me apareciera, quisiera que me ayudaran a realizar una macro para poder realizar eso, con la mayor brevedad si es posible, gracias de antemano.

Que tal a todos, Quisiera que me ayudaran a resolver un problema que tengo cargando por varios dias, en mi trabajo, diario genero una base de datos, en esa base de datos son unicamente dos columnas (GRADO Y SECUENCIA), la columna grado viene ciertos codigos que se repiten, en la columna secuencia es una numeración secuencial, ademas de ello tengo un archivo adicioanl de excel en cual viene viene los mismos el inventario de esos codigos, mi trabajo es eliminar de mi base de datos original, los primeros codigos que me aparecen en mi inventario. GRADO SECUENCIAS UY 201402 UY 201403 …

Buenas, Hice una macro para encontrar la fecha más cercana a un listado de fechas que tengo en la columna A de hoja Inicio buscando en hoja BBDD o en hoja BBDD_2, y me ponga en columna B de hoja Inicio la fecha más cercana. El caso es que si solo pongo fechas del mismo año lo hace correctamente, pero en el momento que trabajo con fechas del año anterior o el siguiente no. He probado de dos formas: Con datos de hoja BBDD y hoja BBDD_2. En ambas el resultado no es correcto y no consigo solucionarlo. ¿Alguna idea de cómo hacer esto? Os adjunto ejemplo. Gracias! Ejemplofechas.zip

Hola buen día...tengo esta macro que envía los datos como lo quiero, incrementando la columna "T" para tomar como referencia de la última fila con datos...como puedo evitar eso, es decir que no me registre nada en la columna "T", y además me sale un mensaje de error al proteger la hoja..es una tabla dinámica donde se debe arrojar los datos...y finalmente que me ordene por fecha que se encuentran en la columna "A" Private Sub CommandButton3_Click() Dim MES As String ' BOTÓN REGISTRAR Dim UltFila As Long 'MANDAR LOS DATOS EN SUS MESES RESPECTIVO MES = ComboBox4.Value If MES <> "" Then Sheets(MES).Activate UltFila = Sheets(MES)…

Buenos dias. les saludo desde monterrey nuevo leon mexico. tengo un detallito con una macro que hice, no soy avanzado en este tema. manejo ciertos reportes de la empresa donde trabajo, mismos que me dan informacion sobre las sucursales que tengan pendientes, dicha macro hace todo ese asunto, una vez teniendo el reporte, lo exporto a excel, identifica que sucursal tiene el pendiente, busca en una tabla y en base a esos valores se les envia un correo en automatico adjuntando el archivo generado con sus pendientes, todo hasta ahi funciona sin mayor problema. El problema comienza aqui....necesito que en el cuerpo del correo en lineas intermedias muesttre una imagen como "…

Buenas Tardes a todos mi tema a tratar es el siguiente estoy iniciándome en el uso de las Macros para Excel requiero mandar correos a varios usuarios de un listado desde outlook he checado varios ejemplos de este tema sin embargo solo hacen mención de seleccionar las celdas para insertar la información para el tema y el cuerpo del correo, sólo que yo manejo una libro de excel con 6 hojas las cuales están vinculadas con fórmulas y en una de ellas ya tengo trabajando una macro la cual inserta la hora y día en que se realizan las capturas de los registros, en otra tengo varias tablas dinámicas. Mi pregunta o duda es como indico en la macro de que hoja tomará la informac…

ya tengo mi macro que envia correos masivamente desde el excel. Por un tema operativo, necesito que este correo antes de enviarse se convierta en texto sin formato. ¿Cual sería el comando?

Estimados: Tengo una planilla donde llevo un control de certificados medicos, en esta planilla se carga diariamente todos los certificados que recibo, luego se debe informar a cada jefe de sector las personas que estan enfermas. Como cada empleado tiene un legajo que esta asociado a un sector de la empresa, a un jefe de sector (responsable) y a un centro de costo. Tengo una macro que me envia un correo a cada jefe de sector asociando el centro de costo con la direccion de correo, esto funciona muy bien. Hay otra macro que me filtra los empleados que estan con certificados a la fecha, es decir, hoy. Lo que necesito es ayuda para fusionar estas dos macros porque necesi…

Buenos días, Tengo un macro que permite enviar mail con 1 adjunto que hasta hace nada funcionaba perfectamente pero ahora me da error. Me podéis ayudar?

Muy buenos dias! Necesitaria la ayuda de los que mas saben, ya que tengo un problema con una Macro y no le puedo encontrar la vuelta! La cuestion es esta: Necesito una Macro que le envie informacion a cada cliente que se encuentre en cada hoja (el nombre de cada hoja es "Cliente 1", "Cliente 2" etc etc). El mail al que se lo debe enviar es el que se encuentra en la celda C3 El Subject es el que se encuentra en la celda C4 El cuerpo del mail es el que se encuentra en la celda C5 Como archivo adjunto que se envie la hoja completa (por ejemplo "Cliente 1") Ahora un dato importante, si el cliente no tiene compras ergo la celda C6=0, necesitaria que no se le envie nada.…

Necesito crear una macro que me envie un e-mial dependiendo de la fecha antes de que se venza la fecha se tiene que enviar el correo y que el sobject del correo sea otra celda... la columa a sea el subject y que correspondiendo a la B que tiene las fechas envie un correo un dia antes de que pase la fecha.

Hola Una consulta quizas alguien me puede ayudar Tengo hecho el código para enviar whatsapp desde excel. Quiero adjuntarle pdf. Para enviar lista de precio a clientes. Tengo hecho lo de buscar el pdf, traerlo, me falta lo de enviarlo Aquí les muestro el código Sub dale_Click() Este boton manda el whatsapp Dim mensaje As String Dim numero As String numerodatos = Hoja13.Range("c" & Rows.Count).End(xlUp).Row 'MsgBox (numerodatos) For fila = 8 To numerodatos 'me busca en los datos los numeros a los que mandar numero = Cells(fila, 3).Value mensaje = Ra…