Buenas, En el formulario agregar clientes, selecciono un cliente en el combobox y luego ejecuto el botón factura para agregar los datos, la primera vez lo hace correctamente pero al cargar otro cliente da el error y no consigo solucionarlo. No soy muy experto en esto, Adjunto archivo para que lo podais comprobar. Gracias y Un Saludo factu.zip

Hola amigos Tengo un archivo de verificación (check-list) en Excel, con casillas de marcación y necesito saber si se puede bloquear automáticamente la casilla cuando se marca y solo desbloquearla por medio de una contraseña

Buena tarde Tengo un problema con una macro, es justo en el renglon marcado donde me indica el error. Por favor su ayuda. Sub Test() numhoj = InputBox("¿Cuántas filas desea insertar?", "Insertar filas") If Not IsNumeric(numhoj) Then Exit Sub Rows("16:16").Copy Rows("16:" & 15 + numhoj).Select Selection.Insert Shift:=xlDown Selection.PasteSpecial Paste:=x1PasteFormulates Selection.ClearContents Application.CutCopyMode = False End Sub

Hola, tengo una macro que me abre un archivo xlam para poder cargarlo en Excel. Ccomo puedo abrir ese complemento desde la misma macro para que puedan utilizarlo, y al finalizar la funcionalidad del complemento como puedo seguir con otros procesos. Sub PortalPago() 'Funciones de Macro No Visibles Application.ScreenUpdating = False Dim Finfo As String Dim FilterIndex As Long Dim Title As String Dim FileName As Variant 'Configura filtro de Archivos Finfo = "Complemento Excel (*.xlam),*.xlam" FilterIndex = 1 'Establecer el título del cuadro de diálogo Title = "Seleccione un archivo Complemente Excel" '…

Tengo en un libro un cuadrante que utilizamos para contar jornadas de trabajo, vacaciones, etc.. como no tenemos vacaciones colectivas estoy intentando que con una macro al apuntar V o EJ en otra hoja me salga el dia y el nombre de la persona en su semana correspondiente, dejo un ejemplo Vacaciones2015.rar

Buen día amigos del Foro, tengo una consulta acerca del uso de la función MInverse de las hojas de excel en una función en visual basic. Escribí la siguiente linea esperando que el programa me devuelva la matriz inversa del "rangom" el cual es una variable de ingreso de la función (declarada como Range) pero no me ejecuta el MInverse al parecer no se puede guardar en "rangod" que fue otra variable que declare como Range. rangod = Application.WorksheetFunction.MInverse(rangom) Alguien me podría indicar si es posible usar los comandos de excel en la creación de funciones en el visual? y si es posible, como hacer la codificación?

Hola a todos. Necesito ayuda sobre este asunto. Tengo una lista de nombres en una tabla. Por ejemplo así. ID_RH Orden Período Fecha Alta O.T. Clave Nombre Completo 76231 1 00 10/05/2018 0308 101224 ANDRES SANZ ORTIZ 76229 2 00 20/12/2006 0308 101222 ANTONIO LOPEZ RODRIGUEZ 76234 1 00 04/04/2017 0308 101227 BERNABE RIUZ TORNE 76235 2 00 13/11/2017 0318 101228 BRYAN RUIZ CHERS 76236 1 00 03/07/2017 0308 101229 CARLOS RUIZ LOPEZ 76237 2 00 05/06/2018 0318 101230 ERNESTO FERNANDEZ SANZ Quisiera con un Inputbox insertar un nombre y apellidos (por ejemplo DIEGO RUIZ CAMPOS) y este buscara en la lista como la del e…

Saludos amigos: en dias pasados solicite ayuda acerca de como elaborar un control de asistencia, requerimiento que muy bien atendido y resuelto. Sinembargo me surgieron nuevas necesidades y reformule el proyecto original. Ahora tengo algunas cosas sin resolver, aun cuado estan funcionando, pero me gustaria simplicar: -Que se actualice automaticamente en valor de una celda, dependiento de los introcidos en otras dos y atendiendo a tres parametros. - Que al ejecutar una macro se exporte un rango con datos a ptro libro sin necesidad de abrirlo - Obtener a partir de un libro sin abrir una lista desplegable Adjunto los arxhivos y agradezco las sugerencias

hola amigos de ayuda excel tengo el siguiente codigo que hace consulta en 3 tablas al mismo tiempo pero no he podido dar con el error. DATO = (Trim(Format(Solicitud.Range("c2").Value, "0000"))) Set Rs = New ADODB.Recordset Sql = "Select VENDEDORES.VENOMBRE AS A1, VENDEDORES.VETELEFONO1 AS A2,VENDEDORES.VETELEFONO2 AS A3, VENDEDORES.VECORREO AS A4," & _ " MERCADERISTA.MENOMBRE AS B1, MERCADERISTA.METELEFONO1 AS B2, MERCADERISTA.METELEFONO2 AS B3,MERCADERISTA.MEFRECUENCIA AS B4 " & _ " FROM PROVEEDORES LEFT JOIN VENDEDORES ON VENDEDORES.PROID=PROVEEDORES.PROID" & _ " AND FROM PROVEEDORES LEFT JOIN MERCADERISTA ON MERCADERISTA.PROID=PROVE…

Hola, estoy haciendo una macro donde tengo un formulario y lo mando a Google Sheets. Como puedo pregunta si hay internet para que me la marque de Enviada y si no que la suba cuando si halla internet.

Hola a todos, gracias por tomarse la molestia de leer mi caso. La cuestion es la siguiente, intento hacer la siguiente validacion: If Range("W" & i & ":AP" & i).Value = Range("A" & j & ":T" & j).Value Then Range("A" & j & ":T" & j).Select Selection.Interior.ColorIndex = 3 ' Color fondo Exit For End If[/CODE] pero me marca el siguiente error: "Se ha producido un error '13' en tiempo de ejecucion: No coinciden los tipos", me podrian decir cual es mi error!!! Gracias anticipadas!!!

Hola buen dia. Es priemra vez queparticipo en algun tipo de foro. Busco ayuda con un formulario, que diseño uno de los botones no hace loque deberia segun yo. Explico: Una vez Abierto el archivo filtro en la celda T con titulo Assigned to El nombre de Nancy Urrieta. Selecciona la celda A7 y doy clic en boton Details Oprimo boton Nex Inv > esto despliega la info de la misma persona de las celdas activas y funciona bien Cuando oprimo el boton Assigned to, no regresa Deseo que cuando oprima Nex Inv haga lo que ya hace pero de donde se quede la celda activa pueda con el boton < Prev Inv regresar y despliege los datos. He utilizado Range(Selection, Select…

Estimados. Necesito de vuestra ayuda. Estaba creando un Dashboard en Excel 2010 sin problemas hasta cuando una de los Gerentes me dijo que casi todos tienen Excel 2007. Lo que necesito es Vincular una tabla dinámica con muchos "Filtros de Informe" a otras hojas que teniendo los mismos filtros estos pueden estar como "Filtros de Informe" , "Etiquetas de Columnas" o "Etiquetas de Fila". Leyendo en el Foro encontre que este tema ya a sido visto pero solo vinculando las tablas dinamicas a otras hojas pero no a las columnas de estas. Adjunto el archivo que estaba en el tema anterior que por cierto trae el codigo para que se ejecute en las otras hojas pero especifico lo de l…

Realice la instalacion del programa Simular, que aporta macros para realizar la simulacion montecarlo. Resulta que excel no me permite ejecutar ninguna de las macros y me salen los siguientes errores: "Se ha producido el error ´1004´en tiempo de ejecucion: No se puede ejecutar la macro "registro.xlam!auti_open"Puede que la macro no este disponible en este libro o que se hayan desabilitado todas las macros" desde el centro de confianza tengo todas las macros habilitadas, el tema no temina ahi sino que al darle finalizar me permite trabajar pero no me corren las macros del programa. Luego cuando cierro el excel me salen las siguientes ventanas Una dice " Error de compi…

buenos días, acudo a ustedes a ver si alguien podría ayudarme tengo un código que lo que hace es intentar imprimir una hoja de excel en Pdf en una ruta determinada y nombre pero al momento de compilar no muestra errores y al momento de ejecutar la macro me muestra un error que dice " Se ha producido el error "5" en tiempo de ejecución: Argumento o llamada a procedimiento No valido", he revisado el código y no se que sera, desconozco si para imprimir en PDF debo activar algo si pueden ayudar les dejo el código y les señalo donde me da el error al momento de depurar me señala estas lineas que es de donde me da el error """Selection.ExportAsFixedFormat Type:=xlTypePD…

Hola a todos, actualmente he instalado el Office 2016 en mi ordenador y me pareció bastante bueno, ahora ya viene con Power Pivot entre otras opciones más, aunque para ser sincero lo primero que vi fue la parte de Visual , pero la vi igual Yo sé que los Office de 32bits tienen más opciones que los de 64bits, pero lo que quisiera saber si hay alguna diferencia entre el Visual de las versiones 2010, 2013 y 2016 para un mismo sistema operativo Gracias

Hola a tod@s Tengo una hoja de excel en la que introduzco los datos de una ruta de montaña. Esta hoja la he conseguido tener, gracias al inestimable e imprescindible trabajo de Antoni. Ahora la duda, teniendo esa hoja, es la de poder calcular los tiempos de ruta. Tengo todas las fórmulas para el cálculo de dichos tiempos metidos en la hoja, en un apartado dentro del código, lo he marcado como: '-------------------Inicio '-------------------fin Esas fórmulas son las que me calculan los tiempos de cada tramo de la ruta. Pero yo las tengo para el cálculo de punto a punto de forma individual, y descnozco como se debería de hacer para que esas fór…

Saludos. Maestros del Excel como hago para guardar una hoja como archivo independiente. Aclaro no todas las hojas del libro, solo una en especial que bien puede ser la hoja activa. Gracias

Hola a todos, la verdad es que no tengo una macro ni nada para esta consulta. Sucede que tengo un libro de macros que funciona en cualquier PC con Excel en idioma Español, pero al ejecutar el programa en Excel en Ingles no corre las macros. Entonces no sé que se podría hacer en ese caso, para que funcione en los 2 idiomas o en cualquiera. Muchas gracias.

Me gustaria hacer un recodatorio en excel y qu te lo muestre en un msgbox indicando esto puede darse el caso que sean varios datos que expiren el mismo dia recordatorio.rar

Alguien sabe si existe código vba para hacer copias de archivos de una carpeta a otra. En este caso necesito una macro que me copie varios archivos pdf de una carpeta a otra conforme los va encontrando. Ya tengo el código para encontrarlos. Lo que necesito es el código para copiarlos. Gracias de antemano por su ayuda

hola necesito que me ayuden con un problema que tengo resulta que en el excel tengo las siguientes columnas año | mes | nombre | ingreso | costo | entonces resulta que de dos tablas diferentes obtengo los ingresos y los costos, vale decir, por un lado tengo año | mes | nombre | ingreso | y por otro lado año | mes | nombre | costo | entonces hay coinsidencias de nombre pero como agrupo la gran cantidad de datos? de tal forma que se unifique por nombre asi calzo los años y los meses con sus respectivos costos e ingresos? saludos espero qe me puedan a yudar con una macro que lo haga independiente dela cantida de datos que ingrese aqui un excel con el ejemp…

Buenas a Todos, Deseo saber de que forma es posible que pueda editar registros duplicados en este ListBox, no puedo modificar lo que filtro, me podrían brindar una ayuda por favor. Deseo editar uno por uno y actualizarlo en la base de datos, pero no me permite hacerlo , solo puedo hacerlo con un dato, el resto no me permite modificarlo. Gracias ayuda_2.xlsm

Tengo un listbox con datos de equipos con información común pero almacenados en diferentes hojas, todo va bien hasta la selección de algún equipo de otra hoja, donde me genera error. adjunto parte del archivo, de antemano, gracias. Private Sub ListBox1_Click() Sheets("FichaSwitches").Select Range("A1").Activate Cuenta = Me.ListBox1.ListCount Set Rango = Range("A1").CurrentRegion For i = 0 To Cuenta - 1 If Me.ListBox1.Selected(i) Then Valor = Me.ListBox1.List(i) Rango.Find(What:=Valor, LookAt:=xlWhole, After:=ActiveCell).Activate End If Next i Sheets("Fichatransmisores").Select Range("A1").Activate Cuenta = Me.ListBox1.ListCount Set Ran…

Hola, en mi trabajo me pidieron que tratara de extraer datos de una tabla para ponerlos en otra de otro depto. Estos datos deben cumplir ciertos criterios de buscar un dato de acuerdo a un número y fecha asignado en la tabla 1, y colocarlos en la tabla dos, en la fila que coincida el número y fecha asignado, no se si me explico, pero he creado lo siguiente: Sub Macro1() ' ' Macro1 Macro ' Completado '' Acceso directo: CTRL+i ' Dim mx1 As Double, mx2 As Double Set lb1 = Workbooks("copia Registro Ofic. a Ctta..xls").Worksheets(1) Set lb2 = Workbooks("Copia de 2.011.xlsx").Worksheets(1) n = ActiveCell.Row lb1.Activate Range("a1:b150").Select Selection.ClearCont…