Hola amigos, a ver si podéis ayudarme: Tengo una base datos creada con aproximadamente 1.000 registros (filas) que con una macro va rellenado otra base de datos general (que tiene también otros datos) Lo que querría conseguir es que en el momento que incluyo un registro en la B.D. General, quedara marcado en la primera (la ya creada) por ejemplo con un color que marcara toda la fila, o con negrita u otra manera, con el fin de que resalte y cuando abra la base de datos (la ya creada) pueda ver de una ojeada qué registros han pasado ya a la b.d.general y lo que es más importante para mí , cuales son los que faltan de trasladar. Espero haberme explicado …

Buenas Tardes. Tengo este codigo: Private Sub ListBox1_Change() With Sheets("Hoja1") Set codi = .Columns("A").Find(What:=Me.ListBox1, LookIn:=xlValues) If codi Is Nothing Then MsgBox "Codigo no existe!": Me.ListBox1.SetFocus: Exit Sub For i = 2 To 12 Me.Controls("Textbox" & i) = .Cells(codi.Row, i) Next End With Set codi = Nothing Dim nsp As String Dim hoja As Worksheet nsp = ListBox1.Value For Each hoja In Worksheets ' Busca si existe una hoja con el nombre del codigo de cliente If nsp = hoja.Name Then Dim rw As String rw = ListBox1.Value & "!A:A" ComboBox1.RowSou…

como puedo modificar este codigo para que me deje un numero de los que se repiten Sub Eliminar_repetidos() Dim Mat, Q%, i%, R%, j%, Dic, Rng As Range, Valor, iniTime! iniTime = Timer Set Dic = CreateObject("Scripting.Dictionary") Mat = Range("A1:SX42"): Q = UBound(Mat): R = UBound(Mat, 2) For i = 1 To Q For j = 1 To R Valor = Mat(i, j) If Valor <> Empty Then Select Case Dic.Exists(Valor) Case True Set Rng = Union(Dic(Valor), Cells(i, j)) Case False Set Rng = Cells(i, j) End Select Set Dic(Valor) = Rng End If Next Next Application.ScreenUpdating = Fa…

Saludos. Os dejo un archivo adjunto. Son dos hojas, una llamada CSV que es como a mi me llega la información de un pedido y la otra hoja que es donde me gustaría tener todos los pedidos juntos para poder controlarlos a la vez. No busco que me lo "arregléis sin más" solo que no se me ocurre como plantearlo. Obviamente lo único que se de programación es copiar y pegar algunos códigos que encuentro en mis hojas de excel. Gracias chicos. Ejemplo.xlsx

Hola Antoni, debo decirte que este programa que me hiciste es una maravilla, te lo curraste y mucho, he hecho muchas pruebas con el, y para comprender mejor todo el funcionamiento, se me ocurren unas consultas. 1º En la Hoja "Caja" sobre qué, actúa el botón/macro "Reset" ? 2º En Hojas "Tickets y Detalle" que significa ID de la columna A ? 3º En Hoja "Detalle" en ID, qué significa el mismo número repetido ? 4º Porqué hay Hoja "Ticket" y Hoja "Detalle" ? no hacen más o menos lo mismo ? 5º Me imagino que las filas de las Hojas "Tickets" y "Detalle" no las debo borrar nunca, pues debe coger información de allí, la Hoja "Estadística", o borr…

Hola buen día, alguien me puede ayudar con una macro mucho mas eficiente que esta, he realizado esta q subo, pero no estoy satisfecho, habrá otra manera de mejorar el código o que sea mucho mas eficiente, la idea es eliminar las filas que tengan completos los "00:00" de la columna H a la R, menos los que contengan números. muchas gracias de antemano al que me ayude, abrazosNomina.xlsm

Saludos a todos, con la siguiente disyuntiva quiero con macros filtrar una base de datos para quitarle todos los espacios en blanco y copiar los valores restantes a otra hoja. Pero al momento de estar grabando la macro me marca este error "Demasiadas continuaciones de linea". Anexo archivo de ejemplo. De antemano muchas gracias. demasiadas continuaciones de lineas .xlsm

Buenas Noches Los Master del Excel, por favor su gran ayuda nuevamente para filtrar con 2 Combobox dentro de un listbox primer combobox filtra por Herrammienta ( esta ok) y el segundo combobox debiera firtrar por MARCA que es lo que me estaria faltando " por favor me pueden ayudar con esto? desde ya muy agradecido atte Meduvilla existencias ayuda Excel 1.xlsm

Buenas Tardes: Tengo estos valores: <=80%, entre >=81% y <=90%, >=91%. Lo que necesito es que cuando digite un valor en una celda aparezca una flecha asi: Flecha apuntado hacia abajo cuando es valor es <=80% Flecha apuntado hacia la mitad cuando el valor esta entre >=81% y <=90% Flecha apuntado hacia arriba cuando es valor es >=91%

Buen día estimados expertos, acudo a ustedes solicitando su valiosa colaboración con la finalidad de poder resolver esta tématica: tengo un formulario en el cual existen 3 combobox dependientes unos del otro, lo que pretendo hacer es que dependiendo el pais que se coloque en el textbox1 sea como ponga la nacionalidad en el textbox 2, es decir; en el formulario tenemos el btn_aceptar que es el que manda concatenadamento el contenido de los 3 comboboxs hacia el textbox1, pero lo que quiero hacer es que con el btn_nacionalizar ponga en el textbox2 la nacionalidad deacuerdo a lo que se escriba en el textbox1, por ejemplo si pusieron en el textbox1 "MÉXICO" (aunque existan otr…

Buen dia compañeros, tengo un problema con una macro que estoy elaborando en un combobox me lista las ciudades que tengo, pero donde ya me atore es donde requiero que dependiendo la ciudad que elija del combobox me abra un userform diferente pero me termina abriendo el mismo espero puedan ayudarme adjunto mi ejemplo ejemplo ciudades.xlsm

Estimados, me gustaría realizar lo siguiente: Sabiendo yo la clave de protección del libro, deseo: Mostrar hojas ocultas, copiar y pegar (esto sería lo de menos), volver a ocultar la(s) hojas que se mostraron y volver a proteger el libro. Para hojas protegidas : ActiveSheet.unprotect password:="" pero para el libro completo desconozco. Opinen! Gracias.

Estimados, Hola! como están?..Espero que muy bien. Me es grato saludarlos y a la vez a aprovechar la oportunidad para comentarles lo siguiente: Actualmente estoy trabajando en una empresa de Maquinarias pesadas...y se esta desarrollando el área de "Inteligencia de Negocios" la cual tiene como función principal el armado de una serie de reportes que provienen de una data de Importación que nos envían. Aquí desarrollaron un Excel con una serie de Macross para la estandarización de los formatos y data para posteriormente tener una base de datos depurada o "lista" para trabajar. Nadie sabe quien fue el creador de dicho módulo en VB y tmp nadie se ha capacitado, dando como re…

Hola compañeros del foro, he estado realizando una macro la cual no sigue correctamente la ejecución de la macro a través de un botón para crear un reporte, sin embargo a la hora de que depuro la macro para encontrar el error paso por paso o por procedimiento esta si me genera el reporte de manera correcta. Entonces no se que parte estoy omitiendo. Ojala me puedan ayudar. De ante mano les agradezco mucho su apoyo Adjunto un archivo para que lo visualicen Saludos Reg - copia.rar

Hola, espero estén bien. Me surge el siguiente inconveniente en mi trabajo. Tengo una base de datos de artículos (unos 500.000) el cual necesito "depurar" ya que el sistema de gestión tiene varias condiciones que hay que cumplir para su importación desde un libro de excel. La primer columna (Código) tiene las siguientes condiciones: Máximo de caracteres (16) Acepta letras mayúsculas y minúsculas de A - Z y números de 0 - 9 Acepta SOLAMENTE el carácter especial / NO admite espacios La segunda columna (Descripción) tiene las siguientes condiciones: Máximo de caracteres (255) Acepta letras mayúsculas y minúsculas d…

Hola a todxs, Simplemente os quería consultar una cosilla, ¿existe la posibilidad de depurar el siguiente código aun más? (He utilizado la grabadora de macros, y casi siempre suele ser bastante enreversada en ese sentido. Por eso lo pregunto...) ... With Range(Cells(5, 20), Cells(5, 20).End(xlDown)) .FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:="=0" .FormatConditions(Range(Cells(5, 20), Cells(5, 20).End(xlDown)).FormatConditions.Count).SetFirstPriority With .FormatConditions(1).Font ' Fuente de las celdas: .Bold = True .Color = -16776961 End With .FormatConditi…

Hola y buenos días a todos; -¿Se puede depurar mejor la macro que adjunto? Sí es posible agradecería vuestros consejos. Código: Sub notas() With Worksheets("Notas") .Cells(1, 1).AddComment .Cells(1, 1).Comment.Text Text:="Titulo1" .Cells(1, 2).AddComment .Cells(1, 2).Comment.Text Text:="Titulo2" .Cells(1, 3).AddComment .Cells(1, 3).Comment.Text Text:="Titulo3" .Cells(1, 5).AddComment .Cells(1, 5).Comment.Text Text:="Titulo4" .Cells(1, 1).Comment.Visible = False .Cells(1, 2).Comment.Visible = False .Cells(1, 3).Comment.Visible = False .Cells(1, 5).Comment.Visible = False End With End Sub …

Muy buenas tardes, Normalmente mis macros son relativamente sencillas y luego, poco a poco voy puliendo detalles para hacerlas más rápidas y más cómodas. En el trabajo manejo un fichero con muchas rutinas: desde seleccionar un fichero txt y pasarlo a una hoja hasta seleccionar varios ficheros, recorrer uno a uno y realizar diferentes operaciones con ellos. Poco a poco la cantidad de cosas y subrutinas que he ido añadiendo (por necesidades de mi trabajo) han hecho que el tiempo que tardo en ejecutar todas las macros vaya incrementándose. No es excesivo aún, ronda el minuto y medio, pero se que trabajando con arrays o creando diccionarios (un compi que está de va…

Hola a todos, Tengo el siguiente problema: Me gustaría desactivar las casillas "Código" y "Nombre Fiscal" de mi formulario cada vez que un usuario activa la opción "Cliente", tal y como se ve en la siguiente imagen. Es decir, cada vez que se activa la opción "Cliente" que aparezca un fondo color gris y no se pueda escribir nada sobre las casillas tachadas de rojo. Cómo se haría? Con un evento change? Y cómo hago para identificar la página "Denominación" activa dentro mi formulario multipágina? He buscado ayuda por internet, por manuales y por videotutoriales, pero no he conseguido encontrar nada al respecto sobre este tema complejo. Si algui…

Buenas estimados Alguno sabe como se llama y como se podría desactivar por medio de macro, el cuadro con orilla de color de la celda activa, que movemos con el teclado de flechas ? Muchas gracias

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

Amigos, ya logre que se desactivara "Mover o copiar..." del menú contextual de las etiquetas, pero la opcion aparece todavia habilitada en la pestaña inicio grupo celdas. Ya vi foros en ingles y dan soluciones dificilicimas para mi como programar en xlm, con las justas puedo en macros vba. ayuda porfavor MACRO QUE DESHABILITA MOVER O COPIAR HOJA.zip

Hola a todos, mi nombre es Maurizio y mi problema es este: Para abrir un formulario de usuario en el nivel de la hoja de trabajo sin utilizar los botones Vari; Normalmente utilizamos este Código: Private Sub Worksheet_SelectionChange (ByVal Target As Range) UserForm1.Show End Sub Y hasta ahora todo está bien! Ahora mi pregunta es qusta: Deseos ¿Sería posible asegurarse de que el formulario de usuario1 no se abra si un determinado evento es positivo? Permítanme explicar: creé en una forma de usuario la posibilidad de bloquear la modificación de los datos ingresados en una hoja de laro (Hoja1) al mostrar una forma de usuario para ingresar una cont…

Hola ¿cómo estáis? ¿Alguien sabe si es posible deshabilitar este botón mediante una macro o con el editor de UI? ¡Gracias!

HOLA necesito ayuda, tengo un label y sobre el botones, y cuando clikeo el label se posiciona al frente, como hago para que al hacerle click al label no haga nada, saludos