Rafael Hernández

En la aplicación Excel xlsm que tengo en desarrollo he dispuesto un formulario de búsqueda en el que he incrustado un ListBox con 16 columnas y un ancho de 1313 puntos que desborda el ancho de los monitores de algunos usuarios de ella -aquellos que...

Mediante el código: Me.Txt_Fecha = Application.WorksheetFunction.VLookup(ID, Sheets("EXPEDIENTES_COMUNES").Range("A:BI"), 7, 0) ... Me traigo al cuadro de texto "Txt_Fecha" de un UserForm el dato de una fecha contenido en una determinada celda de una...

Como consecuencia y resultado de la aplicación de una fórmula en la celda B1 (por ejemplo: A1*0.90) en la celda B1 me aparece un dato numérico, por ejemplo: 98,9978, ¿Cómo puedo 'transformar' ese dato para que no sea el resultado de la fórmula sino...

Justo a raíz de la asignación de letras aceleradoras a 12 procedimientos Sub de otras tantas OpcionButton de un Userform que después no convenciéndome procedí a eliminar, he notado una ralentización incomprensible en la ejecución del código asociado...

En el evento Initialize de un UserForm2 he dispuesto que éste tome datos de otro anterior -UserForm1- que permanece abierto en segundo plano. El caso es que si cierro el UserForm2 y modifico datos en el UserForm1, si vuelvo a abrir el UserForm2 este...

Mediante el código que insertaré al final hago que al recibir el foco un control, básicamente, se ejecute una macro que se trae a él el valor que se encuentra en determinado rango de determinada hoja -la hoja de índice (7) del libro. El problema que...

Este sencillo código: If Len(USUARIO) < 2 Then MsgBox "Este campo exige que se informen DOS caracteres.", vbInformation. Cancel = True Exit Sub End If que me funciona correctamente si lo asocio al evento Exit de un TextBox -cancela el proceso si no...

Sé que por defecto un ListBox admite un máximo de 10 columnas. Pero también sé que se le pueden añadir más de 10 por código. El caso es que para 10 columnas me funciona más que correctamente -por lo que no quisiera cambiarlo-, el siguiente código...

Mediante este código: Sub ELIMINAR_Click() Dim Cuenta As Integer Dim Pregunta As Byte Dim Filas As Integer Dim Rango As Range Dim i As Integer Dim ID As String Dim FilaEncontrada As Integer Cuenta = Me.ListBox1.ListCount If Cuenta = 0 Then Exit Sub...

En un archivo xlms en el que desde un UserForm dispongo se ejecuten y copien determinados datos --procedentes del mismo UserForm o derivados de cálculos con datos obrantes en otras hojas del mismo libro- y ello en la hoja que permanece visible en...