Jump to content

JOHNMOR41

Members
  • Content Count

    11
  • Joined

  • Last visited

About JOHNMOR41

  • Rank
    Member

Contact Methods

  • MSN Array

Profile information

  • Gender Array
  • Localización: Array
  • Interests Array

Converted

  • Campos Array
  1. Ok Antoni, quedo perfecta la Macro de busqueda, que lastina que no se pueda poner "COLOR DE RELLENO" a las celdas, doy por terminada la consulta. Por cierto muy buena la presentacion de la hoja de Calculo. Que lastima que no sepa como pegar la imagen para que uds, puedan apreciar la presentacion del excel. Dejare el tema abierto por algunos dias, por si alguien pueda dar otro aporte al tema. Saludos, JOHNMOR41
  2. Amigo vladief, en tu anterior envio, en celda buscada pusiste fondo celeste, letra roja y en negrita, yo queria que ese formato de la celda se copie en la lista de productos, pero tu Macro esta haciendo los cambios en la columna siguiente osea en las encontradas y el cambio solo pinta con letras amarillas. Experto Antoni, si estoy pendiente de tu respuesta ya que tu eres el padre del codigo, resumiendo lo que busco que haga la Macro, (1) donde va la palabra "buscada" (2) busque en la "lista" y en las encontradas "ponga el formato de la celda "buscada" (3) y siga como tu codigo original (copiendo las "encontradas" en la columna siguiente Una cosa mas, si la lista de encontradas fuera larga, podrias modificar la segunda opcion del Box para que escoja si quiero seleccionar un rango o toda la columna. Es decir si escojo un rango es como esta el cogido, y si escojo la columna me permita colocar el cursor en la cabecera de la columna para rangear toda la columna. Gracias por su gran ayuda
  3. Estimado Vladief, me sale este error al ejecutar la Macro Se ha producido el error 1004 en de ejecucion Error definido por la aplicacion o el objet0o rangoPalabras.Offset(1, 0).Resize(rangoPalabras.Rows.Count - 1).Copy NOTA: QUIZE AGREGAR LA IMAGEN PARA QUE SE PRESENTE DEBAJO, PERO NO SE COMO HACERLO. ASI QUE AGREGUE EL ARCHIVO DE IMAGEN ERROR AL EJECUTAR MACRO.doc
  4. Es suficiente con color tamaño y negrita, se supone que esas características yo las pongo en la celda de las palabras a buscar y ese formato lo copia en los productos que coinciden en la lista, gracias, por tu ayuda
  5. Antoni, por favor realiza la modificacion que sugieres, gracias por tu tiempo
  6. Efectivamente funciona con el (*), una cosa mas quisiera que la MACRO copie en la lista el formato que yo pongo en la celda de busqueda. Osea si yo, en mi primera busqueda escribo LATEX con letra Azul y fondo Amarillo, copie el mismo formato en todas las celdas de la lista que contengan dicha palabra. Y si hago una segunda busqueda escribiendo ESMALTE con letra Roja y fondo Celeste, copie el mismo formato en los encontrados en la lista, Y asi sucesivamente cambie el formato en la CELDA DONDE SE ESCRIBE LA PALABRA BUSCADA, gracias por su ayuda
  7. El problema aparece, si a la lista agrego otro tipo de pintura como "LATEX ESPECIAL AMARILLO CLARO", Este producto tambien debe aparecer cuando ponga las dos palabras osea "LATEX" y "AMARILLO". Osea, lo quiero que haga la MACRO, es que de como resultado todos los productos que tengan las dos palabras buscadas. Por eso en la fila 16 para abajo que muestro como quiero el resultado, pongo las palabras buscadas las pongo en celdas separadas debajo de las cabeceras "buscada1" y "buscada2", ya que pense que se esa manera se pueda utilizas la funcion "AND" (para que aparezcan solo los productos que contengan las dos palabras). Estimados foristas, espero su valiosa ayuda
  8. Buenos dias, tengo una macro que busca una que coincida de una lista, pero necesito que busque 2 palabra (ver cuadro abajo) LA MACRO FUNCIONA ASI LISTA DE PINTURAS ENCONTRADOS BUSCADA1 ********************** ************ ********** LATEX BLANCO HUMO AMARILLO ESMATE BLANCO HUMO LATEX AMARILLO CLARO LATEX AMARILLO CLARO ESMALTE AMARILLO CLARO ESMALTE AMARILLO CLARO LATEX VERDE ESMERALDA ESMALTE VERDE ESMERALDA ************************************************* PERO NECESITO QUE FUNCIONE ASI LISTA DE PINTURAS ENCONTRADOS BUSCADA1 BUSCADA2 ********************** ************ ********** ********** LATEX BLANCO HUMO LATEX AMARILLO ESMATE BLANCO HUMO LATEX AMARILLO CLARO LATEX AMARILLO CLARO ESMALTE AMARILLO CLARO LATEX VERDE ESMERALDA ESMALTE VERDE ESMERALDA este es el codigo 'por Antoni » 29 Nov 2016 14:03 DEL FORO TODOEXCEL Sub BuscarPalabras() Dim palabra As Range Dim celda As Range Dim rangoPalabras As Range Dim rangoTexto As Range 'Proporcionar el rango de la palabra a buscar Set rangoPalabras = Application.InputBox(Prompt:="Seleccionar el rango de entrada de las palabras a buscar", _ Title:="Rango palabras", Type:=8) 'Proporcionar el rango del texto Set rangoTexto = Application.InputBox(Prompt:="Seleccionar el rango de entrada del texto donde se busca", _ Title:="Rango texto", Type:=8) 'Buscar en cada celda del texto For Each celda In rangoTexto 'Cada palabra For Each palabra In rangoPalabras If LCase(celda.Value) Like "*" & LCase(palabra.Value) & "*" Then celda.Offset(0, 1) = celda 'celda = "" Else End If Next palabra Next celda End Sub y aqui tienen el archivo, espero me ayuden con la modificacion a la MACRO para que busque 2 palabras MACRO QUE BUSCA PALABRA EN UNA LISTA.xls
  9. Macro Antonio, tu macro funciona pero he realizado la siguiente modiicacion para obtener celdas con fondo "Verde" con letras color "Rojo", lo que ha funcionado. Solo que para hacer la prueba de la MACRO primero tengo que seleccionar el bloque de datos cambiar el fondo de las celdas a color blanco y cambiar las letras a color negro (osea una especie de reseteo). Este reseteo se podra hacen con algun codigo.... Solo una pregunta mas de algo que me llama la atencion, porque en la columna "A" donde van los campos solo ha cambiado de color la letra a color rojo la primera fila (osea la palabra "campo 1", mientras que las filas inferiores no han cambiado de color. Este el el codigo modificado Const ColorVerde As Integer = 4 'VERDE Const ColorLetraRojo As Integer = 3 'VERDE Sub FondoVerdeLetraRoja() Application.ScreenUpdating = False filas = Range("A8").End(xlDown).Row columnas = Range("B7").End(xlToRight).Column Range(Cells(8, 2), Cells(filas, columnas)).Interior.ColorIndex = xlNone For x = 8 To filas For y = 2 To columnas If Cells(x, y) = 0 Then Cells(x, y).Interior.ColorIndex = ColorVerde Cells(x, y).Font.ColorIndex = ColorLetraRojo If y > 2 Then Cells(x, y - 1).Interior.ColorIndex = ColorVerde Cells(x, y - 1).Font.ColorIndex = ColorLetraRojo If y < columnas Then Cells(x, y + 1).Interior.ColorIndex = ColorVerde Cells(x, y + 1).Font.ColorIndex = ColorLetraRojo End If Next Next End Sub Muchas gracias por tu respuesta, saludos, JOHNMOR41
  10. Macro Antonio para colorear con rojo Macro Antonio quize cambiar el coloreado a color rojo, para esto cambie el nunero 16 por 3, OSEA escribi Const ColorGris As Integer = 3, pero no paso nada, se que el comando para poner una celda de color rojo es ActiveCell.Interior.ColorIndex = 3 , pero que cambios hay que hacer a tu macro para que en lugar de gris se coloree de rojo o de amarillo o cualquier otro color, saludos, JOHNMOR41
  11. EXCELENTE respuesta Macro Antonio, solo te pido una aclaracion, porque tu Macro comienza por Const Kolor As Double = 8421504 Entiendo que estas declarando una variable para el modulo, lo que no entiendo es "Kolor" esta palabra en una funcion del excel o que cosa es y como asi esta palabra llama o colorea las celdas. Muchas gracias por tu aclaracion, saludos, JOHNMOR41
×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 5112 personas - Aprender Excel - Total: 4.7 / 5