toldeman

Prueba esta macro: Sub rellenarserie() Dim rango As Range, ul As Long, i As Byte, x As Byte ul = Range("A" & Rows.Count).End(xlUp).Row Set rango = Range("A1:A" & ul) Do While i <> 50 i = i + 1 For Each celda In rango If celda = i Then i = i + 1 Next...

Prueba así: =indice(C1:C50;coincidir(max(B1:B50);B1:B50;0);)

Para izquierda: =izquierda(A1;hallar(",";A1)-1) Para derecha: =derecha(A1;largo(A1)-hallar(",";A1))

Prueba este código: Private Sub CommandButton1_Click() for i = 2 to Sheets.Count If Textbox1 = sheets(i) Then Textbox1 = "" ActiveSheet.Unprotect Sheets(i).Visible = True Sheets(i).Select UserForm2.Show Textbox1.SetFocus End If Next End Sub

Prueba esta formula: =espacios(extrae(sustituir($A1;" ";repetír(" ";largo($A1)));largo($A1)*(columna(A1)-1)+1;largo($A1)))

Hada. Date una vuelta por el otro foro, te deje tú archivo modificado.

Si los datos que introduces son numéricos prueba esta formula en formato condicional y adapta sus rangos a los tuyos.

Prueba este código: Sub busca() Dim rango As Range, buscado As Variant, cel As Variant Set rango = Range("A1:D10") buscado = InputBox("Que?") If IsNumeric(buscado) Then buscado = 1 * buscado For Each celda In rango If celda = buscado Then cel =...

Prueba así: ActiveCell = Cdbl(id)

Prueba así: Range("A1").Select Selection.Locked = True ActiveSheet. Protect