Aneudys Martinez

Usa remplazar ctrl + b Y le das remplazar todos y listo

Lo puedes hace de la siguiente manera Crea una hoja con el nombre compilado Y tu hoja multa semanal renombrala a multa SUB GUARDAR ( ) Sheets("SALIDAS"). Visible = xlSheetVisible 'ESTA PARTE La hace visible para copiar los datos Sheets("COMPILADO")....

valor = ComboBox1.Value Set busca = Sheets("Socios").Range("B2:B10000").Find(valor, LookIn:=xlValues, lookat:=xlWhole) If Not busca Is Nothing Then busca.select TextBox27 = ActiveCell.Offset(0, 1) TextBox2.Value = ActiveCell.Offset(0, 2)...

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

A ver si te silve estés Enviar desde excel correo con información desde celdas

A mi me funciona mira mi ejemplo En mi caso solo le dije remplaza los 00 y lo remplazo todos sin eliminarme el ultimo cero

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

Yo lo tengo de la siguiente manera Un textbox de busqueda Un listbox que muestra los resultado HojaX es la hoa tuja osea hoja1 o hoja2 no se cual es la tuya c:c Es la columna donde se encuentra los datos a buscar Nombre de tu hoja es donde esta la...

En el botón buscar por esta macro 10 = sera la fila donde comienza tu base de datos Deberás poner la misma cartidad de textbox que tienes de campos en el userform para que te cargue todos los datos en los textbox Nombre de tu userform = aquí va el...

Ponerlo de uso compartido en una carpeta compartida en la red