Luis Mondelo

Escribe esta fórmula en G1 y luego la arrastras hacia abajo: =si(izquierda(f1;2)="no";a1;"") No olvides finalizar la consulta

Te paso mi idea: Vamos a dividir el proceso en dos partes: a)Esta primera parte la anotaremos en una macro normal y solo programaremos esta primera parte para que se pare. b) Esta segunda la ejecutaremos mediante el evento change de la hoja en...

Esta sería la macro de tu botón: (Como no has dicho desde que celda partimos en la columna A, en mi ejemplo tomo como punto de partida la celda A1 para hacer la combinación. Private Sub CommandButton1_Click() filas = TextBox1.Value Range("a1",...

Te mando la solución, nos imaginamos que tenemos esos números en las celdas A1, B1 y C1 y los juntamos en la celda D1. Tienes que escribir esta fórmula en la celda D1 =TEXTO(A1;"00")&TEXTO(B1;"00")&TEXTO(C1;"00") no olvides finalizar la consulta

Dado que esa macro la hice yo, te mando tu solución: Copia este evento change dentro del objeto hoja que estás tratando y cuando modifiques cualquier celda de la columna B de dicha hoja, se autoejecutará la macro para realizar el proeceso. Private...

Esta es la macro que tienes que poner en el evento click de tu combobox1 Pero antes tienes que hacer algo muy importante que descubrí en tus datos: Todas la celdas de la columna B de la hoja1 tienen un retorno de carro al final, lo que hace imposible...

Prueba con esta línea: Range(Cells(ActiveCell. Row, ActiveCell. Column), Cells(Cells(65000, ActiveCell. Column).End(xlUp). Row, ActiveCell. Column)).Select no olvides finalizar la consulta

Te mando mi ejemplo: Con esta macro primero nos pedirá el dato que buscamos para buscarlo en la columna A desde A1 hasta A1000. Si lo encuentra nos devolverá un mensaje diciendo en qué celda se encuentra y además esa celda se queda seleccionada. Sub...

Esta es la línea de código que necesitas: ActiveCell.Formula = "='menú principal'!b34" No olvides finalizar la consulta

Te mando mi solución, sigue mis instrucciones: -Posiciónate en la primera celda de esa columna y después ejecuta esta macro: Sub ejemplo() 'por luismondelo Do While ActiveCell.Value <> "" If UCase(ActiveCell.Value) = "NO" Then...