Jump to content

pedrosilv

Members
  • Content Count

    233
  • Joined

  • Last visited

About pedrosilv

  • Rank
    Advanced Member
  • Birthday 09/16/1990

Recent Profile Visitors

The recent visitors block is disabled and is not being shown to other users.

  1. Muchas gracias por la información Antony. Saludos cordiales
  2. Buen día a todos. Acudo a ustedes para solicitar su apoyo en lo siguiente. Creé una función que me calcula un valor llamado "Azimut". Esta función necesita de 4 parámetros o valores, los mismos que requiero para calcular otra variable que se llama "Distancia". Lo que necesito es que al momento de llamar la función "Azimut" en cualquier celda, automáticamente pegue el valor de la "Distancia" en la columna a la par derecha. Ejemplo, si ejecuto la función "Azimut" en la celda "D6", el valor de la "Distancia" que se pegue en la celda "E6". La función "Azimut" es esta: Public Function Azimut(X0, Y0, X1, Y1) Pi = 4 * Atn(1) If (Y1 - Y0) = 0 And (X1 - X0) < 0 Then Azimut = 270 ElseIf (Y1 - Y0) = 0 And (X1 - X0) > 0 Then Azimut = 90 ElseIf (Y1 - Y0) = 0 And (X1 - X0) = 0 Then Azimut = 0 End If If (Y1 - Y0) <> 0 Then Azimut = Atn((X1 - X0) / (Y1 - Y0)) * 180 / Pi If (Y1 - Y0) < 0 Then Azimut = Azimut + 180 If (Y1 - Y0) > 0 And (X1 - X0) < 0 Then Azimut = Azimut + 360 End If End Function Para calcular la variable "Distancia", se usaría ésta fórmula: Distancia = Sqr((X1 - X0) ^ 2 + (Y1 - Y0) ^ 2) Adjunto un archivo ejemplo, para ser un poco más explícito de lo que acá indique, y desde ya, agradezco cualquier ayuda que me puedan brindar. Saludos cordiales Función Azimut.xlsm
  3. Buen día estimado foristas: Es un gusto saludarles por este medio a través del cual siempre me han apoyado en mejorar o corregir algunas macros que utilizo en mi trabajo. Y hoy tengo un error en una macro que no he podido solucionar, por lo que acudo a ustedes para saber si pueden ayudarme en esta tarea. El asunto va así. Tengo un archivo con varias hojas, y quisiera imprimir ciertas hojas, de acuerdo al valor que obtengo en una celda. Por ejemplo si en la celda C3 de la hoja INICIO hay un valor de 1, entonces deseo imprimir las Hoja2, Hoja3 y Hoja10. Si ese valor cambia a 2, cambiarían las hojas a imprimir. Con esta premisa, estoy usando la siguiente macro, pero no he logrado hacerla funcionar. Sub Impr() Application.ScreenUpdating = False T1 = Hoja2.Range("B2:G17") T2 = Hoja3.Range("B6:H11") T3 = Hoja4.Range("D5:J16") T4 = Hoja5.Range("A1:B17") T5 = Hoja6.Range("F2:N18") T6 = Hoja7.Range("G2:L14") T7 = Hoja8.Range("D2:E16") T8 = Hoja9.Range("G1:I17") T9 = Hoja10.Range("E5:G17") Var = Hoja1.Range("C3").Value Select Case Var Case 1: Sheets(Array(T1, T2, T9)).Select Case 2: Sheets(Array(T1, T2, T3, T4, T9)).Select Case 3: Sheets(Array(T1, T2, T5, T6, T9)).Select Case Else: Sheets(Array(T1, T2, T7, T8, T9)).Select End Select Hoja1.Activate Application.PrintCommunication = False Application.ScreenUpdating = False End Sub Además de imprimir esas hojas deseo que las mismas se publiquen en un solo archivo PDF, pero en esto aún no tengo idea de cómo hacerlo. Si pudieran darme sus sugerencias se los agradecería mucho. De antemano, agradezco sus observaciones y apoyo. Saludos cordiales Impresión.xls
  4. Muchisimas gracias Antoni, muy amable Me ha servido grandemente tu ayuda. Saludos cordiales
  5. Buena noche: Es un gusto saludarles por este medio. El motivo es solicitar su apoyo en lo siguiente: Necesito una macro que se ejecute al cambiar el valor de una celda entre el rango A1:A10. Por ejemplo, si cambio el valor de la celda A1, que se borre la información contenida en el rango B1:D1, o si cambio el valor de la celda A5, que se borre los datos que se encuentran en el rango B5:D5. Considero que debería iniciarse así: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A1:A10")) Is Nothing Then 'En este apartado es donde no sé como indicar a Excel que borre las celdas contiguas a la fila que se cambió End If End Sub Desde ya, agradezco cualquier ayuda que puedan brindarme.
  6. Woow. Nunca había escuchado de Power Query, gracias por tocar otras formas de obtener similares resultados, aunque ni idea cómo operaron las tablas. Saludos
  7. Buena noche a todos: Quiero agradecer el apoyo de todos, por ayudarme a solventar el inconveniente que tenía. Gracias por las sugerencias Silvia y johnmpl, me queda profundizar más en las soluciones brindadas, y creo que combinaré la propuesta de Silvia para buscar los valores más altos, y la fórmula proporcionada por johnmpl para los promedios, solo para evitar el uso de fórmulas matriciales. Me llama la atención la forma en que johnmpl utiliza la función buscar, así como las demás fórmulas. Saludos y nuevamente, muchas gracias por todo. Doy por solucionado el tema
  8. Que tal Héctor: Muchas gracias por la sugerencia y el apoyo. Veré como funciona lo que me enviaste y te comento. Saludos
  9. Buen día: Saludos estimados foristas: Acudo a ustedes para solicitar su valioso apoyo, en lo siguiente: Estoy trabajando con varios grupos de datos, los cuales están apilados unos tras otros, y deseo obtener los valores más altos de cada grupo. En la columna "A" van apilados los diferentes grupos, y los valores de los elementos que integran cada grupo se encuentran en la columna "B". La cantidad de valores a elegir por cada grupo los coloco en la primera fila, al iniciar cada grupo, y éste va en la columna "C". Finalmente, en la columna "D" deseo que se vayan anotando los elementos más altos elegidos por cada grupo, ordenados de mayor a menor, y es acá donde radica mi problema, ya que no encuentro la, o las fórmulas que me permitan encontrar la cantidad de elementos más altos por cada grupo, dado que el tamaño de cada grupo es variable, así como la cantidad de elementos que se deben elegir por cada grupo. Si logro pasar dicho inconveniente, deseo obtener el promedio de los valores más altos elegidos por cada grupo, el cual va en la columna "E". Mi problema acá, es que no encuentro la fórmula que ceo utilizar para indicar a excel el rango variable para utilizar posteriormente la fórmula Promedio. Adjunto archivo donde indico lo que deseo obtener, y ejemplifico el resultado que debería obtener. Desde ya agradezco su atención, y el apoyo que puedan brindarme. Saludos cordiales Valores más altos.xlsx
  10. Muchísimas gracias Antoni, muy amable por compartir tu tiempo y tus conocimientos. Saludos cordiales
  11. Buena tarde, es un gusto saludarles nuevamente. Acudo a solicitar su apoyo, dado que no he logrado que una macro que tengo, realice lo que necesito. Resulta que necesito que tengo un archivo con dos hojas: INICIO y GUARDAR. En la fila 4 de la hoja INICIO deseo incluir diferentes valores, los que posteriormente, deseo que se copien y peguen en la hoja GUARDAR, sin embargo, necesito que previo a guardar, la macro verifique que la información no haya sido guardada previamente. Para ello, incluyo un valor en la celda F1 ó A4 de la hoja INICIO, y deberá comprobar que éste número no se encuentre en ninguna celda de la columna A de la hoja GUARDAR. Si la macro detecta que ya había sido guardada con anterioridad, entonces deberá sobreescribir la información en la fila correspondiente. Si la macro detecta que no se ha guardado con anterioridad, entonces debe pegar los valores en la primer fila vacía que se encuentre en la columna A de la Hoja Guardar. Anexo un archivo de muestra donde incluyo la macro que estoy trabajando pero que no logro que funcione. Si me pudieran ayudar, se los agradecería mucho. Saludos cordiales copiarypegar.xls
  12. Por cierto, había trabajado con fórmulas lógicas, pero jamás lo había visto de esa forma . Gracias por esa lección. Saludos nuevamente
  13. Muchas Gracias por tu aporte Johnmpl: Sin duda alguna, se pueden hacer las cosas de diversas maneras. Los códigos tendré que leerlos detenidamente. Muy amable a los 2 por apoyarme en éste proyecto. Saludos
  14. Ya revisé el archivo, y había un error en el ingreso de la información en la hoja BASE. Muchas gracias Leopoldo
  15. Leo, ya fui probando la tremenda Macro, y con los datos del ejemplo me ha funcionado muy bien. Estoy tratando de entender los códigos que escribiste y anote a la par lo que fui entendiendo y no se si está bien. No se si estoy mal, pero entiendo que la macro se adapta a una Base dinámica, no así, la eliminación de filas de la hoja FILTRO. Y es que al incrementar datos en la hoja Base, se copian los datos a la hoja FILTRO, pero me sale un mensaje "La combinación de celdas solo conserva el valor superior izquierdo y descarta el resto de valores". Habrá forma de quitar ese mensaje? ya que cuando le doy "Aceptar" la macro corre. Luego surge otro inconveniente, ya que el Total que aparece en números (final de la columna C de la hoja FILTRO) no es la misma que aparece en el texto "El área total será de ..." Anexo nuevamente el archivo para que puedas comprenderme mejor. Y disulpas por preguntar tanto, y requerir a cada rato tu apoyo. Saludos Copia de Tabla_Reporte_LBV.xlsm
×
×
  • Create New...

Important Information

Privacy Policy