Rafael Vera

Rafael Vera

 19,0K puntos @rafaelvera desde - visto
Preguntar

Respuestas

Respuesta en a

No me manda aviso el cerrar el libro

Aquí te dejo un ejemplo de cómo podrías implementar esta funcionalidad: Sub VerificarCopia() Dim libro As Workbook Dim rutaArchivo As String ' Ruta del archivo que quieres verificar rutaArchivo = "C:\Ruta\Del\Archivo.xlsx" On Error Resume Next Set...
Respuesta en y en 1 temas más a

Cambio de columnas para insertar mes

Un ejemplo para cambiar las columnas en las tablas y también para mostrar un mensaje de aviso si existe una copia del libro: Sub CambiarColumnas() Dim libroOriginal As Workbook Dim libroCopia As Workbook Dim rutaCopia As String Dim mes As String '...
Respuesta en y en 1 temas más a

Tengo una macro para envío masivo de correos con adjuntos, necesito indicarle que envíe 2 archivos, mismo nombre, diferente ext

Aquí tienes el código actualizado para enviar dos archivos adjuntos con el mismo nombre pero diferente extensión Sub EnviarMails2() Dim App As Object Dim Mail As Object Dim Adjunto1 As String Dim Adjunto2 As String Sheets("Mails").Select For i = 2 To...

Estilos de Word Macro para sacar listado y seleccionar

Aquí tienes una macro en Word que te permitirá obtener un listado de los estilos aplicados en un documento junto con el número de veces que se repiten: Sub ListarEstilos() Dim docOrigen As Document Dim docDestino As Document Dim tabla As Table Dim...

Como puedo proteger reglas de validación?

Puedes seguir los siguientes pasos: Protege la hoja de cálculo: Primero, protege la hoja de cálculo para evitar modificaciones no autorizadas. Ve a la pestaña "Revisar" en la cinta de opciones y selecciona "Proteger hoja". Puedes establecer una...
Respuesta en a

Hacer tabla de horas y saber a que hora debo empezar para poder hacer las horas estipuladas

Supongo así tu tabla Aquí tienes el código: Sub CrearTablaHoras() Dim ws As Worksheet Dim horaInicio As Date Dim horaDesayuno As Date Dim horaAlmuerzo As Date Dim horaFinal As Date Dim tiempoTotal As Date Dim tiempoRestante As Date ' Establecer la...
Respuesta en y en 1 temas más a

Imprimir en un formato único, información de varias hojas

Puedes utilizar el siguiente código: Sub IMPRIMECTAPDF() Dim wsDesprendible As Worksheet Dim wsDatos As Worksheet Dim r As Long Dim n As Long Application.ScreenUpdating = False ' Desproteger la hoja Desprendible Set wsDesprendible =...
Respuesta en y en 1 temas más a

Como ir de un textbox a otro que yo designe

Private Sub CommandButton1_Click() If TextBox1.Value = "" Then TextBox2.SetFocus Else ActiveSheet.Unprotect Range("AO8") = TextBox1.Value Range("AO5:AP15").PrintOut Copies:=1 Range("AO6") = "" ActiveSheet.Protect End If End Sub
Respuesta en y en 4 temas más a

Insertar usuario de windows en celdas

El código lo tengo de la siguiente manera: Sub InsertarUsuario() Dim oSel As Object Dim oDir As Object Dim oHoja As Object Dim lCol As Long Dim uSuario As String ' Obtener el nombre de usuario de Windows uSuario = Environ("USERNAME") ' Cambiar por la...
Respuesta en y en 1 temas más a

Rango dinámico de celdas para una macro

Aquí tienes el código actualizado Sub macro() Dim sh1 As Worksheet, sh2 As Worksheet Dim celda As Range, lastRow As Range Application.ScreenUpdating = False Set sh1 = Sheets("Valores") Set sh2 = Sheets("Resultados") sh1.Select Set celda = ActiveCell...