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.