Buen día a todos Deseo crear una hoja con los datos de clientes, en donde se registrarán fundamentalmente los pedidos de cada uno de los productos. Estos apuntes se realizan periódicamente, por lo que un mismo cliente estará repetido varias veces. Si a través de una lista despegable, que está en la D5 de la Hoja Tablas, se selecciona un cliente, se mostrarán todas las filas de sus apuntes diarios y se ocultarán las filas de los otros clientes en la Hoja Datos La lista despegable debe ser dinámica para contener a los futuros clientes También aparecerán al final de cada columna (del rango E:R) la suma correspondiente. Gracias de antemano por su tiempo y dedicación Li…

Buenas Saludo, soy nuevo en el foro y quisiera si es posible que me ayudaran con lo siguiente Tengo un archivo en el cual hay que llenar ciertas información mes a mes y estas informaciones estan en rangos de filas por mes. Mi pregunta es posible con una macro que las filas que no correspondan a una condicion dada en una celda (mes) sean ocultas y que solo permita digitar en aquellas que correspondan ese mes o que yo previamente determine para modificar datos. Gracias

Buenas necesito de vuestra ayuda con lo siguiente: 1. Se selecciona de la lista una de las 4 opciones. 2. Si selecciono TODAS deben mostrarse todas las filas con datos. 3. Al seleccionar una de las otras 3 opciones la macro debe: obtener los 3 primeros carácteres de la opción sin incluir los espacios y en mayúsculas. Esto lo consigo con este código proporcionado por Héctor Miguel: Mayus = UCase(Left(Replace(Target, " ", ""), 3)) 3. Con el resultado obtenido, en el ejemplo: IZ UNIDO (con los 3 primeros carácteres el Id para buscar es IZU) , buscar en la columna D si existe algún registro que empiece con IZU. 4.Ocultar las filas que no coincidan. En este caso hay que …

Hola tengo este formulario que les dejo anexo, para las dos primeras columnas diseñe una macro que me carga un formulario para seleccionar la fecha ---- al final de la hoja en la ultima columna hay otra macro que al introducir la palabra "si" me bloquea la fila que acabo de editar y me lanza a la primera celda de la misma fila ---- al hacer esta acción hace que de nuevo se me cargue el formulario de fecha puesto que esa celda queda activa y hay una macro en ella para que muestre ese formulario cuando se selecciona (cuando esta activa) ----- entonces me toca cerrarlo y ahora si queda bloqueada la fila que acabo de editar, ... esto es un gran problema, puesto que al ca…

Buenas tardes amigos. Tengo una duda. Estoy usando el siguiente codigo para colocarle clave de activacion a un boton que esta en la hoja de excel (el codigo funciona perfecto), pero no encuentro una manera de ocutar la clave cuando se ingresa. Habra alguna forma de que no se vea lo que se digita ? 'Caja para el ingreso del Password para poder borrar ultimo registro Dim PS As String Dim PS2 As String PS2 = "clave" PS = InputBox("Por favor ingrese su Password") If PS = PS2 Then 'Fin de la caja Agradecido de antemano por vuestra ayuda

Buenas Noches: Tengo 2 userform y necesito saber como escondo un label y un checkbox desde un userform diferente

Hola a tod@s. Hay la posibilidad de ocultar la sección de Macros Personal, es decir que muestre todas menos la del Personal. Saludos.

Hola, me gustaría ocultar la cinta de opciones tan sólo en mi libro activo. Se me ocurren las siguientes ideas, pero no me funcionan: Sub OcultarRibbon1() If ThisWorkbook.Activate = True Then Application.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", False)" End Sub Sub OcultarRibbon2() Application.ThisWorkbook.ExecuteExcel4Macro "SHOW.TOOLBAR(""Ribbon"", False)" End Sub Agradecería cualquier ayuda. Gracias.

Buenos Días, Como puedo hacer para limpiar mi tabla dinámica sin necesidad de hacerlo uno por uno. ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Producto").Orientation _ = xlHidden ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Mes").Orientation = _ xlHidden ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Departamento"). _ Orientation = xlHidden ActiveSheet.PivotTables("Tabla dinámica1").PivotFields("Promedio de ISRed"). _ Orientation = xlHidden[/CODE] Espero su ayuda Gracias.

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

Hola Como puedo hacer para que si en la celda A1 el valor sea > 5, entonces se oculte un boton (el cual haría acciones específicas para cuando A1<5) Gracias

Estimados amigos soy nuevo en el foro y en la programación vba. Sobre el tema de ocultar hojas o como en mi caso es ocultar solamente una, no encuentro una respuesta facil, veo por aqui a grandes expertos y claro no llego a tanto. Os adjunto el fichero y si alguien pe puede ayudar se lo agradezco. muchas gracias de antemano. Por cierto un foro de excel extraordinario labora33333.xlsm

Buenas tardes, Les escribo porque esto me tiene loco!! .. Tengo 2 elementos calculados en una tabla dinamica mas sin embargo son muchos datos en etiquetas de filas los cuales quedan en 0 o en blanco y se muestran! No existira una macro que me ayude a ocultar esos valores en 0 o en blanco y que no me aparezcan en la tabla dinamica. Cabe destacar que los valores se dan por un filtro de tabla dinamica que se realiza en un panel de busqueda. Me podrian ayudar? no subo el archivo porque es muy pesado.

HOLA, SOY NUEVO EN ESTO DE LA PROGRAMACION VBA, NECESITO ME AYUDEN CON UNA MACRO QUE OCULTE LAS COLUMNAS SELECCIONADAS SEGUN LA CASILLA DE VERIFICACION QUE SELECCIONO, POR EJEMPLO SI SELECCIONO LAS CASILLA 1 ME MUESTRE SOLO LA COLUMNA "C" SI LA DELECCIONO ME MUESTRE TODAS LAS COLUMNAS , SI SELECCIONO LA CASILLA 2 ME MUESTRE SOLO LA COLUMNA "H" AL DELECCIONAR ME MUESTRE TODAS LAS COLUMNAS , SI SELECCIONO LA CASILLA 3 ME MUESTRE LA COLUMNA "F" AL DELECCIONAR ME MUESTRE TODAS LAS COLUMNAS, PERO SI TENGO SELECCIONADO LAS CASILLAS 1 Y 2 ME MUESTRE LAS COLUMNAS C"" Y "H", Y ASI CON TODAS LAS COMBINACIONES POSIBLES..................................LES AGRADEZCO DE ANTEMANO POR…

Buenas tardes, Perdonad mi ignorància en excel pero he creado un boton para ocultar y mostrar hojas. He puesto en el VBA la macro pero supongo que la he escrito mal, me gustaría que alguien con mas conocimientos que yo me pudiera ayudar, Me pone el siguiente error: Se ha producido el error 9 en tiempo de ejecución: Subíndice fuera de intervalo gracias Sub MostraryOcultarHojas() Sheets("Hoja10").Visible = False Sheets("Hoja11").Visible = False Sheets("Hoja12").Visible = False Sheets("Hoja13").Visible = False Sheets("Hoja14").Visible = False Sheets("Hoja3").Visible = False Sheets("Hoja5").Visible…

¡hola Por favor si alguien me puede ayudar, necesito ocultar la barra de desplazamiento vertical de un cuadro de lista en VBA Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function ShowScrollBar Lib "user32" (ByVal hWnd As Long, ByVal wBar As Long, ByVal bShow As Long) As Long Private Const SB_HORZ = 0 Private Const SB_VERT = 1 Private Const SB_BOTH = 3 Private Sub ListBox1_Click() End Sub Private Sub UserForm_Initialize() Dim lngMyHandle As Long lngMyHandle = FindWindow("THUNDERDFRAME", Me.Caption) ShowScrollBar lngMyHandle, SB_BOTH, True End…

Hola a todos, tengo excel 2007 y estoy intentando hacer un archivo para un juego de casar parejas para obtener un regalo si aciertas a casar la pareja. tengo una tabla con diferentes regalos y encima de cada nombre he puesto un boton, el cual al pulsarlo deberia ocultarse durante unos segundos y dejar ver el texto que hay debajo de el, y asi en todos los botones. he intentado hacer una macro asignada al boton que oculte el mismo cuando lo pulso pero no soy capaz. alguien podria ayudarme? muchisimas gracias. PROMOCION BEM JUEGO CASAR PAREJAS.zip

Hola a todos. Me gustaría saber si se puede crear una macro para ocultar determinadas zonas en una hoja (o que se muestren en blanco), y poder visualizarlas solo con contraseña. Ejemplo : zona a23:j45 y c13:d25 en la misma hoja. Muchas Gracias.

BUenos días. Lo primero que he de decir es que soy un completo neófito en temas de macros y VBA, por lo que cualquier ayuda me será de gran valor. He creado una hoja Excel (llamemosla Hoja2) que utiliza 6 columnas para dar la información de un mes concreto. La columna A contiene el nombre de los datos y las columnas B, C, D, E, F y G corresponden a enero, las columnas H, I, J, K, L y M corresponden a febrero, las columnas N, O, P, Q, R y S a marzo..., y asi sucesivamente. He sido capaz de crear un cuadro de lista de selección multiple en la hoja 1, desde el que se puede hacer una selección múltiple de los meses que se quieran elegir para visualizar con una …

Pues eso amigos, al agregar cliente nuevo, al pasar al TextBox2 me dice eso (OCURRO UNA EXCEPCION) y no puedo seguir. Ya di vueltas al codigo pero como praticamente nada entiendo pues, quisiera una ayuda de algun experto en la materia. Estuve con F3, averiguando los nombres y algunos hacian referencia a un directorio y libro no se el porque, ni libro ni directorio existen, elimine esos nombres Agradecido. Fiesta0.part1.rar Fiesta0.part3.rar Fiesta0.part2.rar

Hola de nuevo. Tengo un Excel que accede a una Access a través de macros conectando con "CreateObjet ("adodb.Connection") Hasta aquí perfecto, ahora la empresa está cambiando los Office en local por el Office365 (Online). He probado en un ordenador que tiene el 365 con Access y cuando abro un formulario me salta el primer error, "Dispositivo no disponible". El depurador de Visual Basic me da este error que creo que es un problema del drive ya que se para en la instrucción ChDrive ThisWoorkbook.Path. ¿Sabéis si esto tiene solución? Supongo que el problema viene de que el Path del libro es una url, al ser online, y no se si es posible salvar el error y que fu…

Buenos días: Trabajo en una Institución educativa que desea apropiarse mi trabajo realizado en vba. El archivo contiene varias hojas que se muestran según la contraseña que se ingrese, y a su vez, cada hoja tiene diferentes funcionalidades según su propósito. Consulté un tema similar abierto anteriormente donde se menciona un ofuscador para todo el código contenido en un archivo ( ), sin embargo, al aplicarlo me genera un error 1004 en tiempo de ejecución y al abrir el editor me indica error en la siguiente línea: Set Proyecto = ActiveWorkbook.VBProject. Finalmente el resultado es que no puedo aplicar el ofuscador. Me pueden orientar por favor qué es lo que suc…

Hola, muy buenas exceleros. Felicitaciones por el foro. Con unos compañeros hemos desarrollado un programa para el apoyo de la gestión y control de producción; el cual consta de varios formularios y módulos. Nuestra idea no es ocultar ni proteger el conjunto de códigos, sino de ocultar un solo código que se encuentra dentro de un formulario, el cual hace el llamado a un módulo, hemos logrado ocultar ese módulo (no se abre ese módulo), pero no hemos logrado ocultar el código dentro del formulario, por lo tanto, se pretende ofuscar ese código totalmente o hacer invisible solo la línea del llamado al módulo (si esto es posible), sin embargo, no lo hemos conseguido, solo hemo…

Buenos días, quisiera que me ayudar para ver que le falta a mi macro para que omita las filas en blanco y siga a la siguiente fila para que extranga los datos de ela ultima fila. Adjunto la macro Set jhcrudo = Sheets("CRUDO") jhcrudo.Activate jhcrudo.Cells(1, 1).Select jhcrudo.Cells(1, 1).End(xlDown).Select Fila = ActiveCell.Row For v = 1 To 5 jhcrudo.Cells(Fila, 1).Select jhcrudo.Cells(Fila, 1).End(xlDown).Select Fila = ActiveCell.Row Next v jhcrudo.Cells(Fila, 1).Select jhcrudo.Cells(Fila, 1).End(xlUp).Select Fila = ActiveCell.Row Fila2 = Fila Target = 1 While Target = 1 jhcrudo.Activate If jhcrudo.Cells(Fila, "C") = "R1" Then…

Hola, tengo una planilla para cargar datos sobre ingresos y egresos, estos datos se guardan con una macro y se cargan en otra hoja. Las opciones al completar en la planilla son "Ingresos en efectivo", "ingresos por transferencia" y "egresos", el problema es que no quiero que la macro funcione cuando la opción que se elija sea "ingresos por transferencia" ya que la hoja donde se cargan los datos corresponde a una caja real en efectivo (la opción de "ingresos por transferencia" esta por otro motivo). La macro utilizada es así: If movimiento = "Ingresos en efectivo" Then Sheets("caja H").Cells.Range("d5") = importe Else Sheets("caja H").Cells.Range("e5") = im…