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

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…

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

Pues eso... Digamos que tengo una hoja repleta de botones con macros y quiero dejarla estática, es decir, que el usuario no se pueda desplazar a través de ella haciendo uso de la ruleta del mouse. Supongo que existirá alguna manera más sencilla de programarlo, pero pienso que lo más lógico sería anular la propiedad SmallScroll del objeto Windows. Muchas gracias de antemano por vuestro tiempo.

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…

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

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…

Buenas chicos tengo el siguiente problemilla. Mediante una macro intento acceder a un archivo csv. delimtado con puntos y comas. y al usar Workbooks.Open Filename:="C:\Users\pc\Desktop\stock.csv" me la abre mal Si la abro normal me la abre perfectamente, he intentado un par de cosillas pero nada fracaso total. Si podéis arrojarme un poco de luz sobre esto os lo agradecería mucho. Un saludo.

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

Buenas tardes, el tema es así, en un mismo libro tengo muchas hojas, en una de las cuales tengo una tabla con datos que se está "expandiendo" en filas, diariamente, para evitar que la tabla se ponga "pesada" quisiera mensualmente yo activar una macro que corte el contenido de esta tabla y la pegue en la parte superior de otra tabla igual, que está en otra hoja, así usar de almacenamiento esta segunda tabla. No se como armar una macro, con el grabador armé algunos que dan vergüenza y no funcionaban juntas Subo un ejemplo, el orden es cortar todos los datos de la tabla (BDVentas) y pegarlos en la parte superior de la tabla (Tabla9) osea a partir de la celda A3 …

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…

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

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, 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, 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 buen día!! No he podido hacer con un bucle que se cambie la ubicación de referencia relativa para copiar desde otra hoja. El programa que he hecho (adjunto) funciona como quiero pero quisiera hacerlo en dos líneas y con un bucle que haga que la ubicación de las celdas para copiar la información vayan cambiando. Use contadores, uno disminuyendo de uno en uno (R) y el otro de cuatro en cuatro (C) pero no me funcionó. Al mismo tiempo quisiera ir recorriendo hojas diferentes en el libro. 'Corrida 10 años Lote 171, 173', etc. Esta es una fracción del código: ActiveCell.FormulaR1C1 = "='Corrida 10 años Lote 170'!R[-132]C[-140]" ActiveCe…

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

Un saludo al foro, para solicitar un favor especial al foro .... ayuda grabar datos del ListView3 a una hoja3 Deseo controlar 3 procesos de producción de unas secciones a través de un el ListView3 , Llevo varias semanas sin exito, tratando de registras los datos, del ListView3 a la hoja BADEDATOS desde la Columna E hasta la columna AB sin tener éxito, he realizado varias pruebas en algunas me graba solo un dato, en otra me repite el mismo dato en todas las celdas Busco Concreto : Grabar del ListView3 Columna MEDIDA, Columna CANTIDAD me grabe los datos a la Hoja BASEDATOS desde la columna E hasta Columna AB en ese orden (Anexo link imagen .jpg) agrad…

Buenas a todos. Muchas gracias de antemano por la ayuda de siempre. Vengo con este problema, navego con vba a una url interna de mi empresa; cuestión que despues de haber ingresado también con vba el respectivo usuario y contraseña, me redirige a otra web. Si quiero navegar nuevamente en la web con IE.navigate me solicita nuevamente usuario y contraseña. se me ocurre abrir una segunda pestaña, ya que si esta logueado en IE el usuario, volviendo a cargar la web requerida en una segunda pestaña no me redirige..ahora, como abro y navego en una segunda pestaña? gracias!

Buenos dias amigos, avanzando con mi formulario de suministros me encuentro con el error de que no se encuentra el objeto he configurado un segundo userform "UserForm2" el cual se activa cuando hago clik en elemento del LISTBOX " LBProductos" y me permite escribir la cantidad del producto que deseo agregar. Hasta ahi funciona Pero al seleccionar el Boton "CONFIRMAR", para cargar la cantidad de ese producto seleccionado en el UserForm1 me dice que no se encuenta el objeto, y no encuentro la forma de resolverlo. La secuencia seria: _1 busco el producto en el USERFORM1, al hacer doble click sobre el producto -2 se act…

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... …

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…

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