Aneudys Martinez

Este mi correo si quiere mandamelo y te le adapto una macro 1 - el imforme lo que en una hoja o en un userform 2 - la hoja en el mismo libro o libro nuevo Saludso

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 _ ,...

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...

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...

Quieres modificar el registro o eliminarlos por completo con todo y nombre Estas macro elimina la fila de la celda activa Sub EliminaFilas() 'Elimina filas de la celda activa ActiveCell.EntireRow.Delete End Sub Saludos no olvide valor si te silve...

Crea una carpeta compartida que le llegue a los usuario que van a trabajar con el archivo y al archivo dale compartir con varios usuario