Dante Amor

Te anexo la macro que se tiene que actualizar Public valor Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False Dim c, h, b, u If Target.Count > 1 Then Exit Sub If Target.Row = 1 Then Exit Sub If Not...

En la pregunta pusiste descendente (mayor a menor), pero en la imagen están ordenados de menor a mayor, entonces no sé cuál es el que necesitas. Te anexo 2 macros, ocupa la que necesites. Descendente: Sub OrdenarDescendente() 'Por.Dante Amor u =...

H o l a: No puedes hacer una fórmula en la celda C1 que ponga un resultado en la celda A1. Todas las fórmulas regresan el resultado en la misma celda donde tienes la fórmula. Si quieres el resultado en la celda A1 tendrás que poner la fórmula en la...

H o l a: No entendí muy bien cómo están las coordenadas de tu matriz. Puedes poner una imagen donde se vean las filas y las columnas de excel. O envíame tu archivo con el formulario. Mi correo [email protected] En el asunto del correo escribe tu...

H o l a: Te anexo la macro Sub CrearNombres() 'Por.Dante Amor For i = 1 To Range("A" & Rows.Count).End(xlUp).Row nombre = Cells(i, "A") ActiveWorkbook.Names.Add Name:=nombre, _ RefersTo:="='" & ActiveSheet.Name & "'!" & Range("B" & i & ":D" &...

H o l a: ¿Cómo se llama la hoja dónde están las filas? ¿Y en dónde quieres pegar la información? ¿Puedes poner otra imagen con un par de ejemplos de cómo quieres el resultado?

H o l a: Prueba con esta opción: Después de esta línea: .Subject = Range("a204").Value Pon esta: .SendUsingAccount = mensaje. Session. Accounts. Item(2) Cambia el 2 que está después de Item(2), por el número de cuenta El número de cuenta lo puedes...

H o l a: ¿En cuál columna tienes el importe?

H o l a: Pon la siguiente macro en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) 'Por.Dante Amor If Target.Count > 1000 Then Exit Sub If Target.Row < 14 Then Exit Sub If Not Intersect(Target, Range("L:M")) Is Nothing Then...

h o l a: ¿Qué mensaje de error te aparece?