Dante Amor

Intenta con la siguiente fórmula matricial =INDICE($E$2:$E$24,MAX(($A$2:$A$24=$J$2&$J$4&$I6)*($G$2:$G$24=K.ESIMO.MAYOR(($A$2:$A$24=$J$2&$J$4&$I6)*($G$2:$G$24),1))*FILA($E$2:$E$24)-1))

Prueba lo siguiente: Sub celda() MsgBox "Fila= " & Selection.TopLeftCell.Row & " Columna= " & Selection.TopLeftCell.Column End Sub

Sub BorrarImg() Dim img As Shape For Each img In ActiveSheet.Shapes If Not Intersect(img.TopLeftCell, img.BottomRightCell, ActiveCell) Is Nothing Then img.Delete End If Next End Sub

Prueba lo siguiente Pon el código en los eventos de la hoja donde quieres que suceda. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim m As Boolean If Target.Locked Then m = False Else m = True...

Asumiendo tus datos en las columnas A, B y C. Los resultados en las columnas E, F y G: Sub duplicar_registros() Dim c As Range, v As Variant Application.ScreenUpdating = False For Each c In Range("A2", Range("A" & Rows.Count).End(3)) For Each v In...

Que obviamente se van almacenando en la hoja nombrada "REGISTROS" Tienes un botón para pasar los datos a la hoja "REGISTROS", puedes poner aquí ese código. Tienes un evento Activate o Initialize, puedes poner aquí ese código.

Puedes poner aquí tu código. No está el enlace a tu archivo.

Prueba lo siguiente Sub goal() ' ' goal Macro Range("M12").GoalSeek goal:=Range("A3").value, ChangingCell:=Range("L1") End Sub

Prueba lo siguiente: Sub Macro1() Range("AO22:AV196").Replace What:="0", Replacement:="", LookAt:=xlWhole, _ SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False End Sub

Prueba la siguiente: =espacios(izquierda(A2, encontrar("(",A2) - 1))