toldeman

Suponiendo que tu macro empieza a poner los nombres de las hojas en la celda H4, prueba esta formula arrastrándola hacia abajo: =INDIRECTO(H4&"!"&"$A$2")

Pone esta formula en B12: =INDIRECTO("Hoja1!"&DIRECCION(8;FILA(A2))) Y en B13 esta otra y arrastras haci aabajo: =INDIRECTO("Hoja1!"&DIRECCION(8;FILA(A2)*2)) Un saludo. Nota: Cambia el nombre de la "hoja1!" por el nombre donde tengas tus datos

Si me envías un ejemplo intentare ayudarte.

Prueba este código dentro del evento click del botón. Sub copiar() ul = Range("H" & Rows.Count).End(xlUp).Row + 1 If [H100] = "" Then ul = 100 Range("H7:Q33").Copy Range("H" & ul + 26).Select Selection.PasteSpecial Paste:=xlPasteValues...

Prueba así en el evento que utilices para abrir el form Dim contra As Variant pass = "n" For i = 1 To 3 contra = InputBox("contraseña") If contra = pass Then UserForm1.Show: Exit Sub Next ActiveWorkbook.Close SaveChanges:=False

Prueba poniendo esto en el código de la hoja. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$A$1" Then Exit Sub [B1] = [B1] + Target.Value End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) [A1] = 0 End Sub

Prueba así: Dim ul As Long Dim rango As Range ul = Range("C" & Rows.Count).End(xlUp).Row Set rango = Range("C1:C" & ul) For Each celda In rango If celda = 0 Then celda.Value = celda.Offset(, -2).Value Next

Pprueba este código: [A1] = [A1] & " " & InputBox("Nombre")

Prueba esta formula: =SI(TEXTO(A1;"dddd")=B1;"Descanso";"Trabajor")

Prueba esta macro suponiendo que en la celda B1 digitas el numero que quieres que actúe en la serie. Sub consecutivo() For i = 1 To [B1] Cells(i, 1) = i Next End Sub