James Bond

Por macro es así Sub nombrar() valor = Worksheets("hoja1").Range("a1") Worksheets("hoja2").Range("a1:d5").Name = valor End Sub

Puedes guardar el valor de la celda como una variable fija en excel con esta instrucción range("j7").name="celda" Sin importar cuantas filas o cuantos columnas insertes una vez que selecciones del menu el rango celda este te enviara a donde este ese...

No me queda claro lo que quieres aun asi te paso un ejemplo La macro esta hecha para trabajar con todo el rango con datos de la columna b2, (c2 es solo una referencia), la macro te dira que ocupa cada celda si un numero, un texto o una formula Sub...

Prueba esta macro Private Sub Worksheet_SelectionChange(ByVal Target As Range) nombre = Range("a1") If IsEmpty(nombre) = True Then End On Error Resume Next existe = (Worksheets(nombre).Name <> "") On Error GoTo 0 If existe = True Then...

Lo de la pestaña vertical no lo recuerdo yo tengo varios libros con un menu como este

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