Macro para mostrar los 3 primeros de la fecha actual en combobox

H o l a: expertos

Necesito mostrar los 3 primeros años en el combobox.

Por ejemplo estamos año 2016

En el combobox debe mostrar 

2016
2017
2018

si estamos año 2017 automáticamente debe mostrar

2017
2018
2019

Muy agradecido!

Respuesta
1

Pon lo siguiente en tu formulario

Private Sub UserForm_Activate()
    ComboBox1. AddItem Year(Date)
    ComboBox1.AddItem Year(Date) + 1
    ComboBox1.AddItem Year(Date) + 2
End Sub

sal u dos

2 respuestas más de otros expertos

Respuesta
1

Tenes que cargarlo de esta forma:

fechaarch = Format(CDate(Date), "yyyy")
Me.ComboBox1.AddItem fechaarch
fechaarch = fechaarch + 1
Me.ComboBox1.AddItem fechaarch
fechaarch = fechaarch + 1
Me. ComboBox1. AddItem fechaarch

Ten encuenta en que momento cargas los datos al combobox

No te olvides de punt. Uar la respues. Ta

Gr acias

Respuesta
1 
añoActual = Year(Date)
añoActual = Year(Date())

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

¿Alguno tiene un programa de tpv hecho por access 2007

Quiero que me desarrollen una base de datos en Microsoft Access 2007 para un sistema TPV (Terminal Punto de Venta) orientado a un comercio minorista. El sistema debe ser muy completo, funcional y adaptable, permitiendo que yo pueda modificar...
3 respuestas

Como incrustar imagen en celda Excel con datos de Access 2013

Quisiera saber si es posible exportar datos de Access a Excel e incrustar automáticamente la imagen a la que hace referencia una url dentro de la tabla de Access. Tengo una tabla que contiene la dirección de una imagen dentro de carpetas de mi pc, y...
1 respuesta

Crear registro en formulario con datos de otro formulario

Tengo un pequeño problema: Tengo una tabla de Clientes con un formulario a través del cual introduzco nuevos clientes. Además tengo otra tabla de contactos con otro formulario asociado. En el formulario contactos voy introduciendo datos de posibles...
9 respuestas

Contar celdas que contengan ciertos caracteres

Espero puedan ayudarme, tengo un listado horizontal de 9 celdas, en las cuales contienen 6 tipos de identificación. A,C,D,1,2 y V Al final de esas columnas, necesito contar por ejemplo solo las A, C y 1. Ya lo intente, pero no puedo lograrlo, ¿Me...
1 respuesta

¿Extraer los caracteres que hay dentro del segundo paréntesis de un String? En Excel VBA

A tod@s! Tengo una arrray, y en una de las columnas tengo datos, como estos: y necesito encontrar estos caracteres... Ojo que puede haber más de dos "( )" en un String y siempre seria el ultimo "()" comenzando por el ultimo carácter del String. Os...
2 respuestas

¿Cómo convertir valores de una celda en sucesivas filas?

Habitualmente trabajo con Access, pero desde una oficina me han pasado un archivo de Excel donde en cada fila de una hoja se indican en la primera columna el número de caja y en la celda siguiente (segunda columna) todos los números de expediente que...
1 respuesta

Desproteger un rango de celdas en una hoja protegida

Tengo una aplicación donde en una hoja se ponen comentarios automáticos con una macro, pero como hay celdas donde hay fórmulas las tengo bloqueadas y ocultas para que no se borren por error al usarla, tengo puesto el Unprotect en la macro por que si...
11 respuestas

Cargar un rango de datos que tiene algunas filas y columnas vacías a un ListBox vba excel

Me gustaría poder seleccionar un rango de una hoja excel, por ej. Columnas B a I, las filas comenzaría en la 3 hasta final del rango no vacío de la columna C (que es el que contiene mayor numero de filas) y que ese rango se muestre en un ListBox de...
2 respuestas

Cuando ingresos los datos con código no los coloca donde deseo colocar los datos.

Código que extrae información de varios archivos de Excel desde una carpeta pero al colocar los datos los coloca varias filas mas abajo. Debe iniciar a colocar los datos en C6. La información la tiene que colocar dentro de una tabla que tiene...
2 respuestas

Macro para cortar un texto en 25 caracteres

Me ayudan a generar una macro que corte un texto que está en la celda A2 en 2 textos, el primer texto que lo ponga en la celda B2, no deberá cortar ninguna palabra deberá cortar el texto en máximo 25 caracteres y cortarlo en donde haya un blanco, el...
3 respuestas