James Bond

Prueba así Private Sub CommandButton1_Click() If CheckBox1 And CheckBox2 = False Then macro1 If CheckBox1 = False And CheckBox2 Then macro2 If CheckBox1 And CheckBox2 Then MsgBox ("bye") If CheckBox1 = False And CheckBox2 = False Then MsgBox...

Puedes usar la propiedad rowsource con la limitante de que si agregas nuevos registros tendrás que cambiar la referencia cada que agregues un nuevo dato, también esta la propiedad listbox1. List=matriz donde los datos se cargan a través de una matriz...

Prueba con esta macro Sub rellenar() Range("J7:J237613") = "=randbetween(1,1000)" Range("J7:J237613").Value = Range("J7:J237613").Value End Sub Sub copiar_unicos() Set H1 = Worksheets("A").Range("J7:J237613") Set H2 =...

Es un poco laborioso lo que pides, basado en el archivo que subiste esta es la macro que ocupas, coloca la tabla transpuesta a partir de la columna j Option Base 1 Sub EJECUTA() Application.ScreenUpdating = False INICIO = Time CONCATENAR CREA_TABLA...

Hasta ahora me da un error 1004 cuando tengo protegida la hoja y quiero borrar un renglón, fuera de eso funciona bien

La macro que ocupas es esta Sub ocultar_columnas() valor = Sheets("datos").Range("i2") Rows("4:1004").Hidden = True If valor = 1 Then Rows("4:47").Hidden = False If valor >= 2 Then minimo = 48 * (valor - 1) maximo = minimo + 47 rango = Str(minimo) &...

Cada función que programas solo sirve para dar un resultado si quieres que te de un segundo resultado necesitas o una macro o una segunda función, te paso la segunda función, que cuenta color de la celda y relleno Function...

En la imagen están las formulasy los resultados de las mismas

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...

Entonces solo resta que evalúes mi respuesta