jrgces

Eso se debe a la precisión numérica máxima de Excel, que es de 15 dígitos (puedes comprobarlo en el tema de la ayuda "Especificaciones y límites de Excel" -> "Especificaciones de cálculos". La única solución (hasta donde yo sé) para evitar que se...

Si el rango combinado está en una sola fila, quizás te sirva esto: http://www.jrgc.es/vba01.htm#vba01_10 Pero tendrías que modificar el código para que trabajara con el rango que necesites.

Probablemente no tengas establecida la referencia a la librería de ADO. Para verificarlo, entra en el editor de VBA (Alt F11), y seleccionar Herramientas -> Referencias. Todas las referencias activas se encuentran al principio de la lista y marcadas....

Estando en el editor de VBA selecciona el botón, pulsa F4 y, en la propiedad ControTipText, escribe lo que quieras que se muestre al pasar el ratón por encima.

No sé si será posible "resetear" el contador que parece tener Excel para asignarles un nombre por defecto a los objetos gráficos, pero en cualquier caso esto no debería ser ningún problema puesto que siempre es posible nombrar el objeto gráfico como...

Suponiendo que la hoja se llamara Hoja1 y el cuadro de texto TextBox1, la instrucción sería: Worksheets("Hoja1").Cells([C65536].End(xlUp).Row + 1, 3).Value = Me.TextBox1.Value

- Selecciona la columna completa (vamos a suponer que fuera la A) - Haz Datos -> Validación - En Permitir selecciona Personalizada - En fórmula pon: =O(A1=10,A1=20,A1=30) Puedes establecer un mensaje que aparezca al seleccionar una celda de la...

Pon el siguiente código en el módulo del formulario: Private Sub UserForm_Initialize() Dim hWnd As Long Dim lngWstyle As Long 'Localizar la ventana del formulario hWnd = FindWindow(vbNullString, Me.Caption) lngWstyle = GetWindowLong(hWnd, GWL_STYLE)...

Esta fórmula parece que funciona, pero pruébala a fondo antes de darla por buena: =SI(DIASEM(HOY())=2;HOY();HOY()-DIASEM(HOY()-2))

Suponiendo que la hoja fuera Hoja1, la celda A1, que el cuadro de texto se llamara TextBox1 y el botón CommandButton1, el código podría ser: Private Sub CommandButton1_Click() With Worksheets("Hoja1") 'La hoja donde está la celda Select Case...