James Bond

Prueba esta macro, solo cambia hoja1 por el nombre de la hoja donde estén tus datos. Option Base 1 Sub busca_PALABRAS() Dim matriz(3) As String Set HOJA = Worksheets("HOJA1").UsedRange matriz(1) = "TEXTO1" matriz(2) = "TEXTO2" matriz(3) = "TEXTO3"...

Te dejo una opción mejor a la del array si tienes más hojas tendrás que escribir el nombre en el array mi opción lee las pestañas y las carga en el combobox así lo único que tienes que hacer es crear la hoja y la macro la carga la siguiente vez que...

¿No te envía a la línea que genera el error?, lo que puedes hacer es crear una rutina en la macro a partir de la línea que marca el error y poner antes de ella on error goto resume next y despues esa linea on error goto 0 on error goto 0 por ejemplo...

Hay dos maneras de cargar los combobox y los listbox una usando Listbox1. Additem x, donde x es la celda a cargar y se usa un ciclo for La otra es un listbox1.rowsource="datos!" & rango, ya depende cual se adapte a tus necesidades. opcion 1 Private...

Prueba esta macro y comentas Sub buscar_reemplazar_colorear() Set DATOS = Range("b2").CurrentRegion Set lista = Range("av2").CurrentRegion MATRIZ = DATOS With lista For i = 1 To .Rows.Count numeros = .Cells(i, 1) cuenta =...

Prueba con esta macro y comentas Sub copiar_varias_veces() fecha_hoy = Date fecha_fin = CDate("31/12/" & Year(fecha_hoy)) dias = fecha_fin - fecha_hoy For i = 1 To dias If i = 1 Then fechad = fecha_fin If i > 1 Then fechad = fechad - 1 texto =...

Una forma sencilla de hacer la validación es por medio de un objeto collection, este validara cualquier dato que ingreses y si esta repetido te enviara un mensaje. Private Sub btn_guardar_Click() Dim UNICOS As New Collection Set DATOS =...

Este es un ejemplo de como se haría con macros Sub cambia_formato() Set datos = Worksheets("bdc raw data").Range("b4").CurrentRegion colreg = Range("b1").Column colnac = Range("p1").Column With datos For i = 4 To .Rows.Count fechanac = .Cells(i,...

No entendí cual de las 2 fechas quieres cambiar a iso, te dejo una pantalla de una macro ejemplo y la macro para que la ajustes a lo que ocupas Sub copiarycambiarformato() Set origen = Worksheets("hoja1").Range("a1").CurrentRegion Set destino =...

Primero tienes dos opciones para que te aparezca en automático al fecha al abrir el formulario, Activate o I nitialize, en cuanto a modificar la fecha por el usuario no puedes hacerlo a menos que quites las líneas del programa del evento Private Sub...