Jump to content

okaribupi

Members
  • Content Count

    10
  • Joined

  • Last visited

About okaribupi

  • Rank
    Member

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Hola Leopoldo no funciona, creo que el operador Operator:=xlOr solo funciona con dos criterios en el mismo campo pero no con tres. Adjunto el fichero haber si te facilito el asunto. prueba.xlsm
  2. Hola estoy intentando filtrar utilizando dos campos. El primero en la columna 11 donde tengo códigos postales. Una vez seleccionadas las filas con este campo y con un codigo postal en concreto quiero que seleccione de la columna 7 las calles que empiezan con a con b y con c . Consigo hacerlo con el codigo postal y dos calles por ejemplo con a y con b pero no con c. Utilizo lo siguiente para el codigo postal 00001 y para las calles que empiezan por a y b y funciona: range("A1).AutoFilter Field:=11, Criteria1:="00001", Operator:=xlAnd Range("A1").AutoFilter Field:=7, Criteria1:="a*", Operator:=xlOr, Criteria2:="b*" Pero utilizo este codigo para el codigo postal 00001 y para las calles que empiezan por a, b y c y no funciona : range("A1).AutoFilter Field:=11, Criteria1:="00001", Operator:=xlAnd Range("A1").AutoFilter Field:=7, Criteria1:=Array("a*", "b*", "c*"), Operator:=xlFilterValues No se donde puede estar el problema, me podeis ayudar. Gracias, saludos.-
  3. Lo voy a probar tambien completando el tuyo para aprender. Muchas gracias tambien.
  4. Si me ha funcionado perfecto, lo he incorporado hace un momento y de maravilla. Muchas gracias.
  5. Hola Leopoldo disculpa mi ignorancia pero hace poco tiempo que he empezado a aprender y aunque entiendo para que sirve el Do While no soy capaz de estructurar las instrucciones que debo introducir. Lo he intentado. No queria molestarte mas pero no he sabido. Te agradeceria una ultima ayudita.
  6. Gracias Leopoldo, funciona perfectamente. Pero una duda, en este caso se que es hasta la fila 12000 pero y si dependiendo de la hoja esta fila variara. ¿Como podriamos decirle que llegue hasta la ultima fila vacia?. Gracias por todo. Agradecido.
  7. Hola, he hecho una macro para que a traves de un filtro seleccione toda una serie de filas de una hoja las corte y las pegue en otra hoja del mismo libro. Esto ha hecho que en la hoja donde he cortado los datos me quede desde la fila 2 (la fila 1 son los titulos) hasta la fila 12000 vacias y a partir de la fila 12001 empiezan las filas otra vez con datos. Queria continuar la macro de forma que estas filas desde la 2 hasta la 12000 que estan vacias se eliminaran pero soy incapaz de conseguirlo. Estaria muy agradecido si me echarais una mano. Gracias, saludos
  8. Hola, te agradezco el archivo. Seguiré intentando completar el mio. Pero me sirve. Gracias por tu ayuda. Saludos.
  9. Hola, soy nuevo en estas lides y estoy atascado. Se trata de que a través de un botón en una de las hojas abra un InputBox donde podamos indicar un numero de registro a buscar y localice ese numero de registro (ojo, no hay dos registros iguales) de entre muchos números de registro que se van a encontrar siempre en la misma columna pero el numero de filas van a ir variando, puesto que se trata de localizar ese registro, seleccionar la fila donde se encuentra y eliminar la fila entera. He conseguido con el código abajo indicado que esto lo realice. El problema es que cuando pongo un numero de registro que no existe, es decir que no se encuentra en ninguna de las filas de esa columna donde figuran numeros de registro me da error. Me gustaria que si esto sucede saliera un MsgBox indicando que ese numero de registro no existe y al darle aceptar volviera al InputBox para indicarle un nuevo registro a buscar. Agradeceria vuestra ayuda. Gracias anticipadas. Private Sub CommandButton1_Click() Dim datos As String datos = InputBox("que dato buscamos???") Cells.Find(What:=datos, After:=ActiveCell, LookIn:=xlValues, lookat:= _ xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ , SearchFormat:=False).Activate Selection.EntireRow.Select Selection.Interior.Color = 255 resultado = MsgBox("¿Seguro que quiere borrar registro Nº Póliza?", vbYesNo, "CONFIRMAR BORRADO") If resultado = vbYes Then Selection.EntireRow.Delete End If If resultado = vbNo Then Close End If End Sub
  10. Hola, estoy intentando aprender vba para excel y aunque me gusta currarmelo y ser autodidacta también se reconocer que hay ocasiones que una ayudita se agradece y mucho. Y quien sabe si algún día podría ser yo quien pudiera echar una mano.
×
×
  • Create New...

Important Information

Privacy Policy

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