Buenas tardes a los integrantes de este prestigioso foro, en ocasión recurro a Uds, para que brinden su apoyo con la siguiente macro, a la cual quiero que en la barra de estado cuente la cantidad registros que se encuentran en la pestaña PLANILLA que empieza en la celda AZ8 hasta la AZ2507 y por cada archivo que van generando en PDF indique 1 de 19, 2 de 19, .... hasta llegar a 19 de 19, desde ya agradezco su apoyo y colaboración. Sub ElegirAccion() Dim i As Integer Dim intInicial As Integer Dim intFinal As Integer Dim intConsecutivo As Integer Dim srtTitulo As String Dim Ruta As String Dim nombre As String Dim pass As String, hoja As St…

Sub CopiarCeldas() 'Defini objetos Dim wbDestino As Workbook, _ wsOrigen As Excel.Worksheet, _ wsDestino As Excel.Worksheet, _ rngOrigen As Excel.Range, _ rngDestino As Excel.Range 'indicio el libro de Excel destino Set wbDestino = Workbooks.Open(ActiveWorkbook.Path & "/Datos - Abastecimientos.xlsm") 'Activar este libro ThisWorkbook.Activate 'Indicar las hojas de origen y destino Set wsOrigen = Worksheets("Other") Set wsDestino = wbDestino.Worksheets("Datos") 'Indicar la celda de origen y destino Const celdaOrigen = "A1" Const celdaDestino = "A1" 'Inicializar los rangos de origen y destino Set rngOrigen = wsOrigen.Range(celdaOrigen) Set…

Hola compañeros, Mi problema es el siguiente: "Tengo una macro que ejecuta un código cualquiera sobre varias hojas, y entre ello está inmovilizar los paneles de una hoja. El problema es que yo no quiero que se inmovilicen los paneles de la ventana activa, sino de la ventana de la hoja que yo le indique. Esto se debe a que introduzco la sentencia 'ActiveWindow.FreezePanes = true' Entonces, mi pregunta es: ¿No existe otra sentencia para inmovilizar paneles que no sea la anterior? Es decir, algo así como 'ThisWorkbook.Worksheets("Hoja1").FreezePanes = true'. Ya probé con la sentencia anterior, pero obviamente no me deja dado que FreezePanes es u…

Hola buen día, favor alguien podría ayudarme con una breve explicación, del porque cuando ya convierto un numero a texto no lo imprime en la celda... me falta algún paso por hacer?? de antemano muchas gracias si pueden ayudarme. Sub prueba() Dim entero As Long entero = 212341234 Dim str As String str = CStr(entero) QR.Range("k1").Value = str Debug.Print str End Sub Muchas gracias Saludos, Prueba.wmv

Hola buenas tardes, Tengo un excel con un UseForm el cual me gustaría poder imprimir en horizontal. Tengo creado un botón de imprimir que tiene un código sencillo que me imprime pero en posición vertical y no se visualizan todos los datos que deseo Private Sub bt_imprimir_Click() FrmListBoxProductos.PrintForm End Sub Mi intencion inicial es poder imprimir el Useform por completo pero si no es posible me basta con poder imprimir el ListBox con las cabeceras Espero me puedan ayudar Saludos, BUENO.xlsm

Hola. El archivo 1 contiene un hipervínculo que abre el archivo 2. El archivo 2 tiene un userform que al cerrarse guarda el archivo y lo cierra qudando activo el archivo 1. Teniendo el archivo 1 abierto, abro el archivo 2 haciendo click en el archivo funciona todo bien. El problema: cuando abro el archivo 2 desde el hipervínculo, al cerrar el userform se guarda y cierra el archivo 2. Ahí aparece un cartel en el archivo 1. Muchas gracias por atender mi consulta. Saludos Archivo 2.xlsb Archivo 1.xlsb

Hola buenos días a todos , yo aquí sigo trabajando con mi proyecto, en el Modulo 7 he generado un código, que me permite copiar y pegar un rango de datos en un objeto chart exportarlo de forma constante al mismo archivo, insertar, copiar y borrar esa imagen para poder adjuntar a una msg de WhatsApp. Si bien realiza todo el procedimiento tengo dos problemas... uno que si bien yo defino el rango, "Hoja1.Range("A1:F46").Select" al hacerme todo el procedimiento me adjunta 6 hojas en formato imagen en whats app y debería ser solo la primera con datos. y otro detalle es que me gustaría si me pueden ayudar a encontrar una forma que ese rango sea variab…

Muy buenos días a todos. Estoy realizando un formulario para mi trabajo y necesito ayuda con algunos puntos específicos. Primero, quisiera saber como puedo hacer para que mis txt_purchase y txt_date_corte se ingresen con el formato de las celdas C8 y C9. Segundo, como puedo hacer para que cada vez que filtre lo que escriba en mi txt_busqueda, en mi LISTA (listBox) se muestren todas las columnas que especifico en el código (+ de 10). Tercero, actualmente tengo que mi LISTA (listbox) me muestra todas las columnas de mi tabla, pero en realidad solo quiero que muestre las mismas columnas que en el segundo punto. Cuarto, quiero poner labels encima de l…

Buenas noches amigos de AyudaExcel me conseguí código de la Web para enviar la hoja activa de excel pero hay un problema o error al abrirse el inputbox para tipear el nombre de la hoja y querer cancelar la acción con el botón "Cancelar" el envío la macro no se sale y continúa quisiera que al dar cancelar se salga de la macro; en este código no se diferencia la acción de de cada uno de los botones ya que da lo mismo aceptar o cancelar. Gracias por su ayuda Option Explicit ' Sub EviarHojaEmail() ' Dim NombreArchivo As String Dim RutaTemporal As String Dim Mensaje As String ' On Error Resume Next ' Mensaje = "Estás a punto de enviar la hoja activa por…

Hola, hice esta pequeña macro para ingresar algunos datos de negocio. (solo hasta la columna V) ya que las columnas que siguen a la derecha las modificare mediante otra macro. Actualmente lo que aparece en mi txt_code es un número que genero automáticamente con la ayuda de la función "=MAX(Tabla1[CODE])+1" que tengo establecido en la celda "B1" quisiera saber si dicho número que aparece en mi txt_code se puede generar mediante algún comando de macro puro, para poder eliminar la función de arriba. Gracias por su atención. ingresarDATOS.xlsm

Hola ¿cómo estáis? ¿Alguien sabe si es posible deshabilitar este botón mediante una macro o con el editor de UI? ¡Gracias!

Hola Amigos Programadores, tengo este codigo ? que me sirve para que el archivo corra solo en las pc con los series de disco duro asignados en ese codigo, pero yo quería saber si es posible adaptarle fecha para que después de esa fecha el archivo se elimine.. Probé ponerle este codigo al comienzo de la macro paro me aparece error : Dim FechaVen As Date FechaVen = "20/07/2021" If Date >= FechaVen Then Private Sub Elimina() If IsError(Application.Match(Hex(CreateObject("scripting.filesystemobject").Drives.Item("c:").SerialNumber), Array("EE91AAE1", "8001a6af", "otroSerial_3"), 0)) Then Application.DisplayAle…

Saludos amigos foristas, recurro a su apoyo de un archivo el cual consta de dos hojas, y se carga mediante un userform que contiene 12 columnas, de la columna 6 a la 12 contiene números, al activar el userform, me carga la información de la Hoja1, y suma las columnas de la 6 a la 12, el error que se origina es que al filtrar por Nombre de Emisor, las columnas 11 y 12, no aparecen los números y no filtra los subtotales pertenecientes al Nombre del Emisor, sino que suma el total de los números en dichas columnas, ¿podrían indicarme o proporcionar información para corregir este error?, de antemano les agradezco mucho. CONTROL 2021.xlsm

Estimados, buenas, soy nuevo en VBA y al correr mi formulario me aparece el siguiente error en referencia por favor alguien me puede ayudar con la sintaxis de como solucionar el error 1004 adjunto info de como esta ingresado en la programacion Vb: Private Sub LISTA_Click() Dim modelo As String modelo = LISTA.List(LISTA.ListIndex, 7) Me.txt_modelo.Value = modelo End Sub Private Sub txt_modelo_Change() Dim modelo As String modelo = txt_modelo Me.txt_service = Application.WorksheetFunction.VLookup(modelo, Sheets("BD").Range("A:Y"), 20, 0)

Hola, Buenas tardes Alguien tiene idea de como puede detener un bucle infinito Do while con otra macro en VBA excel. Necesito generar 2 CTA a la macro, una para iniciar y otra para poder pararla, pero mientras el bucle se este ejecutado no es posible clicar sobre algún otro botón en excel. El código quiero poder detener es este: Sub Grafico() Application.ScreenUpdating = True Dim wks As Worksheet 'SE INDICA QUE SELECCIONE EL GRÁFICO DE LA HOJA DE CÁLCULO ACTIVA Set wks = ActiveWorkbook.Sheets(8) 'wks.ChartObjects("Gráfico 1").Select DoEvents Dim Inicial, Final, delta As Date delta = Hoja8.Range("C3").Value Inicial = Hoja8.Range("C1").Value Fi…

Hola, antes que nada, les agradezco el interés en la publicación. Estoy trabajando en el siguiente código: --->>> Sub SoftToken_Test() Dim cObj As Object Dim Programa As Object Dim Proceso As Object Set cObj = GetObject("winmgmts://.") Set Proceso = cObj.ExecQuery("SELECT * FROM " & _ "Win32_Process WHERE Name = 'SoftToken.exe'") For Each Programa In Proceso On Error Resume Next Call Programa.Terminate On Error GoTo 0 Next Set Proceso = Nothing Set cObj = Nothing End Sub <<<--- El cual termina la ejecución del programa en cuestión, pero desearía su ayuda en…

Hola chicos, Se me ocurre una idea, y no sé si es posible ejecutarla. El tema es el siguiente: "Tengo un código con el típico 'On error goto error' y dentro de la etiqueta error otro código con un MsgBox que me informa del tipo y número de error producido. Aquí el ejemplo: Sub HolaMundo() ' Limpiamos los errores anteriores (por si acaso)... Err.Clear ' Tratamos los errores del procedimiento... On Error GoTo error (AQUÍ EL CÓDIGO DEL PROCEDIMIENTO) salir: ' Y salimos del procedimiento... Exit Sub error: ' Mostramos por pantalla el tipo de error y la descripción del mismo... MsgBox Prompt:="Upps, parece que hubo un error... …

Mis mas sinceros saludos a equipo y colaboradores de Ayuda Excel. He decidido ponerme en contacto con uds para ver de solucionar un problema con un proyecto que he encarado con mucho entuciasmo, les comento que nadie me explico nada lo poco que se lo aprendí viendo videos y estudiando de alguna paginas de Microsoft para entender algunas cosas . El problema puede parecer muy sencillo , pero para mi no loes , y esta el la macro eliminar del proyecto que elimina la fila completa de la tabla de datos, en algunas oportunidades elimina correctamente pero en ciertas otras me elimina además de la fila la primera columna de mi base de datos, o sea pierdo el nombre de …

Hola nuevamente: Tengo en una celda "B3" la Latitud y Longitud (GPS) y la idea es que al ejecutar la macro se posicione en Google Maps. Posteriormente ya estaré haciendo el copy del Link y lo pasare al excel. (lo ideal es que la macro lo hiciera pero ya es mucho pedir) Gracias desde Guadalajara, México

Buen día a todos. Tengo 2 bases de datos, una "Base de Producción" llevo el registro de los pedidos solicitados. Mediante +BUSCARV busca el código en una hoja con los datos generales de los códigos. Una vez que se concluye el trabajo, copio y pego el archivo "Cuentas x Cobrar" asignando una hoja a cada proyecto y renombrando la hoja de acuerdo al consecutivo del proyecto "tru-329-2021, tru-330-2021, etc. para después copiarlo y mandar a un archivo de word que es mi plantilla de presupuesto para ser enviado al cliente. Esta última parte es la que estoy tratando de mejorar... investigué y generé parte del código para que las celdas seleccionadas se copien y peguen en…

Buenas. Tengo un programa para enviar nóminas automatizadas desde el Excel, pero se me ha ocurrido que antes de poner el texto del cuerpo del correo podría añadir una introducción, por ejemplo pondría A/A: JOSE LOPEZ GARCIA. Para enviar el correo tengo este código en un bucle y funciona perfectamente, solo que no me añade la introducción. Pongo solo esta parte del código donde envío correos por si podríais decirme si he de añadir algo más para que el código funcione. 'Enviamos por mail Set OutMail = OutApp.CreateItem(0) On Error Resume Next spie = "Gracias." With OutMail .To = destino .CC = copia .BCC = "" .Introduction = "A/A: …

Buenos días de nuevo hoy. Estoy teniendo problemas con una macro y no logro resolver. En la macro he creado un módulo que muestra un formulario sí la fecha de la columna "Fecha" es igual al día actual y después envía un mail al destinatario. El problema es que al hacer dicha comprobación me duplica los mails. Un saludo para todos. Adjunto macro: MMailAviso.xlsm

Hola. Añadí una funcion a un libro de excel que ya tenía bastantes macros. La funcion me permite estandarizar el formato de la informacion en una columna de una hoja en particular del libro. El caso es que cada vez que corro una macro, la rutina pasa siempre por la funcion y asumo que la funcion va a repasar todas las celdas para la que fue creada (casi un millón de filas). Eso me relentiza muchisimo el proceso. Existe alguna manera de hacer que la macro evite ejecutar la funcion o saltarla de algun modo?.

Hola a todos. Tengo una lista de Latitud y Longitud ej. 20.683152291521342, -103.37750679624888 Que macro debo de implementar para que con este dato vaya a GoogleMaps, localice ese punto y me devuelva el Link ej. https://www.google.com.mx/maps/place/20°40'59.4"N+103°22'39.0"W/@20.6836009,-103.3820507,15.92z/data=!4m5!3m4!1s0x0:0x0!8m2!3d20.6831523!4d-103.3775068 Gracias por su atención Saludos

Buenas tardes Acudo nuevamente a ustedes esperando puedan ayudarme a realizar lo siguiente He generado una tabla dinámica desde una base de datos, la cual tiene el producto, suma de costo y la otra suma de costo2 (columna que es el porcentaje total en) lo que deseo es que filtre porcentajes de la columna costo2 (los porcentajes) según los valores A : <= 80% B : >80% y <=90% C : >90% lo intentado hacer pero me sale error al momento de ejecutar prueba-filtro.xlsm