James Bond

Cuando quieras que la macro inluya los cambios que haces en tu información como añadir renglones usa la propiedad .currentregion así conforme agregues rengloes estos se incluirán en automático, checa la macro con las modificaciones, debe funcionar,...

Hay una opción y es la siguiente macro Private Sub Worksheet_Deactivate() nombre = "enero" If Hoja1.Name <> nombre Then Hoja1.Name = nombre End Sub Si alguien cambia el nombre de la hoja en cuanto cambie de hoja regresara el nombre de la hoja al...

Tu macro tiene un error aquí me marca error 91, variable de objeto o with no establecido, respecto a la ordenación estas son las instrucciones, solo añade estas líneas a después de la línea en negrita. Target.Offset(1, 0).Select Set ordena =...

¿Esto es lo que buscas? Inserta la macro en el modulo marcado por las líneas rojas de la foto, cada que tecles un numero con cantidades pares esta la macro lo separara y te posicionara en el siguiente renglón vacío. Private Sub...

La macro es la siguiente, si quieres la lista de colores busca en google colorindex, vba, list y hay vienen las imágenes de los colores y su clave sub cambia_color if range("a2")=range("b2") and range("c3")=true then range("a2").interior.colorindex=4...

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

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

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

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