Oziel Gomes

Juntando informacion aqui e alli, llegue a esta macro: Sub borrartodo() Dim Resp As Byte Resp = MsgBox("Deseas borrar los datos?", _ vbQuestion + vbYesNo, "ATENCIÓN") If Resp = vbYes Then MsgBox "Se eligió continuar...", vbExclamation, "CONTINUAR"...

1 respuesta

Responder

Default en combobox excel

respondió: Podes dejar como valor predeterminado desde la propiedad Value del control, al momento de dibujarlo y asignarle el rango de valores posibles. También si luego tu formulario tiene un botón que limpia todos los controles para un nuevo ingreso, podés...

1 respuesta

Responder

Mensaje de seguridad ActiveX al reproducir videos wmp en Excel

Encontré la respuesta: 1. Tecla (Windows + R) > Escriba (Regedit). 2. Busque por: HKEY_CURRENT_USER\Software\Microsoft\VBA\Security Puede que no encuentres el valor "Security". Con el botón derecho > Nuevo > Clave > Escribir (Security). En el...

1 respuesta

Responder

Quitar el Mensaje Inicialización de Control Activex

respondió: Prueba a poner en la ejecución de la macro al principio: Application.DisplayAlerts = False al final lo pasas a Application.DisplayAlerts = True De todas formas es posible que no se quiten porque los avisos de seguridad igual que el de activaar las...

1 respuesta

Responder

Tengo un error en excel entre versiones 32 / 64 bits en el VBA.

respondió:

Es tal como comenta Icue (solo respondo porque me aparece como consulta recomendada). Todas las funciones deben ser declaradas con la expresión PtrSafe Por ej: Declare PtrSafe Function GetActiveWindow Lib "user32" () As Long En el link recomendado de...

2 respuestas

Responder

Mostrar filas en Excel ingresando una contraseña

Me gustaría ocultar filas y que para acceder al contenido, sea necesario poner una contraseña en el Form, para poder visualizar el contenido (filas).

Sin respuestas

Responder

Macro para transformar la primera letra de cada palabra, en mayúscula dentro de la hoja.

respondió: Prueba con: Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub Target.Value = WorksheetFunction.Proper(Target.Value) End Sub Saludos_

1 respuesta

Responder