Hola a tod@s. Tengo el siguiente código. Sub Auto_Open() OcultarHojas End Sub Sub OcultarHojas() Dim Ws As Worksheet For Each Ws In ThisWorkbook.Worksheets If Ws.Name <> ActiveSheet.Name Then Ws.Visible = xlSheetHidden Next Ws End Sub Funciona bien, abre en la última hoja activa. Pero...... los vínculos de esta a las otras (50) no funcionan, ¿ Que le falta al código ? Salu2

Buenas tardes, he llegado aqui por buscar info en la web. Tengo el siguiente problema, ya he probado varias cosas y no le encuentro la vuelta. Tengo un archivo de excel 2007 con dos hojas, en una una tabla con 3 columnas: codigo,descripcion y precio; en la otra una planilla con esos 3 campos mas cantidad y total. Lo que necesito es que cuando en la planilla ingrese el codigo y le de Enter, me coloque en forma automatica la descripcion y el precio, asi solo tengo que ingresar la cantidad. He probado con la funcion =buscarv, me funciono, pero si la copio para todas las filas, me aparece N/A en las filas que no coloco ningun codigo, entonces no puedo sumar la columna de …

Buenas a todos foro. Estoy dandole vueltas a ver que fallo me da la macro para generar un codigo QR y no soy capaz de detectarlo. Y otra cosa, como se modificaría la macro de borrar el codigo? Porque boton que haya para ejecutar macro, se lo ventila. Gracias a todos por vuestro tiempo. Generar código QR.xlsm

Hola, Tengo un problema pero para explicarlo debo plantear lo que deseo hacer. Una macro que cree una nueva hoja con el nombre de un texto(APELLIDOS) de celda de excel, acto seguido que copie de B22 hasta F22 y que los pegue en la hoja recien creada o en una hoja que seleccione , o que aparezca formulario pidiendome el nombre de la hoja que deseo copiar, que no me permita crearla si esta repetida y si no existe que me vuelva a preguntar.También que el pegado sea de en la celda c22. Dicho esto solo tengo una macro que crea una nueva hoja con el nombre de la celda que yo necesito: Sub Nuevopaciente() Dim i As Long ' Si el nombre ya existe, genere un mensaje y no cree …

¿Se puede desactivar con código la compatibilidad con ISO al guardar en .pdf?

cordial saludo solicito su colaboración con lo siguiente tengo una lista de usuarios y un listado de registros que debo asignar a los usuarios. mi necesidad es: que yo escoja la cantidad de usuarios y la macro distribuya los registros que hay en los usuarios seleccionados. ejemplo: escojo 3 usuarios de los 5 que hay en lista. la macro debe distribuir los 100 registros en los usuarios seleccionados. Agradezco su colaboración con esta macro y mil gracias

Hola amigos. Tengo un problema con una macro para ingresar números consecutivos y fechas. Tras varias pruebas he conseguido que funcione con las fechas pero no con los números. Y al revés, si funcionan los números no lo hacen las fechas. No consigo dar con la solución. Gracias. NUMEROS CONSECUTIVOS.xlsm

Buen día a todos. Tengo un cuadro treeview, en vba de excel, y deseo insertar varias actividades pero tengo la cabeza muy enredada que no he podido lograrlo. La idea es colocar en el treeview lo siguiente: 1. Actividad 1 1.1 Actividad 11 1.1.1 Actividad 111 1.2 Actividad 12 1.3 Actividad 13 2. Actividad 2 2.1 Actividad 21 3. Actividad 3 3.1 Actividad 31 3.2 Actividad 32 . . . etc Adjunto el programa que hace cierta parte pero me enreda en la nivelación. Agradezco cualquier colaboración PDT.zip

Buenas, A ver si podeis ayudarme o guiarme un poco ya que soy bastante novata en este tema y me está costando bastante, sería de agradecer... Me baso en el ejemplo adjunto, tengo 3 pestañas (Usuario1,Usuario2,Usuario3). Cada pestaña es de un usuario que tiene actividades propias y otras con dependencias (las que aparecen como a Sí en la columna dependencia) con otros usuarios (columna Destinatario donde aparece el usuario del que depende). Mi intención es que haya un botón en cada pestaña que cuando le des a actualizar en una pestaña, por ejemplo, Usuario 1 le da a actualizar, a este le aparezcan todas sus actividades y todas aquellas que otros usuarios l…

Buenos días amigos, estoy intentando mantener pintada la celda de la bolilla del BINGO, en mi tablero de control, pero en cada click a la macro me borra el valor pintado anteriormente. 1. ¿Qué comando podría darle a la macro, para que no despinte la celda anterior? 2. ¿Qué comando podría utilizar para "eliminar" las bolillas que ya han sido cantadas (pintadas)? Espero puedan ayudarme, un abrazo a todos. Adjunto el archivo de excel. Marcos Bingo_Telas_en_Pandemia.xlsm

Buen día a todos, soy nueva en esto, he encontrado un archivo en uno de los foros el cual esta muy bueno pero uso Excel 2010 y me marca error aquí: Range("AG" & y + 1).FormulaLocal = "=CONTAR.SI(B" & y + 1 & ":AF" & y + 1 & ";" & """" & letra & """" & ")" como se puede solucionar esto. les adjunto el archivo muchas gracias. Control de asistencia II.rar

muy buen dia tengan todos, mi pregunta es simple. ¿como puedo hacer para que me despliegue ya sea mediante msgbox las filas en donde fueron insertados los datos previos, es decir, despues darle click en el boton "insertar datos" me aparesca el informe o mensaje de lo que fue insertado? ojala me puedan ayudar al respecto de antemano gracias Form ejemplo.xls

Hola estimados, nuevamente solicitando su ayuda. En este archivo quiero implementar una búsqueda inteligente en un ListBox (Fact1) aplicando entre dos rangos de fechas usando dos TextBox (Fech_InicioFact y Fech_FinalFact), con 2 condiciones; que sean de clase de Documento (DF) y que el Comité no sea Vigente. La busqueda inteligente o normal debe efectuarse al hacer Enter en el segundo TextBox (Fech_FinalFact) Para activar el formulario hay que hacer lo siguiente: Seleccionar celda A4("Cuenta") de la hoja Resumen Cart-Cli para activar UserForm1. Después haciendo click en cualquiera de las celdas de Cuenta en la columna (“A5:A57”) cargar de registros al UserF…

Tengo esta Macro que guarda la hoja, pero quiero que lo haga igual para todo el Libro. Muchas Gracias Option Explicit ' Sub EXCELeINFOGuardarHojaComoArchivoNuevo() ' Dim VentanasProtegidas As Boolean Dim EstructuraProtegida As Boolean Dim NombreHoja As String Dim Confirmacion As String Dim NombreArchivo As String Dim GuardarComo As Variant Dim Extension As String ' On Error GoTo ErrorHandler ' VentanasProtegidas = ActiveWorkbook.ProtectWindows EstructuraProtegida = ActiveWorkbook.ProtectStructure ' If VentanasProtegidas = True Or EstructuraProtegida = True Then MsgBox "No se puede ejecutar el comando cuando la estructura del archivo está protegida.",…

buenas tardes tengo dos libros RegistroVenta y Bdato, en el libro RegistroVenta esta el formulario Registrar el cual quiero que al colocar un valor en el TextBox1 haga una busqueda en el libro Bdato y el resultado lo muestre en TextBox2 o un label nota: el libro Bdato debe de permanecer cerrado o en todo caso debe abrir y cerrar sin ser detectado por el usuario

Hola con todos tengo un pequeño problema, en el libro que les adjunto pueden ver 2 grupos de datos, venta y gasto. Cada uno esta separado por mes donde hay una cantidad y un determinado precio. A la derecha hay 3 botones, Ocultar que oculta todo lo de venta y los precios de gasto, mostrar que muestra las celdas de precio pero solo para gasto y clave que de introducir la clave,darkside, se mostrara de nuevo la parte de venta. Mi problema es que la parte de venta debe de estar bloqueada es decir, solo la gente que tiene la clave puede modificarla. E tratado de mil maneras durante mucho tiempo y no se que hacer porfavor alguien ayudeme jaja prueba 1.rar

Estimada red, espero me puedan ayudar con esto: Tengo un formulario desde el cual puedo agregar datos a una hoja de Excel se compara la celda Nombre "Hoja14.Cells(j, 2)" con el TextCLIENTE. Si cliente NO esta registrado, lo registra y agrega los datos. Pero si el cliente ya esta registrado quiero que lo modifique con los nuevos datos asignados El código que tengo funciona para registrar un nuevo cliente. EL PROBLEMA SURGE AL MOMENTO DE MODIFICARLO (SI SE MODIFICA) PERO TAMBIEN LO AGREGA. Este es el código que tengo: Private Sub CommandButton1_Click() Dim i As Integer Dim j As Integer Dim Final As Integer Dim F…

Hola chiscos que tal estais.Aqui estoy de nuevo con una nueva cuestion de mi formulario. Tengo un formulario clientes en el que le he metido un listbox y lo que quería era trabajar tb desde el listbox. Como podreis comprobar cuando le dais al formulario clientes los botones agregar-modificar-eliminar estan desabilitados y ellos los habilito cuando le doy al boton NUEVO que habilito el boton agregar y cuando le doy al boton BUSCAR habilito los botones eliminar y modificar. Lo primero cuando os meteis en el formulairo clientes y le dais a algun registro en el listbox se agregan en todos los campos menos el de la fotografia que no se como ponerlo y lo que quería era tr…

buenos dias al foro. por mi trabajo debo utilizar equipos de 32 o de 64 bits indistintamente. el problema se presenta cuando ejecuto macros en un sistema que no lee el otro. el aviso que se presenta es el que se ve en el archivo anexo. he cambiado la instruccion declare por ptrsafe para leer en 64 bits, pero cuando voy a 32, se presenta el error inverso. hay alguna manera de detectar si el tipo de sistema con el que trabaja el equipo para evitar el error? saludos desde venezuela.

Saludos Amigos Encontré este código que según debía eliminar cualquier archivo de Excel sin que el mismo pudiera volver a ser utilizado o quedara en la papelera sin embargo al ejecutarlo ciertamente aparece el MsgBox e inhabilita el archivo para su uso sin embargo no lo elimina de donde este archivado no se si es que la versión en la que programaron ese código sea mucho mas antigua que la mía, de igual modo me interesaría saber si este mismo codigo puede ser usado para Macros en Word mucho les sabre lo que me puedan colaborar Option Explicit Private Sub Workbook_Open() Call Module1.AlAbrirLibro Dim exdate As Date exdate = "30/04/3100" …

hola todos estaba buscando una mejor alternativa para este codigo funciona sin problemas, pero es lento, lo que hace es pisicionarse en "B7" y a partir de ahi buscar la primera fila vacia Range("B7").Select Do While Not IsEmpty(ActiveCell) ActiveCell.Offset(1, 0).Select Loop[/CODE] lo probe a cambiar por este, pero no empieza en B7 y tengo filas vacias antes de B6, al ponerlo me agarra fila antes de B6 [CODE]Range("B" & Rows.Count).End(xlUp)..Offset(1, 0).Select [/CODE] saludos

Buenos días Soy nuevo en al foro, y tengo un pequeño problema, estoy intentando comparar 2 columnas de dos hojas y cuando coincidan los valores (código de producto) me haga una suma acumulada, he probado con todas las fórmulas que se y no consigo solucionarlo, a ver si me podeis hechar un cable El asunto es comparar la columna a de las dos hojas y si coincide el codigo, sumar la celda correspondiente de la columna cantidad de la hoja albaran a la misma columna de la hoja stock y que acumule la suma Gracias de antemano EXCEL ALMACEN.xlsx

Cod. Unids. Provee Criterio1 Criterio2 Art Precio. 111 […] A Pino Cama 1 Plaza 100 112 […] A Pino Cama 2 Plazas 200 121 […] A Pino Mesa […] 150 211 […] B Caño Cama […] 300 El proveedor “A” me informa que: “sólo” las CAMAS de PINO aumentan un 30%. Precio a Actualizar que Corresponde a las Camas de Pino con un coeficiente de 1.30 100*1.30 = 130 200*1…

BUENAS TARDES A TODOS. AQUI DENUEVO CON UN GRAN PROBLEMA PARA MIIIIIIIIIIII. NECESITO DE SU AYUDA, TENGO UNA HOJA EN EXCEL QUE SE IMPRIME DOS VECES Y NECESITO QUE EN CADA UNA SE IMPRIMA UN PIES DE PAGINA DISTINTO EN UNA EL PIES DE PAGINA DIGA " COPIA" Y EN LA OTRA "ORIGINAL" ESTE ES EL MACRO QUE USO PARA IMPRIMIR Sub Imprime_horarios() Application.ScreenUpdating = False For Each pestaña In Worksheets If pestaña.Name = "nombres" Then GoTo otra: pestaña.Activate If Range("d6") <> 0 Then ActiveWindow.SelectedSheets.PrintOut Copies:=2 pestaña.PrintOut End If otra: Next pestaña Sheets("nombres").Activate Application.ScreenUpdating = True End Sub DENTRO…

HOLA NECESITO SEPARAR TEXTO Y NUMERO A PARTIR DEL PRIMER NUMERO Q ENCUENTRE POR EJEMPLO KETOROLACO DE 10MG SEPARAR 10MG EN OTRA CELDA