James Bond

Este es el resultado de la macro y abajo de esta imagen esta la macro y esta es la macro Sub ComprobarValor() Set datos = Range("f3").CurrentRegion With datos filas = .Rows.Count For i = 1 To filas numero = .Cells(i, 1) Select Case numero Case 1 To...

Solo cambia el F2 por la celda donde vas a poner le letra =+SI(O(F2="T",F2="D"),1,SI(F2="N",2,SI(F2="M",3,SI(F2="C",4,SI(F2="L",5,SI(F2="S",6,SI(F2="CH",8,SI(F2="P",9,SI(F2="R",0)))))))))

Este es el resultado de la macro que esta debajo de la imagen, sin importar cuantos renglones añadas o quites la macro se adaptara al cambio. y esta es la macro que buscas Sub copiar_filas() Set datos = Worksheets("nc").Range("m10").CurrentRegion...

Prueba con esta macro Sub copiar() Dim unicos As New Collection Set h2 = Worksheets("hoja2") Set datos = Range("a1").CurrentRegion h2.Cells.Clear With datos .Sort key1:=Range(.Columns(2).Address), order1:=xlAscending, Header:=True For j = 2 To...

Prueba con esta macro, donde estés cuando corras la macro dará formato a la fila comprendida entre b y e Sub dar_formato() fila = ActiveCell.Row: Range("b" & fila).Resize(1, 4).Select With Selection .Font.Name = "Arial" .Font.Size = 8...

Sin usar macros usa esta fórmula =EXTRAE(A1, HALLAR(" 66", A1, 1), 6) esto te dejara la tabla así, luego simplemente seleccionas los registros y ordenas

Prueba con esta macro, busca y elimina los registros que cumplan con el criterio que planteaste, cuando ya no hay ni uno te mostrara un mensaje. Sub buscayborra() Set datos = Range("a1").CurrentRegion With datos For i = 1 To .Rows.Count On Error...

Si lo que buscas es impedir que el usuario tecle en el combobox el dato a buscar hay dos maneras esta es una seleccionas matchentry y la pones tal cual aparece en el circulo rojo, esto impedirá que el usuario tecle el dato, nota los datos se...

Te vas a formato (ve el circulo y seleccionas personalizada, luego en tipo tecleas ddmmaa y listo la fecha aparece sin barras.

Prueba esta macro Sub armar_filas() For i = 1 To 5 Set datos = Range("a26").CurrentRegion: With datos filaUlt = .Rows.Count: .Rows(filaUlt + 1).Value = .Rows(1).Value End With Next i End Sub