James Bond

Modifica tu macro con las líneas resaltadas en la imagen, la primera instrucción te da el valor indice de la hoja que este activa, la variable aplicara en este caso tienen 5 opciones que dependerán del valor del la variable indice, los 1 representan...

1.- Copias la información a otra hoja o en la misma hoja en otro rango de celdas 2.- Seleccionas menu-datos-quitar duplicados y quitas la palomita de la columna donde estén los alumnos y das aceptar 3.- Realizar la suma y listo te debe aparecer algo...

Prueba con esta macro Sub copiar() On Error Resume Next Set H1 = Worksheets("datos") BuscarHoja = (Worksheets("Datos").Name <> "") If BuscarHoja = False Then Sheets.Add before:=Sheets(1) ActiveSheet.Name = "Datos" Set H1 = Worksheets("datos") On...

Por fórmula es así

Prueba con esta macro Private Sub CommandButton1_Click() Set datos = Range("a4").CurrentRegion With datos r = .Rows.Count Set campos = .Rows(r + 1).Resize(1, 9) With campos .Cells(1, 1).Value = TextBox1.Value .Cells(1, 2).Value = TextBox6.Value...

Si no existe te marcara un error, yo tengo un código similar a lo que quieres hacer, si la hoja no existe el mismo error mandara llamar a un programa de creación de hojas. On Error Resume Next Ext = (Worksheets("Datos_Resumen").Name <> "") If...

Sub mostrar() Columns("B:NI").Hidden = True ' oculta un rango de columnas desde la b hasta la NI Range(Columns(Range("A7").Value * 31 - 29), Columns(Range("A7").Value * 31 + 1)).Hidden = False 'esta instruccion oculta un rango de columnas que van a...

Prueba esta macro tardo 3 segundos en procesar 14000 filas y 9 columnas. Sub quita_espacios() INICIO = Time Set DATOS = Range("A1").CurrentRegion MATRIZ = DATOS With DATOS R = .Rows.Count: C = .Columns.Count For I = 1 To R For J = 1 To C MATRIZ(I, J)...

Este es el resultado de la macro y esta es la macro lo de la doble fórmula con, y von ; si va a ser un problema ya que esta maquina esta diseñada para poner como primera opción ; si la PC tiene un formato diferente colocara la segunda opción, no se...

Usa la siguiente instrucción, el goto salta se ira directo a la línea salta sin importar las condiciones de validación y se ira directoa a ejecutar el código después del else que es donde esta la etiqueta salta: elseif... Then if ..... then -4...