Macros y programación VBA

Buenas Tardes, tengo el siguiente código, que lo que hace, es enviar la hoja activa de excel via outlook, pero por cuestiones de seguridad aparece una ventana emergente donde me pregunta si quiero permitir que un programa envie un correo por mi.No puedo desactivar la notificacion por seguridad de la empresa.La pregunta es: que puedo ingresar al codigo para que tambien pueda dar "click" en permitir y que se envie? la codigo funciona bien, si le doy click manualmente, el correo se envia con la info. Sub Enviar_Correo_HojaActiva()On Error Resume NextActiveSheet.CopyWith ActiveWorkbook.SendMail Recipients:="colocar email", Subject:="Inventario".Close …

Hola de nuevo a todos. En esta ocasión os solicito ayuda con este tema relacionado con identificar el color de una celda con base a su formato condicional. He estado leyendo en este foro y en muchos otros, pero no he dado con el "tic" de la cuestión. Por lo visto, el formato condicional no aplica el color a las celdas de forma normal. Por lo que la propiedad color en sus distintas variedades no se puede usar para este fin. En el archivo adjunto hay un pequeño ejemplo que identifica las celdas según su color y extrae su contenido de forma segmentada. He probado con distintos códigos que he encontrado en la red, pero ninguno me ha servido para …

Buenos días, ¿podrías ayudarme con el código que se debe aplicar para desagrupar todas las columnas de una hoja excel? También necesitaría vuestro apoyo para descubrir como eliminar las columnas que contengan la palabra "Production plan" y "dispatched volume" de la fila 5. Hasa ahora tenía la siguiente formula, pero me da error: Sub Control_Producción() ' ' Control_Producción Macro ' Controlar el material producido vs la producción planificada ' ' Acceso directo: CTRL+p Cells.ClearComments ' eliminar comentario de la hoja' Worksheets(1).Select Set MR = Range("5:5") ' Eliminar columnas que contengan la p…

Un saludo a todos. Este es mi primera consulta e igual no esta bien ubicada, espero que si. Tengo una hoja que es un resumen global. Tiene datos variados que debo registrar en diferentes tablas para ver las evoluciones y analizar datos. Obviamente a mano es factible, pero entre los formatos extraños y que son 2 por semana me parece tedioso y quisiera automatizar el proceso lo más posible. Se que web scraping facilitaría las cosas, pero aún no veo haciendo eso y aunque se que la consulta puede resultar algo genérica espero que al ver la tabla de ejemplo alguien me pueda dar alguna via, o al menos sugerir, para ir avanzando en esta tarea. Gracias …

Buenas tardes. Soy nuevo en su espacio, también en Excel-Vba con macros. No podré aportar conocimiento ni asistir a la plataforma, sólo serán peticiones de ayuda. Lo lamento y agradezco enormemente. Estoy haciendo unas macros que abren páginas web, que ejecutan la extensión Chrome Instant Data Scraper, que toman datos y los tratan sin problemas. Lo que necesito es : poder cerrar todo lo abierto, tanto las páginas web como las ventanas en la barra de tareas de Windows. Muchísimas gracias, y un saludo. Manel.

recurro a su ayuda ya que no me doy cuenta donde esta el error, la macro corre al hacer click en el logo, espero puedan ayudarme. Muchas Gracias copia.xlsm

Hola colegas, buenas tardes. Espero se encuentren bien de salud. Tengo un pequeño Proyecto donde trabajo las Ordenes de Servicios y necesito en el FrmEquipamiento, cuando agregue un nuevo registro poder insertarle una foto de ese equipo, o sea, en el ejemplo, en el registro 2 tengo Nevera Vertical y necesito agregar una foto de dicha nevera. Realmente no lo he hecho antes y necesito de su ayuda. Adjunto el Proyecto. De antemano gracias. Un saludo Pino Ordenes v1.0.0.xlsm

Buenas noches @JSDJSD espero estes bien, tengo un caso similar al que se planteó en el siguiente hilo https://ayudaexcel.com/foro/index.php?/topic/43761-filtrar-listbox-utilizando-un-combo-box-dinámico/ he intentado modificar el formulario RPAT (frmrpat) para que se adapte a mis necesidades sin embargo no logro resolver los siguientes detalles: 1. Al igual que el compañero que pregunto en el hilo que comente anteriormente también copie y adapte de un tutorial de YouTube la siguiente macro: Private Sub CmdBUSCAR_Click() Dim UFILA As Integer If Me.TextBox11 = "" Then MsgBox "Ingrese el Número de Cédula", vbExclamation End If Exit Sub UFILA = Sheets(…

Soy principiante en esto . El tema en cuestión es que tengo un libro. En la primera hoja tengo un botón que me copia Código: Sub Copiarypegar()'Seleccionamos todo el área contínua de datos, desde la celda donde estamos situadosRange("A24:O24").Select 'seleciona el rango especifico'ActiveCell.CurrentRegion.Select'CopiamosSelection.Copy'Pegamos en A24 de la hoja 2Sheets("Daily Report").SelectRange("A24").Select 'el control se hará sobre la columna A, a partir de la filaWhile ActiveCell.Value <> "" 'Busca la ultima filaActiveCell.Offset(1, 0).Select 'si la celda contiene datos, pasa a la fila siguienteWendActiveSheet.PasteSpecialApplication.CutCopyMode = FalseRange(…

Hola, escribi pero creo que se ha borrado, así que vuelvo a escribir haber si alguien pudiera ayudarme. necesito un macro para que al cerrar el libro se desactiven todos los rangos de modificación activos y al abrir se activen los rangos que yo desee. Soy algo novato en estoy y he podido con otras macros pero esta me supera. Un saludo

BUENAS TARDES A TODOS. AQUI DENUEVO CON UN GRAN PROBLEMA PARA MIIIIIIIIIIII. NECESITO DE SU AYUDA, TENGO UNA HOJA EN EXCEL QUE SE IMPRIME DOS VECES Y NECESITO QUE EN CADA UNA SE IMPRIMA UN PIES DE PAGINA DISTINTO EN UNA EL PIES DE PAGINA DIGA " COPIA" Y EN LA OTRA "ORIGINAL" ESTE ES EL MACRO QUE USO PARA IMPRIMIR Sub Imprime_horarios() Application.ScreenUpdating = False For Each pestaña In Worksheets If pestaña.Name = "nombres" Then GoTo otra: pestaña.Activate If Range("d6") <> 0 Then ActiveWindow.SelectedSheets.PrintOut Copies:=2 pestaña.PrintOut End If otra: Next pestaña Sheets("nombres").Activate Application.ScreenUpdating = True End Sub DENTRO…

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?

Buenas a todos. He programado muchos Userforms con Listbox en ellos. Cuando el número de elementos del Listbox es superior al que puede mostrar su ventana sale la barra de desplazamiento vertical. Todo correcto. El problema es que me he dado cuenta de que, en estos casos, al desplazarme con la barra lateral y hacer click con el ratón en un elemento, se selecciona otro elemento distinto ya que la barra lateral hace scroll hacia arriba. He intentado ya muchas cosas y no se porqué ocurre esto. ¿ Cómo se selecciona, con el ratón, el elemento que quiera del Listbox y que no me marque otro elemento distinto porque la barra de desplazamiento vertical hace scroll ? Ay…

Nuevamente solicito su apoyo con este archivo y necesito lo siguiente: Me manda un error al guardar capturas y guarda los datos como texto además de ser posible que la fecha me la de en automático. Les agradezco de antemano su apoyo. Gracias. CAPTURA CARGAS DE COMBUSTIBLE.xls

Hola. Espero que me puedan ayudar con esta formula que tengo, la verdad es que corre muy lenta, o a veces se bloquea y no se que otra formula puedo utilizar, les agradecería cualquier sugerencia, gracias. Worksheets("CXC").Select Set ls = Hoja2 For j = 4 To 50000 If TextBox1 = ls.Cells(j, 8) Then ls.Cells(j, 9) = TextBox4.Value * 1 Exit For End If Next Worksheets("ABONOS").Select Set ls = Hoja1 For j = 4 To 50000 If TextBox1 = ls.Cells(j, 7) And ls.Cells(j, 10) = 0 Then ls.Cells(j, 10) = "CANCELADO" Exit For End If Next Worksheets("CXC").Select Set ls = Hoja2 For j = 4 To 50000 If TextBox1 = ls.Cells(j, 8) And ls.Cells(j, 9) <= 0 Then Selection.E…

hola Compañeros me ayudarían con esto Como puedo obtener una ruta en un texbox o un label Muchas Gracias

Estimados, hace poco estaba trabajando con adecuar un calendario en mi hoja excel mediante macros y vi un tema muy interesante, lo pueden ver en la sigte dirección: Pendiente - Como adaptar calendario? | Ayuda Excel Pues si lo revisaron, en cualquier celda que se posen se mostrará un icono que cuando le haces click se abre un calendario y al clikear una fecha se imprime en la celda seleccionada, intente copiar la idea pero por ejemplo tengo dos campos "fecha de nacimiento" y "Nombres", pues solamente quiero que esta macro se muestre en la columna o campo fecha, intente modificando dentro de la macro/hoja1 lo siguiente: Private Sub Worksheet_SelectionChange(ByVal Target…

Hola foristas: después de saludarlos les pediría su apoyo para ayudarme a entender la lógica de un modulo que me hace falta en mi programa, no lo tengo diseñado de como podría funcionar... les explico Tengo un archivo que se llama Base y ese contiene varios campos... lo que quiero realizar es que en base al campo NOMBRE haga lo siguiente: a) Que genere un archivo en la ruta actual con el nombre encontrado en la columna NOMBRE del archivo Base Ese archivo solo contendría los datos de los campos de DOMICILIO y TAREA Y así hasta terminar con la lista pero el problema que tengo es el siguiente: La lógica que no acabo de descifrar es, que puedo tener nombres re…

Hola, Estoy tratando de utilizar labels para automatizar la impresión sobre unos formatos pre impresos extrayendo los registros de otra hoja del archivo, al hacerlo registro a registro no tengo problema, pero si quiero imprimir automáticamente un rango de registros el label solo toma el primer valor y no los siguientes: Dim inicio, final As Integer inicio = InputBox("Indique Registro Inicial", "Inicio") final = InputBox("Indique Registro final", "Final") b = inicio For i = inicio To final Sheets("hoja1").Range("a1").Value = Sheets("hoja2").Range("b" & Label1.Caption = Range("a1") Sheets("Hoja1").PrintOut b = b + 1 Next i En este caso el label toma el val…

Tengo esta macro y lo único que no he conseguido es que una celda se desbloquee SÓLO cuando en esa misma celda apareza lo siguiente "Ingrese la Agencia" este texto aparece debido a que en dicha celda hay una fórmula que consiste en un buscar y si consigue error coloca "Ingrese la Agencia" entonces hasta ahora llevo lo siguiente, el problema ela macro que realicé, excel no la reconoce automáticamente es decir cuando cambio en la celda b12 aparece "ingrese la agencia" no se desbloquea la celda b12 esto es lo que he conseguido hasta ahora muchas gracias! la primera macro la tengo ubicada en el objeto hoja presupuesto no se si debe estar allí o en el módulo tampoco se si hay…

Amigos, necesito su ayuda: Soy nuevo en el foro, y mi experiencia con macros es reciente, así que no tengo un claro dominio. Quiero copiar estas partidas presupuestarias de la columna "A" de la "hoja1" a la "hoja2", pero no quiero que se copien aquellas partidas que tengan la letra "E" en la columna "U" de la "hoja1". Actualmente se copian las partidas pero no me obedece la condición "If" que le puse. Sub Parte6a() Worksheets("hoja1").Activate For Z = 17 To 46 Next Z Range("A17:A46").Select Selection.SpecialCells(xlCellTypeConstants, 23).Select Selection.Copy If Cells(Z, 21) <> "E" Then Sheets("hoja2").Activate Range("A16").PasteSpecial x…

Estimados como estan. Quisiera que me ayudaran si es que existe la solucion para este tema. les cuento tengo una hoja de calculo que utiliso para un sistem,a de logeo en terreno ( en la calle) con un sierto personal. la hoja funciona con pistola lectora de codigos de barra que ise yo mismo, cada uno tiene su terjeta con codigo pero a la persona que tengo realizando esta funcion modifica la planilla, lo que quiero hacer pero no puedo es que pueda seleccionar en la barra berde y darle al boton entrada o salida pero cuando bloqueo las celdas donde esta la informacion no se puede hacer no se si me explique bien pero gracias si alguien lo hace Control de Personal Grupo3…

amigos del foro si me puede orientar por favor Tengo una hoja de un excel que se necesita Poner los Montos Segun las Fechas de las Coutas en un calendario en este calendario debe insertarse las montos segun las fechas de las coutas en el calendario ejemplo Coutas Monto Fecha couta1 Fecha couta2 Fecha couta3 Fecha couta4 4 2750 12-10-2015 25-11-2015 26-12-2015 02-09-2016 2 1150 16-09-2015 25-10-2015 3 111100 11-09-2015 21-10-2015 28-11-2015 1 400 11-09-2015 fechasrestarv4.rar

Me pidieron realizar un proyecto, es un programa que clasifica películas, tomando datos de tablas que fueron insertadas en el excel desde un archivo .accdb. Se divide en 3 partes La primera te deja elegir mediante un combobox un actor, y te arroja en una listbox nombres de las películas donde aparece y el género de cada una. La segunda pestaña te deja elegir mediante un combobox una película, y te arroja los actores que están presentes en ella en una listbox. La tercera parte, y que es la que tengo problemas, se supone que desde un combobox se debe elegir un actor, y luego se debe poder agregar una película a la lista mediante un textbox, de manera que si yo voy a la…

como puedo mejorar este codigo byfejoal para que realice la condicion de resaltar las celdas azules que estan cerca a la celda de borde a una distancia de 21 celdas anterior y porterior a la celda de borde el codigo realiza ese proceso pero me gustaria que el codigo fuera un poco mas reducido y ademas tengo problema con esta linea del codigo sub color Sub color() Worksheets("hoja2").Range("b2:ac33").Interior.color = xlNone Set ha = Worksheets("hoja2").Range("b2:ac33") Set hn = Worksheets("hoja1").Range("a1:cy42") 'controlar rango For i = 1 To hn.Cells.Count 'si la columna es par se omite If hn.Cells(i).Column Mod 2 = 0 Then GoTo SALIDA …