Jump to content

ubimur

Members
  • Content Count

    21
  • Joined

  • Last visited

About ubimur

  • Rank
    Member

Converted

  • Campos
    ;

Recent Profile Visitors

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

  1. Buena noche, Saben a que se debe el error del sistema &H80004005 (-2147467259). Error no especificado. NO me deja guardar nada en ese libro, los de mas funcionan bien.
  2. Muchas gracias, funciona muy bien. Pero en ese libro me sale el siguiente error: error del sistema &H80004005 (-2147467259). Error no especificado Despues se abren cuatro ventanas y no me deja guardar el libro. Saben como se puede solucionar?.
  3. Macro Antonio, Gracias por contestar tan pronto. La mire y funciona, pero como se puede hacer para que se ejecute en las demas hojas. Gracias
  4. Yo tengo esta macro y le coloque los criterios que necesito, pero no la he podido aplicar. Public Function INVERSION(EMA, EPIP) Select Case EMA Case 0.4 To 0.499 Select Case EPIP Case 0 To 1: INVERSION = "rojo" Case 1.01 To 1.49: INVERSION = "rojo" Case 1.5 To 1.99: INVERSION = "gris" Case 2 To 2.49: INVERSION = "rosado" Case 2.5 To 2.99: INVERSION = "amarillo" Case 3 To 3.49: INVERSION = "blanco" Case 3.5 To 3.99: INVERSION = "fucsia" Case 4 To 10: INVERSION = "fucsia" End Select Case 0.5 To 0.55 Select Case EPIP Case 0 To 1: INVERSION = "rojo" Case 1.01 To 1.49: INVERSION = "gris" Case 1.5 To 1.99: INVERSION = "rosado" Case 2 To 2.49: INVERSION = "amarillo" Case 2.5 To 2.99: INVERSION = "amarillo" Case 3 To 3.49: INVERSION = "blanco" Case 3.5 To 3.99: INVERSION = "blanco" Case 4 To 10: INVERSION = "fucsia" End Select Case 0.5501 To 0.6 Select Case EPIP Case 0 To 1: INVERSION = "rojo" Case 1.01 To 1.49: INVERSION = "gris" Case 1.5 To 1.99: INVERSION = "amarillo" Case 2 To 2.49: INVERSION = "amarillo" Case 2.5 To 2.99: INVERSION = "blanco" Case 3 To 3.49: INVERSION = "fucsia" Case 3.5 To 3.99: INVERSION = "azul claro" Case 4 To 10: INVERSION = "azul oscuro" End Select Case 0.601 To 0.65 Select Case EPIP Case 0 To 1: INVERSION = "rojo" Case 1.01 To 1.49: INVERSION = "gris" Case 1.5 To 1.99: INVERSION = "amarillo" Case 2 To 2.49: INVERSION = "blanco" Case 2.5 To 2.99: INVERSION = "fucsia" Case 3 To 3.49: INVERSION = "fucsia" Case 3.5 To 3.99: INVERSION = "azul oscuro" Case 4 To 10: INVERSION = "verde oscuro" End Select Case 0.6501 To 0.7 Select Case EPIP Case 0 To 1: INVERSION = "rojo" Case 1.01 To 1.49: INVERSION = "gris" Case 1.5 To 1.99: INVERSION = "amarilla" Case 2 To 2.49: INVERSION = "fucsia" Case 2.5 To 2.99: INVERSION = "azul claro" Case 3 To 3.49: INVERSION = "azul oscuro" Case 3.5 To 3.99: INVERSION = "verde oscuro" Case 4 To 10: INVERSION = "morado" End Select Case 0.701 To 0.75 Select Case EPIP Case 0 To 1: INVERSION = "rojo" Case 1.01 To 1.49: INVERSION = "rosado" Case 1.5 To 1.99: INVERSION = "blanco" Case 2 To 2.49: INVERSION = "fucsia" Case 2.5 To 2.99: INVERSION = "azul oscuro" Case 3 To 3.49: INVERSION = "verde oscuro" Case 3.5 To 3.99: INVERSION = "morado" Case 4 To 10: INVERSION = "verde claro" End Select Case 0.7501 To 0.8 Select Case EPIP Case 0 To 1: INVERSION = "rojo" Case 1.01 To 1.49: INVERSION = "rosado" Case 1.5 To 1.99: INVERSION = "blanco" Case 2 To 2.49: INVERSION = "azul claro" Case 2.5 To 2.99: INVERSION = "azul oscuro" Case 3 To 3.49: INVERSION = "morado" Case 3.5 To 3.99: INVERSION = "verde claro" Case 4 To 10: INVERSION = "verde claro" End Select Case 0.8 To 1 Select Case EPIP Case 0 To 1: INVERSION = "rojo" Case 1.01 To 1.49: INVERSION = "rosado" Case 1.5 To 1.99: INVERSION = "blanco" Case 2 To 2.49: INVERSION = "azul claro" Case 2.5 To 2.99: INVERSION = "verde oscuro" Case 3 To 3.49: INVERSION = "verde claro" Case 3.5 To 3.99: INVERSION = "verde claro" Case 4 To 10: INVERSION = "verde claro" End Select End Function
  5. Buen día. Quiero hacer una macro que cumpla con ciertos requerimientos: ejemplo, si el valor de B2 esta entre 40% a 49% y c2 esta entre 0 a 1; entonces D2= rojo En el archivo hay dos tablas una de colores donde están los criterios que se deben cumplir para establecer el valor de la celda D (TABLA DE COLORES) y la otra es donde agregan los datos. La macro se debe ejecutar en diferentes hojas según se cumpla con los criterios establecidos y siempre se utilizaran las columnas B,C y D. En D siempre se coloca la respuesta. Agradezco de antemano todas sus ayudas y opiniones. Gracias. PORCENTAJE.xlsx
  6. Max2005 Buen día, se me presento un inconveniente. Cada vez que se ejecuta la macro, los datos se repiten en la parte de abajo. Si la ejecuto 3 veces tres veces aparecen los datos. Disculpa tan molestia, me podrías ayudar por favor. datos_Max1.xlsm
  7. Max2005, eso es justo lo que necesitaba. Mil gracias por tu ayuda, solucionaste mi problema.
  8. Hola Max2005, gracias por tu ayuda. ya mi el archivo, este copia los de octubre y solo dos del mes de septiembre. Yo quiero que me aparezcan el orden de las fechas y los de octubre están mas arriba que los dos de septiembre. De todas maneras, es un avance a lo que ya tenia, gracias. En el ejemplo coloque solo dos meses, pero se van a trabajar con todos los doce meses.
  9. Esta macro me sirve para un solo meses, mas no se como adaptarla para que corra en todos los meses. Sub GER30() 'busca "ger30" copia y pega Sheets("sept").Select 'obtiene la última fila con datos de la columna b ufila = Range("b" & Rows.Count).End(xlUp).Row 'obtiene el número de columna que representa la letra L col = Range("b2").Column k = 3 For i = 2 To ufila ' recorre toda la columna hasta la última celda con datos If Cells(i, col) = "GER30" Then Sheets("datos").Range("A" & k) = Sheets("sept").Range("A" & i) Sheets("datos").Range("B" & k) = Sheets("sept").Range("F" & i) Sheets("datos").Range("C" & k) = Sheets("sept").Range("D" & i) Sheets("datos").Range("D" & k) = Sheets("sept").Range("E" & i) Sheets("datos").Range("F" & k) = Sheets("sept").Range("I" & i) k = k + 1 End If Next 'va al siguiente registro Sheets("datos").Select End Sub He estado varios dias intentando hacer eso, mas no he podido. Mil gracias a todas las personas que me ayuden.
  10. Hola a todos y de antemano, Muchas gracias por la ayuda que me pueden brindar. Quiero alimentar la hoja datos, con la información que hay en las otras dos hojas. En la hoja septiembre y octubre, hay información resaltada en amarillo que quiero pasar en orden por fecha de entrada. Ejemplo: En hoja septiembre, hay varios pares de divisas GER30, NZDUSD, AUDNZD.... quiero pasar las columnas resaltadas a la hoja datos, pero en el orden que corresponden en cuanto a la fecha y divisa (ger30 a ger30, NZDUSD A NZDUSD y a si sucesivamente). FECHA PAR POSICION STOP PIP W/L VALUE COMISION PROFIT 15/09/2016 0:33 AUDCHF Se 97,6 42,8 1 0,01 -0,06 4,36 16/09/2016 7:17 GER30 buy 50 -37,9 -1 2 0 -85,17 16/09/2016 7:36 GER30 Se 15 -30,1 -1 2 0 -67,62 16/09/2016 9:50 GER30 Se 10,8 -34,6 -1 2 0 -77,66 16/09/2016 7:15 GER30 Se 15 -21,6 -1 1 0 -24,26 GER30 fecha op stop pip profit 15/09/2016 0:33 1 97,6 42,8 4,36 16/09/2016 7:17 -1 50 -37,9 -85,17 16/09/2016 7:36 -1 15 -30,1 -67,62 16/09/2016 9:50 -1 10,8 -34,6 -77,66 16/09/2016 7:15 -1 15 -21,6 -24,26 Básicamente seria así. Cada vez que se digite información en las hojas de los meses, esta alimente automáticamente a la hoja datos en orden de fecha. Tengo una macro, pero solo funciona para pasar la información de un mes, en el otro no funciona. Agradezco toda la colaboración que me puedan dar, ya que tengo tiempo intentando y no he podido hacerlo. gracias. datos.xlsx
  11. Hola a todos y de antemano, Muchas gracias por la ayuda que me pueden brindar. Quiero alimentar la hoja datos, con la información que hay en las otras dos hojas. En la hoja septiembre y octubre, hay información resaltada en amarillo que quiero pasar en orden por fecha de entrada. Ejemplo: En hoja septiembre, hay varios pares de divisas GER30, NZDUSD, AUDNZD.... quiero pasar las columnas resaltadas a la hoja datos, pero en el orden que corresponden en cuanto a la fecha y divisa (ger30 a ger30, NZDUSD A NZDUSD y a si sucesivamente). FECHA PAR POSICION STOP PIP W/L VALUE COMISION PROFIT 15/09/2016 0:33 AUDCHF Se 97,6 42,8 1 0,01 -0,06 4,36 16/09/2016 7:17 GER30 buy 50 -37,9 -1 2 0 -85,17 16/09/2016 7:36 GER30 Se 15 -30,1 -1 2 0 -67,62 16/09/2016 9:50 GER30 Se 10,8 -34,6 -1 2 0 -77,66 16/09/2016 7:15 GER30 Se 15 -21,6 -1 1 0 -24,26 GER30 fecha op stop pip profit 15/09/2016 0:33 1 97,6 42,8 4,36 16/09/2016 7:17 -1 50 -37,9 -85,17 16/09/2016 7:36 -1 15 -30,1 -67,62 16/09/2016 9:50 -1 10,8 -34,6 -77,66 16/09/2016 7:15 -1 15 -21,6 -24,26 Básicamente seria así. Cada vez que se digite información en la hoja de los meses, esta alimente automáticamente a la hoja datos en orden de fecha. Agradezco toda la colaboracion que me puedan dar, ya que tengo tiempo intentando y no he podido hacerlo. gracias. datos.xlsx
  12. Señores luis teran y johnmpl son lo máximo, muchísimas gracias por toda su ayuda.
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png