Hola a todos.... Me hicieron una macro para crear un indice con todas las hojas que voy creando y así poder ir a la hoja que busco sin tener que ir una a una. Funcionaba perfectamente hasta ahora. No sé que ha pasado, pero no me funcionan los links que me llevan a cada hoja. Si me podéis echar una mano.... no tengo ni idea de macros. Os dejo el link al libro: https://drive.google.com/open?id=0B9laGIL8gRltNzFYbjJWc2tzVWM Un saludo.

Compañeros, una vez mas recurro a los expertos. como seria el codigo para que mediante una combinacion de teclas (ejemplo: ctrl + alt + q) se ejecute la macro de un command button que se encuentra dentro de un form que esta dentro de otro command button. :stupid: un poco complejo, intente con el evento onkey en el workbookopen pero muy complicado y no pude. Saludos

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…

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…

Tengo el siguiente problema: Cree un macro para que la hoja actual se desproteja (con una contraseña dada), luego se elimine la fila actual y se vuelva a proteger con la misma contraseña, hasta ahí todo funciona bien. El problema es que necesito que las celdas bloqueadas no se puedan seleccionar, cuando ejecuto el macro, se aplica la configuración que tengo (osea sin permitir seleccionar las celdas bloqueadas), pero cuando guardo y cierro el archivo y lo vuelvo a abrir, pasa que las celdas pueden seleccionarse, cuando desprotejo la hoja se ve que la opción seleccionar celdas bloqueadas esta marcada, osea que se permite. Cuando protejo manualmente la hoja no hay ningun …

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 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!!!

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

Buenas tardes. Agradeceré disculpar si no adjunto el archivo, ya que este puede ser cualquiera, ya que se trata de la impresión de hojas. Mi consulta es: 1) Puede ser posible bloquear la impresión de una o mas hojas del libro. Sé que se puede hacer con una macro que se puede poner en ThisWorkbook, pero mi consulta es en sí, si dado el caso, cuando se envíe a imprimir, pregunte cuál es la clave, y si coíncide que se imprima la hoja determinada. 2) En ThisWorkboork se le puede poner contraseña para que no vean cual es la clave. Si no se puede poner, cuál sería la solución para que esto no ocurra, y cualquier persona la pueda cambiar e imprimir las hojas que tienen la inf…

Hola amigos, de nuevo vengo con otra "nueva" inquietud....me explicaré: en mi libro tengo en la hoja Facturas (Botón Albarán), un ejemplo para crear un albarán, introduzco el cliente mediante la celda correspondiente y se rellenan los demás datos, así como cuando introduzco la referencia del producto se carga el nombre del producto, el iva y el listado de precios (solo he de introducir manualmente el lote y la cantidad). Hasta ahí bien, en la parte derecha se va creando una copia de la parte izquierda (una sería para el cliente y otra para mi, digamos), bueno lo que necesito es poder bloquear esa parte derecha del albarán, pues es sólo en la izquierda en donde se introdu…

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

Hola de nuevo, tengo un programa (sacado de consultas por foros de Internet) que me funciona perfectamente, se trata de cambiar el color de una forma, (es un círculo) pero no consigo hacer lo mismo si tengo 10 o mas círculos, como puedo hacerlo ? Mando código para una forma pero como hacer para cambiar a mas formas ? Gracias a todos Private Sub Worksheet_Change(ByVal Target As Range) 'Updateby Extendoffice 20160704 If Intersect(Target, Range("B1")) Is Nothing Then Exit Sub If IsNumeric(Target.Value) Then If Target.Value < 100 Then ActiveSheet.Shapes("Oval 1").Fill.ForeColor.RGB = vbRed ElseIf Target.V…

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

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

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…

Buenas tardes, Tengo un problema estoy tratando de sumar los valores decimales de un listbox pero solo considera los enteros por ejemplo si en el listbox tengo 25.48, 20.36, 30.58 al momento de sumar y enviarme el resultado a aun textbox me devuelve 75 osea la suma de 25,20,30 no toma en cuenta los decimales les dejo el codigo a ver si pueden ayudarme gracias. Dim i As IntegerDim total As Long total = 0 For i = 0 To lstimporte.ListCount - 1 total = total + Val(lstimporte.List(i)) Next i TextBox4.Text = total TextBox5.Text = Val(TextBox4) * 18 / 100 TextBox6.Text = Val(TextBox4) + Val(TextBox5)[/CODE] en el textbox4 es donde recibo la suma de los valores. ade…

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

Buenos días, quisiera que en mi plantilla de excel, se pudiera renombrar el archivo pdf que estoy visualizando en ese momento con el formulario que inserté, con el nombre que hay en un una celda determinada. El formulario permite visualizar todos los archivos pdf de una misma carpeta. Subo el fichero para más aclaración. Saludos y gracias Ejemplo.xls

Hola estimados: tengo una solicitud ... por favor alguien me ayudaria con esto al insertar en textbox1 el valor neto , que el textbox2 cargue el monto del Iva 19 % automaticamente y textbox3 sume le valor del neto mas el iva (TXT2 + TXT1) desde ya agradecido form iva.xlsm

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" '…

Buenas, me estoy devanando los sesos para conseguir lo que quiero hacer, pero mis entendederas no dan para tanto, así es que solicito humíldemente vuestra ayuda. La cuestión es que quiero quitar las flechas de los enlaces directos de windows, pero no tengo acceso al regedit, así es que la única solución que se me antoja es hacerlo desde VBA con EXCEL, ya que un fichero EXCEL con VBA que tengo con otro código sí ha conseguido modificar el registro, pero en otra rama. Bueno al grano, se que las flechas se eleminan cambiando la entrada IsShortcut por xsShortcut , en las ramas HKEY_CLASSES_ROOT\lnkfile y HKEY_CLASSES_ROOT\piffile, pero no se hacerlo con VBA. Mediante un fich…

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…

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