jgirj

Sigue estas instrucciones CREA UN NUEVO LIBRO (recuerda que las acciones realizadas por macros no se pueden deshacer, y es mejor estar seguros de no arruinar tu libro.) En la hoja1 columna A pon el rótulo "código" y debajo pega los códigos. En la...

Es posible usando el editor de VBA: En el evento open del workbook coloca lo siguiente: Private Sub Workbook_Open() Set_Keys End Sub En el evento Before_Close del workbook coloca lo siguiente: Private Sub Workbook_BeforeClose(Cancel As Boolean)...

Si haces una "Trampita" podría funcionar. Crea un rango en el que por medio de una fórmula verifiques si tu valor cumple con ambas condiciones, usa una fórmula de este estilo: =Si(Y(RangoEvaluado=Criterio1;RangoEvaluado=Criterio2);1;0). Traslada la...

Ya te he enviado el ejemplo a tu correo.

Como ya te dije no soy muy hábil en este tema, esta es otra solución que encontré: Reemplaza lo que tenias en el módulo por esto: ActiveWorkbook.HasRoutingSlip = True With ActiveWorkbook.RoutingSlip .Delivery = xlOneAfterAnother .Recipients =...

En un Módulo coloca lo siguiente: Public Sub Guardar_Libro() Dim Nombre As String Nombre = InputBox("Entre el nombre con el que guardará su libro", "Guardar Como...") If Nombre = "" Then MsgBox "Nombre Invalido." & Chr(13) & "Su libro no se...

Esto puede ayudarte Sub GuardarLibro() Dim NombreArch as String NombreArch=Range("A1") & Range("N32")& ".Xls" ActiveWorkBook.SaveAs("C:\Ruta\" & NombreArch) End Sub

Esto puede ayudarte 'Este ejemplo trabaja sobre la base de un formulario con 3 combos 'En el Primero se despliega un nombre, en el segundo una direccón y en el tecero un telefono con correspondencia entre ellos Sub Actualizar_Combos() 'Debe llamarse...

Si lo que encesitas es borrar del portapapeles algo que ha sido puesto desde la misma instancia de excel basta con que uses Application.CutCopyMode = False pero si lo que quieres es borrar algo que viene de otra aplicación debes usar apis, te mustro...

Esto Puede Ayudarte Sub Agregar_Resultado() Dim Hoja As Worksheet Dim Encontrada As Integer Encontrada = 0 For Each Hoja In ActiveWorkbook.Worksheets If Mid(Hoja.Name, 1, 9) = "Resultado" Then Encontrada = Encontrada + 1 End If Next Hoja Encontrada =...