ejidense

Hola a todos, Estoy haciendo una macro para buscar valores en un libro de excel. Ahora mismo consigo que la macro busque el valor que quiero en un libro usando un inputbox, pero mi idea es buscar muchos valores seguidos, así que me gustaría saber como puedo hacer para que al introducir cada valor el inputbox se acepte solo, es decir, que el usuario no tenga que darle a aceptar en el inputbox. Saludos y gracias de antemano, Juan A.

Hola, Muchas gracias por responder. Lo cierto es que probe el código que publicaste pero no me funcionó. Al final lo solucioné de la siguiente manera: Sub Contanto_H() 'Declaración de Variables Dim i As Integer, j As Integer Dim plots As Integer, Marcadores As Integer ''''CREO UNA NUEVA HOJA LLAMADA COPIA EN LA QUE ESTÁ COPIADA LA PÁGINA SHEET INTEGRAMENTE Worksheets("Sheet1").Copy After:=Worksheets(1) Worksheets(2).Name = "Prueba" Worksheets("Prueba").Select ''''CUENTA EL NÚMERO DE PLOTS TOTAL plots = WorksheetFunction.CountA(ActiveSheet.Range("a2", ActiveSheet.Range("a2").End(xlDown))) ''''CUENTA EL NÚMERO DE MARCADORES TOTAL Marcadores = WorksheetFunction.CountA(ActiveSheet.Range("d1", ActiveSheet.Range("d1").End(xlToRight))) ''''CUENTA NÚMERO DE H POR PLOT For i = 2 To plots + 1 Worksheets("Prueba").Cells(i, 2).Value = Application.CountIf(Rows(i), "H") Next i Saludos y muchas gracias de nuevo.

Hola a todos, Recurro a este foro porque estoy intentando hacer una pequeña macro para unas actividades que tengo que realizar en el trabajo y soy muy muy novato en esto. El caso es que estoy haciendo una macro y me encuentro que cuando trato de hacer un bucle for next en el que incluyo un countif me da error, lo que me trae loco es que si no hago el bucle y sustituyo la variable i por la celda que quiero si me lo hace bien, pero al intentar hacer el bucle me da el error, y no tengo ni idea de que ocurre. La macro lo que pretende es contar el número de veces que aparece H por fila, y pone ese valor en la fila de la columna B que le corresponde. Alguien podría hecharle un vistazo por favor?? Muchas gracias de antemano. Este es el código que llevo hecho: Sub prueba() 'Declaración de Variables Dim i As Integer Dim plots As Integer 'Crea copia llamada Prueba y abre esa hoja Worksheets("Sheet1").Copy After:=Worksheets(1) Worksheets(2).Name = "Prueba" Worksheets("Prueba").Select 'Cuenta el número de plots que hay plots = WorksheetFunction.CountA(ActiveSheet.Range("a2", ActiveSheet.Range("a2").End(xlDown))) 'Número de H por plot For i = 2 To plots Worksheets("Prueba").Cells(i, 2).Value = Application.WorksheetFunction.CountIf(Worksheets("Prueba").Range("di", Worksheets("Prueba").Range("di").End(xlToRight)), "H") Next i End Sub

Hola chicos, Tal y como dice chencholf eso es lo que queria, aunque yo no me explique nada bien... Gracias por la bienvenida al foro y mil gracias a los dos por la ayuda. saludos

Hola a todos, Soy nuevo en esto del excel, y conozco muy pocas fórmulas etc, y necesitaría hacer lo siguiente: - En una celda tengo un valor determinado, por ejemplo 12 - Necesito que en una columna me lo descomponga en 12 celdas (en este caso), escribiendo en la primera 1 , en la segunda 2, en la tercera 3, etc. Adjunto un archivo excel muy simple para que sea más visual. Muchas gracias a todos por adelantado. Book1.xlsx