Aneudys Martinez

Veo que tiene dos buscardores para cam, biarlo a textbox seria así var3 = textBox.value Cells.Find(What:=textBox.Value, After:=ActiveCell, LookIn:=xlFormulas, lookat:= _ xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ ,...

[email protected] este es mi correo déjame ver tu archivo y adaptar le una macro en correo detalla me lo que necesitas

Puedes prueba con estos Luego de que haga la primera búsqueda firstAddress = busqueda.Address 'definimos la primera busqueda Do ' para empesar el bucles busqueda.Select 'seleciona la busqueda If MsgBox("es el dato", vbYesNo) = vbYes Then 'si es yes...

sub pegar_col ( ) hoja1.Columns("A:A").Copy Destination:=hoja2.Range("f1") end sub Hoja1 es la donde esta la columna que quiere copiar Hoja2 es donde vas a pegar los datos de la columna Saludos no olive valorar la pregunta para cerrar si te silve

Con un textbox le dice la cantidad If TextBox = Empty Then TextBox = "1" End If for x = 1 to textbox tu macro de copiar next X Si no puedes pega la macro para adatarle la intrucion Si te silve no olvide valorar para cerrar la pregunta

Solo cambia las celda por las que quiere ponerle el nombre Este se guardar en la misma carpeta donde abras el libro Hoja1 es el nombre de tu hoja que vas a poner Sub pdf() ruta = ActiveWorkbook.Path & "\" Nombre = Range("a1").Value...

Lo que buscas en un informe por mes Y años o solo del año Y los del las hoja lo puede hacer con solo decir hoja1.select en el caso de que esa sea la hoja índice

En la opción de formato de celda elije personalizar Y digita estas forma. ##\/##\/#### Está forma cuando dígite 28102016 cuando le des enter cambiar a 28/10/2016 Recuerda valor si te silve para cerrar la pregunta

Selecciona el textbox o combobox osea cualquier control en la propiedades hay una opción que se llama tabindex esta opción define la secuencia de quien va primero y el que le sigue empieza en 0 como primer lugar Disculpa no poder manda una imagen es...

Sub vendedor_estrella() Set rango = Sheets("hoja1").Range("b2:d13") Set busca = rango.Find(Application.WorksheetFunction.Max(rango), LookIn:=xlValues, lookat:=xlWhole) If Not busca Is Nothing Then ubica = busca.Address busca.Select Range("g2").Value...