Saludos a todos, Soy nuevo en el foro y la verdad hace mucho que deje mis estudios básicos de Computación por lo que mis conocimientos se han desgastado mucho, dicho esto voy al tema de todo esto, tengo una duda a la cual le estoy buscando solución ya hace mucho rato y hasta ahora no se la encuentro, es por eso que recurro a ustedes. Mi duda es la siguiente, ¿como puedo realizar que varios combobox que se encuentran en un formulario de excel se relacionen entre sí?, por ejemplo, tengo el combobox1 con los datos de todos los departamentos del Perú y quisiera que al seleccionar una de sus opciones, en el combobox2 donde tengo todas las provincias de cada departamento del …

Llevo algún tiempo probando este tema pero no lo consigo, agradezco cualquier ayuda u orientación, gracias Libro1.xlsm

Hola de nuevo, estoy trabajando en una macro para copiar filas y luego ordenarlas (para hacer una análisis estadísticos sobre estas) tengo definido el rango y ya poseo la macro para copiar y filtrara las filas como las deseo. Ahora deseo que , con la misma macro, pueda copiar y ordenar al mismo tiempo. La macro que poseo es ésta: Sub CopyForm() Application.ScreenUpdating = False 'Limpiar datos anteriores Sheets("ANF1").Range("A2:DA46").Cells.ClearContents Sheets("ANF2").Range("A2:DA46").Cells.ClearContents 'Copiamos las claves desde !claves 'Para la Forma 1 Worksheets("claves").Range("B2:CW2").Copy Worksheets("ANF1").Range("E47:CZ47").PasteSpecial xlPasteValu…

Buenas noches estimados tengo un pequeño problemita... debo imprimir un formato A6, pero a la vez con un option buton imprimo de acuerdo a un rango OPTIONBUTON1: AZUL = Range("B2:H28").Select OPTIONBUTON2: AZUL + VERDE = Range("B2:H43").Select OPTIONBUTON4: AZUL + VERDE + AMARILLO + NARANJA = Range("B2:O43").Select OPTIONBUTON3: AZUL + VERDE + AMARILLO = aqui esta mi problema lo he querido hacer asi: Range("B2:H43, I2:O22").Select pero me imprime en hojas separadas y deseo que salga en una sola hoja Espero me sepan entender y ayudar quedo muy agradecido

Hola a todos nuevamente, ésta consulta no es que sea para Macro Antonio pero es quien me dió éste archivo con código, y como el tema vuelve a ser el mismo practicamente por eso lo nombro a él primero, pero indudablemente cualquier compañero puede solucionarlo, bueno cualquiera que sepa de ésto claro, yo sería imposible. Bueno supongo que se acordará, y es el tema de separar los nombre que ya me realizó, y es que ahora como los nombre no van en la columna B sino en la A, habría que cambiar algo del código para que tome esa columna como referencia, es decir, de la columna A extraemos los nombres de A1 y los ponemos en otra hoja en filas distintas hasta acabar con todos los…

Estimados foreros, muy buenos días...ojalá alguien me pueda ayudar... sucede que tengo un gráfico de dispersión (hoja "Estadística_Básica") que necesito dejar con las columnas "fijas" para que se construya el gráfico, estas columnas son las que se leen para crear dicho gráfico, sucede que cuando corro alguna macro para "re-calcular" nuevamente nuevos datos...estas columnas se "resetean" (reset) y cada vez debo volver a seleccionar las columnas para construir el gráfico. Espero me puedan ayudar. Adjunto link para descarga de archivo ya que pesa casi 5mb. Desde ya muchas gracias. https://drive.google.com/open?id=1LIR6TogVXEGWStZ8dGTXMiIYG09pmvqE

Programé una macro para crear un libro por cada proveedor que funciona muy bien en con mi computador que tiene instalado Excel 2019, sin embargo, al ejecutar la macro en el computador del cliente, que tiene Excel 2013, aparece el error cuando trata de ejecutar la instrucción Workbooks(myNamebook).Activate. Fuera de Rango.xlsm

Buenas tardes Tengo un formulario ya completo con un botón que guarda la información en diferentes hojas del libro de excel. Mi interés está en que al agregar la información a las filas de las hojas de excel, no puedan editarse. Dado que habrá varias personas utilizando el archivo, se quiere evitar el que se eliminen datos por algún descuido. Ya he intentando con los comandos de protect y locked y no logro resolverlo. Agradezco de antemano su apoyo y asesoría y tiempo. Daniela Plantilla LV 4.3.xlsm

Private Sub Capitulos_DblClick(ByVal Cancel As MSForms.ReturnBoolean) Set cat = Worksheets("tablas") t = Me.Capitulos.ListIndex + 1 r = 6 Do While cat.Cells(r, 3) <> "" If cat.Cells(r, 2) = t Then nc = cat.Cells(r, 3) Exit Do End If r = r + 1 Loop nomarea = InputBox("Cambio de Nombre a : " & nc, "Modificaciones: Areas de Seguimiento") If nomarea = vbNullString Then MsgBox "Cancel" Else 'Aqui me manda error Me.Capitulos.List(t - 1, 0) = nomarea MsgBox "Acepto" End If l = Len(nomarea) End Sub Quiero renombrar el Item del List Bo…

Al intentar acceder a páginas https de google como el correo o a paginas de youtube, el objeto IE cambia y no puedo acceder a la colección de elementos HTML usando las típicas sentencias: For Each p In IE.document.all For Each r In IE.GetElementsByTagName(TagName)[/CODE] Al parecer es un plugin de google llamado Google Chrome FrameChromeFrame BHO, según Esta Pagina, cito: Dicho plugin lo instalé por que youtube me insistió encarecidamente que o lo instalaba o perderia muchas funcionalidades de la nueva interfaz. Un acelerador de páginas que cuando está activado, el objeto se muestra sin apenas opciones ni muestra colección de elementos HTML, adjunto 2 im…

Hola. Gracias al gran trabajo realizado por el usuario JSD en otro hilo de este foro y mediante el cual ha facilitado acceso a un sistema muy efectivo para generar facturas en Excel, me han surgido algunas características que entiendo le dan más valor añadido, y que en mi caso particular necesito. - Posibilidad de elegir la serie de facturación además del número de la factura. - Añadir el código postal a los datos del cliente. - Añadir diferentes opciones de método de pago o número de cuenta en el que realizar el pago. Gracias anticipadas por su ayuda. Facturación 26082021JSD.xlsm

Saludos, Que formula utilizaría para poder sumar de una base de datos por mes y por año teniendo la fecha compuesta de la siguiente forma dd/mm/aa os dejo un ejemplo para que si podéis rellenarlo para hacerme una idea ya que no soy experto muchas gracias ejemplo fecha.rar

Buenos días a todos: Estoy realizando una aplicación usando CUSTOM UI EDITOR. Lo que necesito es que al abrir excel muestre solamente mi grupo personalizado. No consigo ocultar la pestaña Disposición de pagina y ayuda Me podeis ayudar stock ALMACEN MMPP 2024 rev.1001.xlsm

Buenas tardes estimados, de nuevo molestando por acá, estoy tratando de crear un formulario para poder llevar el control de facturas de mis gastos mensuales, pero ya me quedé atorado en el código, lo que quiero es que al momento de usar el combo box pueda empezar escribir el nombre de la empresa y me aparezca y me refleje en un text box el nit de la misma, quisiera fueran tan amables de orientarme en esto. De antemano muchas gracias!!! P.S. Adjunto el documento Dropbox - Ingreso de Facturas.xlsm

Podrian ayudarme a solucionar este problema al copiar y pegar me da problemas con vba Fecha.xls

Hola. He buscado y rebuscado por Internet, sin éxito, una macro genérica que simplemente copie el contenido de todas las hojas excel (se llamen como se llamen) a una sola. ¿Es posible conseguirla? Subrayo lo de "genérica" para no tener que estar definiendo en el código los rangos a copiar, ni que dependa del nombre de las hojas, ni nada. Como mucho, si hay que poner algo, que sólo sea poner el nombre de la hoja a donde se quieren traspasar los datos y la columna última que contiene los datos. Pero cuanto más genérica mejor. Si alguien puede aportar algo, se lo agradezco. Saludos.

tengo un problema con una macro, me marca un error 13 el cual no se a que se deba, el código lo que hace es enviar un mail cuando la cantidad de items en el stock desciende por debajo del nivel deseado. les dejo el código para ver si alguien me puede ayudar con esto ya que no he podido solucionarlo por mi mismo. el error me lo marca en el segundo if, es decir en : If Target.Value < Range("$M" & Right(Target.Address, 2)).Value Then Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) Dim lngResponse As Long Dim URL As String, strEmail As String, strSubject As String If Left(Target.Address, 2) = "$K" Then If…

Hola buenas tengo un problema con mi formulario la verdad es q no se como hacerlo le explico. tengo un formulario que esta especificado el nombre, el mes y el subtotal, con el boton agregar se guardan en el list box deacuerdo a lo asignado, ahora mi problema es el siguiente un vendedor en el mes de abril (como ejemplo) hace 5 ventas de x cantidad lo cual se agregan luego en marzo vende otras 5 tambien por x cantidad lo cual esta pintado en el listbox, ahora mi problema es que cuando pulse el boton guardar se guarde en la hoja de excel y sume el total de las ventas de un mismo mes y luego lo guarde en la columna del mes que corresponda. despues de hacer eso segun se con…

Buenos dias maestros del excel, Tengo un userform con varios ComboBox y ellos hagan las consultas de distintas tablas del access (datos constantemente actualizándose) con la acción del UserForm_Initialize. Con este codigo puedo consultar en el combobox desde access: Private Sub UserForm_Initialize() Dim cn As Object Dim datos As Object Dim consultaSQL As String Dim conexion As String Set cn = CreateObject("ADODB.Connection") conexion = "Provider=Microsoft.ACE.OLEDB.12.0;" & _ "Data Source=C:\Users\JULIO CESAR\Desktop\Prueba_V01.accdb" 'Aqui va la ruta de tu base de datos consultaSQ…

Buenas tardes amigos alguien me podría ayudar Quiero ver para modificar sus datos bancarios las columna no son consecutivasy solo quiero cargar las columnas A, B, K, y L Libro de Clientes.xlsm

Private Sub ListadeBusqueda_DblClick(ByVal Cancel As MSForms.ReturnBoolean) If Me.ListadeBusqueda.ListIndex <> -1 Then CIdAutomatico = ListadeBusqueda.Column(0) 'A CProvincia = ListadeBusqueda.Column(1) 'D CEspecie = ListadeBusqueda.Column(2) 'N CTipodeRegistro = ListadeBusqueda.Column(3) 'K CMotivo = ListadeBusqueda.Column(4) 'L CSitio = ListadeBusqueda.Column(5) 'E valor_buscado = Me.CIdAutomatico.Value ufila = Sheets("BDCapturasMuertos").Range("A" & Rows.Count).End(xlUp).row With Sheets("BDCapturasMuertos").Range("A2:A" & ufila) Set filaseleccionada = Range("A2:A" & ufila).Find(valor_buscado, LookAt:=…

Buenas, a ver si me podéis echar un cable estoy haciendo una lista e la que quiero que al pulsar el nombre de la serie en mi derecha aparezca la imagen correspondiente a esta, pero como es muy larga quiero que al imagen se quede fija en el mismo punto de la pantalla, es decir que aunque baje la lista ya sea con al rueda del ratón, o la barra desplazadora del excel el cuadro de la imagen siempre este en el mismo punto de la hoja, para que cuando pulse en el nombre esta se vea situada en la parte derecha y arriba de la hoja ya sea en el puesto 1 o el 500 de la lista. A ver si me he explicado con claridad ^^U Imagen Flotante estaitca.rar

Me gustaría saber como guardar la información en un nombre predefinido anteriormente en excel. Quiero que cuando de clic en el botón del formulario tome la información de un cuadro de texto y me la guarde en un nombre. Ejemplo: Asunto: Revisión de documento Excel: en administrador de nombres tengo creado uno que se llama asunto. En el formulario VBA hay una caja de texto y un boton, al digitar el nombre en el cuadro de texto y dar clic en el botón aceptar quiero que quede grabado esa información en el nombre predefinido asunto de excel. TextBox1.value?? = asunto??? textbox1.text?? = asunto?? Agradezco su colaboración

Estimados, Necesito una manera rápida de definir una acción para varios textbox. Por ejemplo, me gustaría definir la misma acción al hacer click para los textbox 1-5, otra para 6-10 y otra para 11-15. La idea es que voy a tener un contador que me diga para cuales textboxes voy a hacer la accion A, B o C. Saludos Textbox.zip

Buenas tardes estimados (as): Tengo una duda, por favor si pueden aclararme lo siguiente. dentro de la sintaxis que se maneja eh visto que en algunos casos se utiliza por ejemplo: Set Dato = .Cells.Find(What:=nombre, lookat:=xlWhole) y en otros casos se utiliza set dato =.cells.find(nombre, xlwhole) ¿Existe alguna razón para ello?, eh notado que en algunas versiones de excel ya sea 32 bits o 64 bits no ejecuta el código, entonces ¿Hay alguna regla para codificar de una u otra manera?, si pueden ayudarme con esta duda. Gracias de antemano