toldeman

El error seguramente sea porque haces referencia a la columna 3 en un rango donde solo hay dos columnas (A Y B).

Prueba asignando la función mid a una variable y luego pasala al campo o txtbox: Variable = Mid(Year(Date), 3, 2)

Selecciona el rango, pestaña revisar y le das a proteger.

Prueba asi: On Error Resume Next Cells.Find(What:=Me.CboMateriales.Text, After:=ActiveCell, LookIn:= _ xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _ xlNext, MatchCase:=False, SearchFormat:=False).Activate

Prueba esta macro: Sub repetir() Dim ul, x As Long x = 0 ul = Hoja1.Range("G" & Rows.Count).End(xlUp).Row For Each celda In Hoja1.Range("G1:G" & ul) x = x + 1 If celda = "Ahorros" Then Hoja2.Range("B" & x) = 32 Next End Sub En cuanto a la otra...

Seleccionas por ejemplo la celda donde dice pupila de la hoja h2 y la asignas el nombre de ojos, y asi sucesivamente con las demás celdas. Luego te vas a la hoja h1 y si por ejemplo la lista de ojos, nariz y boca la tienes en a1, en la celda que...

Prueba esta formula: SI(ESERROR(ENCONTRAR("españa";A3));SUSTITUIR(A3;"españa";"");"España")

Prueba esta macro Sub borrarfilas() Dim ul As Long ul = Range("A" & Rows.Count).End(xlUp).Row For i = ul To 1 Step -1 If Cells(i, 1) = "bueno" And Cells(i, 2) = "bonito" _ Then Rows(i).Delete End If Next End Sub

Prueba esta formula cambiando los rangos y la constante 3: =SUMAPRODUCTO(--(LARGO(A1:A3)=3))

Mandame un pequeño ejemplo de lo que quieres hacer e intentare ayudarte.

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