Jaime Flores

Jaime Flores

 México @jaimeflores4 desde - visto
Preguntar

Preguntas esperando respuesta

Actividad pública reciente

Ha preguntado en el tema en y en 2 temas más

Macro que ordene automáticamente mientras escribo

Tengo una macro que utilizo para ordenar lo que escribo pero tengo un par de detalles con ella. Lo primero es como lo muestra la imagen en las casillas A9, 10 y 11 se tiene que ordenar en A2, 3 y 4 pero no me las ordena de esa forma y la segunda es...
Sin respuestas
Ha valorado "Excelente" la respuesta

Corregir macro para que no escriba en filas especificas

respondió: Te dejo la nueva macro. Probala y me comentás. Sub copiarNvo() 'x Elsamatilde 'opcional: verifica que se esté seleccionando rango en A:C Sheets("PRODUCTOS").Select [A11].Select ActiveSheet.Unprotect Password:="contraseña" If Selection.Row = 1 Or...
Ha valorado "Excelente" la respuesta

Macro que copie La cantidad indicada

respondió: Luego de esta línea: filx = Range("A2").CurrentRegion.Rows.Count + 1 Reemplaza la que sigue por esta otra: Range("A" & ActiveCell.Row & ":C" & ActiveCell.Row).Copy Destination:=Range("A" & filx & ":A" & filx + [E2] - 1) Sdos. Elsa...
Ha valorado "Buena" la respuesta

Macro que repita la cantidad que se muestra en una celda

respondió: Prueba esta macro Sub copiar() copias = Range("e2") With Sheets("productos").Range("a2") .Resize(copias, 3).Value = .Resize(1, 3).Value End With End Sub solo tecleas el numero y la macro hara las copias requeridas
Ha valorado "Buena" la respuesta

Saber que porcentaje gana cada persona dependiendo a su inversión

respondió: Lo primero que yo hago dado el problema es asignar a cada uno el porcentaje de esas 20000 según su participación por lo que queda así: 1- 7000 € es el 35% 2- 3000 € es el 15% 3 - 8000 € es el 40 % 4 - 2000 € es el 10% 20000-----100 7000----- X...
Ha valorado "Excelente" la respuesta

Problema con macro para forzar escritura en mayúsculas

respondió: Revisa si lo siguiente te ayuda: Private Sub worksheet_change(ByVal Target As Range) Dim c As Range ' On Error GoTo enEvent Application.EnableEvents = False For Each c In Target If Not c.HasFormula And c.Value <> "" Then If Not IsNumeric(c.Value) And...
Ha valorado "Excelente" la respuesta

Macro para descontar mes y mensualidades

respondió: Hice unos ajustes a tu macro, revisa si lo siguiente es lo que necesitas: Sub Pagar() Dim fila As Long With Sheets("MESES SIN INTERESES") fila = ActiveCell.Row If ActiveCell.Column = 7 Then If ActiveCell.Value > 0 Then .Unprotect...
Ha valorado "Excelente" la respuesta

Macro para descontar mensualmente una cantidad

respondió: Lo qué entiendo es que de acuerdo a los datos en la fila 2 el valor de la casilla amarilla $3,780.00 menos el valor de la casilla roja $210.00 el resultado en la casilla azul sera $3,570.00 es así como desea el resultado? Lo de la casilla que de la...