James Bond

Prueba estos cambios Set datos = Range("b2").CurrentRegion With ActiveSheet .Cells(12, 2).Select Selection.EntireRow.Insert .Cells(12, 1) = datos.Rows.Count + 1 .Cells(12, 2) = TextBox1 End With TextBox1 = Empty 'borra los datos ingresados en la caja...

Según veo la fecha que intentas crear queda en formato texto en vez de formato fecha, la macro que ves abajo hace la conversión a formato fecha (cdate) y luego le aplico un formato "dd/mm/yyyy" con eso debe de quedar. With ActiveCell .Offset(0, 1) =...

¿Entonces lo que quieres es algo así?, si la respuesta es si busca la macro después de esta pantalla solo cambia B3 por la celda donde comienzan tus datos. Sub concatenar() Dim unicos As New Collection Set datos = Range("b3").CurrentRegion With datos...

Trata con esta macro solo cambia B2 por la celda donde comienzan tus datos. Sub borrar() For Each hoja In Worksheets Set h = Worksheets(hoja.Name) Set datos = h.Range("b2").CurrentRegion With datos filas = .Rows.Count If filas = 1 Then End contar =...

Tienes mal la primera línea y te faltan dos if checa la macro, thisworkbook cuando especificas la página con un worksheets es redundante, la macro debe saber que si no hay datos entonces los debe escribir en la línea 1 si hay datos entonces que los...

Hay 2 formas una es =+Extraer(E4, encontrar(9, E4), 1) donde pones el valor que quieres extraer dentro de la fórmula en este caso 9 y la otra =+EXTRAER(E4, ENCONTRAR(F2, E4), 1) donde tecleas en la celda F2 el valor a buscar (sigue siendo 9)

Solo crea un botón y añade el siguiente código, te hará un registro acumulativo en la hoja 2, es decir buscara la ultima fila de datos y una añadirá el registro después de esta. Private Sub CommandButton1_Click() Set h2 = Worksheets("hoja2") Set base...

Por fórmula no se si exista la forma porque básicamente implica insertar renglones, copiar y pegar, por macro se puede hacer pero por fórmula lo dudo.

En vez de asignar las validaciones a un botón asignalas individualmente a cada checkbox por ejemplo: (también puedes usar el botón optionbutton este por default solo te deja seleccionar solo una opción al vez) Private Sub CheckBox1_Click() If...

solo cambia la linea range("a3").select por activesheet.range("a3").select con eso debe funcionar.