Aneudys Martinez

No soy muy Bueno en macro pero puedo ayudar de esta manera Saludo si te silve no olvide valorar para finalizar la pregunta

Lo puedes conseguir así en el botón Private Sub CommandButton1_Click() Sheets("nombre tu hoja que vas a proteger"). Unprotect "tuclave" AQUÍ TU MACRO DE COPIAR LOS DATOS a la hoja Sheets("nombre tu hoja que vas a proteger"). Protect "tuclave" SUB END...

Mi macro guardad la hoja y conviene en pdf y luego la envía por outlook En nombre se lo da de una celda y todos los datos en están en celda Sub enviar_correo() 'aneudys "pushyman" Application.DisplayAlerts = False ruta = ActiveWorkbook.Path & "\" mio...

Aquí la macro Sub abrir_fichero_si_existe() Dim RUTA As String Dim Archivo As String Range("A1").Select RUTA = "C:\Users\Terminal\Documents\" uf = Range("A65536").End(xlUp).Row For a = 1 To uf Archivo = RUTA & ActiveCell.Value & ".pdf" Set fso =...

Sub enviar_correo_outlook() 'aneudys ¨PUSHYMAN¨ Application.DisplayAlerts = False ruta = ActiveWorkbook.Path & "\" mio = ActiveWorkbook.Name cliente = Range("D5").Value correo = "[email protected]" nombre = ped & "_" & cliente & "##" &...

Mi macro crea un pdf de mi hoja con el nombre del cliente y la fecha y la envía vía outlook Modifícala a tu gusto Sub enviar_correo_outlook() 'aneudys ¨PUSHYMAN¨ Application.DisplayAlerts = False ruta = ActiveWorkbook.Path & "\" mio =...

En el evento Initialize del userform agrega estas línea aquí están los dos Private Sub UserForm_Initialize() With ComboBox1 .AddItem "pendiente" .AddItem "completo" End With End Sub en el evento change del combobox Private Sub ComboBox1_Change()...

Yo lo tengo de la siguiente manera Mi macro seleccionas las columna que que le indico y me la pega en una hoja nueva con el nombre que le doy cuando me lo pide y me pega desde la columna "A" hasta pegar todas la que elegí C:C Asi selecionas la...

Cargar imagen a un userform En el botón agregar imagen Este código On Error Resume Next ArchivoIMG = Application.GetOpenFilename("Imágenes jpg,*.jpg,Imágenes bmp,*.bmp", 0, "Seleccionar Imágen para Reegistro de Clientes") fotografia.Picture =...

Usa la fórmula extraer =derecha(celda donde estan los datos;cantida de digitos necesitas ) en espanol la funcion seria =derecha(a1;10) 54111552187946 = 1552187946 5434891522786580 = 1522786580 54111527851542 = 1527851542