James Bond

Prueba con esta macro Sub copiar_especial() With Range("q7").CurrentRegion col = .Columns.Count FILAS = .Rows.Count Set datos = Range("q7").Resize(FILAS, col) datos.Copy: Range("A7").PasteSpecial xlPasteValues End With End Sub

Para contar las filas con datos la instrucción para macros es filas = Range("a:a").CurrentRegion.Rows.Count Range("a:a").Resize(filas).EntireRow.Insert Range("a:a").Rows(filas + 1).Resize(filas + 1).Select La primera instrucción cuenta las filas con...

Prueba esta macro Sub ordenar() Set datos = Range("a6").CurrentRegion With datos .Sort key1:=Range(.Columns(3).Address), order1:=xlAscending, Header:=xlYes End With Set datos = Nothing End Sub

Prueba con esta macro Sub buscar_palabra() Set DATOS = Range("a1").CurrentRegion PALABRA = UCase(InputBox("TECLEA UN NOMBRE A COPIAR")) If PALABRA = Empty Then End With DATOS FILAS = .Rows.Count For I = 1 To FILAS NOMBRE = UCase(.Cells(I, 1)) On...

Este es el resultado de la sig. fórmula =+EXTRAE(D2, ENCONTRAR("mm", D2, 1)-2,4) que supongo es lo que buscas.

Prueba esta macro, ordena los datos por la celda M, luego filtra los valores de la misma columna y los busca separando 5 filas al encontrarlos Sub agregar_lineas() Dim unicos As New Collection Set datos = Range("m:m").CurrentRegion With datos filas =...

Prueba esta macro, conforme tecleas los datos en los textbox se van capturando Private Sub TextBox1_AfterUpdate() Set DATOS = Range("A1").CurrentRegion With DATOS PEDIDO = Val(TextBox1.Text) FILAS = .Rows.Count: COL = .Columns.Count Set DATOS =...

Solo haz estas modificaciones a tu código, el problema se da cunado tecleas en el combobox en automático busca cada letra que tecles y si no la encuentra salta el error que te aparece. Private Sub ComboBox3_Change() INDICE = ComboBox3.ListIndex If...

usa esta formula =DERECHA(C3,2)*1000, solo cambia el 2 por la cantidad de decimales que manejes

Aplica las fórmulas que ves en la imagen y listo tienes la edad actual a partir del RFC