James Bond

Prueba esta macro, recorre las hojas del libro, busca las tablas y las ordena por orden descendente en la columna A, solo adáptala a tus necesidades. Sub ordena_tablas() Dim tbl As ListObject For Each nhoja In Worksheets Set h1 =...

Lo que pides no es posible por esta simple razón no hay en las propiedades del textbox en formularios la alineación vertical no esta soportada lo mejor que puedes utilizar es el función autosize o bien aumentar el numero de la letra hasta que quepa...

Prueba esta macro Sub compara_columnas() Set datos = Range("a1").CurrentRegion With datos filas = .Rows.Count For i = 1 To filas cadena = Right(.Cells(i, 1), 4) cadena2 = Right(.Cells(i, 2), 4) If cadena <> cadena2 Or cadena2 = 0 Then...

Tienes desactivada en las opciones de autocorrección incluir nuevas filas y columnas, solo entra a las opciones de excel y en opciones de autocorrecion palomeas incluir nuevas filas y columnas y listo ya tienes la solución

Private Sub CommandButton3_Click() Set h1 = Worksheets("packing") Set h2 = Worksheets("report") Set origen = h2.Range("a7").CurrentRegion Set destino = h1.Range("a7:e26") With destino .ClearContents With origen: .Columns(5).Copy: End With...

´Prueba con esta macro Sub copiar() Set origen = Range("a27").CurrentRegion Set destino = Range("a38").CurrentRegion With origen valor = .Cells(1, 1): valor2 = .Cells(1, 2): valor3 = .Cells(1, 3) End With With destino filas = .Rows.Count: col =...

Como sugerencia las versiones de office de la 2007 en delante traen un complemento descargable gratis para proteger el acceso y los derechos de autor hay tu puedes definir quien puede o no puede ver la informacion, si puede o no modificarla o...

Usa esta macro Sub insertar_filas() Dim unicos As New Collection Set datos = Range("a1").CurrentRegion With datos For i = 1 To .Rows.Count numero = .Cells(i, 1) On Error Resume Next unicos.Add numero, CStr(numero) On Error GoTo 0 Next i For j = 1 To...

Por eventos por ejemplo change, beforeupdate o afterupdate El primero cada vez que tecles algo en un textbox correra la macro puede dar resultados no deseados El ultimo activa la macro en cuanto termines de teclear y des enter o cambies de campo...

Prueba con esta macro Sub celdas_combinadas() Set datos = Range("a1").CurrentRegion With datos filas = .Rows.Count .Columns(2).Formula = "=left(" & .Columns(1).Address & ",3)" cuenta = WorksheetFunction.CountIf(.Columns(2), "trm") Range("d1") =...