Jump to content

dorgelis

Members
  • Posts

    204
  • Joined

  • Last visited

About dorgelis

  • Birthday 11/28/1978

Converted

  • Campos
    ;

Recent Profile Visitors

880 profile views

dorgelis's Achievements

  1. Re: No se que formula usar: Toldeman amigo, millll gracias jajajajj es exacto lo que necesito, jajaj me funciono el clavo, que dios te bendiga por tu aporte amigo, saludos desde Venezuela, con esto doy por cerrado el tema.
  2. Que tal amigos, mi inquietud es la siguiente: Tengo una lista de con varios departamentos estos se repiten en varias celdas, pero lo que necesito es que me de un total de departamentos: ejemplo hogar decoracion hogar lenceria dama dama lenceria hogar halloween Resultado seria "5" que el resultado me omita los repetidos solo necesito unicos valores y me de un total en este caso existen solo cinco departamentos, Espero me sepa explicar, espero amigos foreros me ayuden. Gracias de antemano.
  3. Amigo roro gracias por tu respuesta, fue bien acertada, ahora bien yo necesito colocarle al userform una lista desplegable que se llama Hoteles, es decir, ya esta lista esta existe, seria en otra hoja, donde diga el nombre del hotel y la ciudad, como hago yo para que dentro de userform yo coloque un numero o codigo y este asociado a esa base de datos. Añado ejemplo, (Es como un buscarv) pero dentro del userform.
  4. Hola amigos Feliz Año nuevo a todos los foreros, la presente es para solicitarle una ayudita, estoy en un nuevo proyecto donde necesito que los datos que estoy colocando en userform me los transfiera a una hoja llamada datos, alli les dejo un ejemplo: TRANSFERIR DATOS DE USERFORM.zip
  5. Espero me puedan ayudar, por ahora solo necesito extender los rangos de copiado de las formulas, el codigo que tengo en mi hoja es el siguiente: COPIAR_FORMULA_PEDIDO Macro ' Range("I5:AE5").Select Selection.AutoFill Destination:=Range("I5:AE8000"), Type:=xlFillDefault Range("I5:AE8000").Select Selection.Copy Range("5").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Range("A1").Select End Sub[/CODE] Requiero que el rango se incremete a 45000.
  6. Que tal hermano, gracias por responder, me dices que eso de "Evaluate", me coloca el resultado en la celda, perfecto hasta alli entiendo. Pero que pasa, que como son muchos items que hay, yo coloco la formula es en las primeras filas, una vez que este se calcula, yo que hacia de forma manual lo copiaba y lo pegaba en las celdas faltantes, una vez esto era que yo procedia ha hacer el pegado especial. Yo seguia este proceso era para que al abrir el archivo este no se me hiciera tan pesado. Entonces que es lo que quiero que cuando se calcule las primeras lineas automaticamente se calculen las filas que faltan y es un total de 45.000 items o quizas mas.
  7. Que tal amigo Tuve, gracias por tu respuesta, pero no entiendo que hace ese codigo, te comento que solo le coloque la palabra "evaluate" tal cual como me sugieres y cuando corri la macro me dio un error, yo lo que necesito de este codigo es que me copie y pegue la formula en un rango determinado y una vez que lo copie, aplique el copiar valores para que no sea la formula. estuve tratando de hacer esto pero jajajaj no me dio. A decir verdad este es el codigo que necesito que me corra, las demas anteriores me han dado fino. me falta es esto me habla algo de un rango de autofiltro. 'COPIAR_FORMULA_PEDIDO Macro Range("L5:AD5").Select Selection.AutoFill Destination:=Range("L5:AD8000"), Type:=xlFillDefault Range("L5:AD8000").Select Range("L8001:AD16000").Select Selection.AutoFill Destination:=Range("L8001:AD16000"), Type:=xlFillDefault Range("L8001:AD16000").Select Selection.Copy Range("L5").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Range("A1").Select[/CODE]
  8. Que tal amigos, les comento, tengo un codigo que el me calcula ciertas formulas en variacas columnas, y por ultimo yo quiero que no se vean las formulas en las celdas unas vez calculadas, por lo que uso el copiar y pegar valores, pero que pasa cuando selecciono me dice que es muy grande y honestamente lo necesito con ese maximo de filas que son casi 50000 flias, les dejo el codigo para ver si me ayudan, el codigo esta al final se llama "COPIAR_FORMULA_PEDIDO Macro" Sub CALCULAR_PEDIDO() ' ' CALCULAR_PEDIDO Macro ' 'Busca los codigos bloqueados Range("L5").Select ActiveCell.FormulaR1C1 = _ "=IF(ISERROR(VLOOKUP(RC1,BLOQUEADOS,5,)),"""",VLOOKUP(RC1,BLOQUEADOS,5,))" 'Busca la existencia del galpon XII Range("M5").Select ActiveCell.FormulaR1C1 = _ "=IF(ISERROR(VLOOKUP(RC1,XII,8,)),"""",VLOOKUP(RC1,XII,8,))" 'Calcula la cantidad de Bultos Range("N5").Select ActiveCell.FormulaR1C1 = _ "=IF(ISERROR(SUM(RC6="""",,ROUND(RC[-1]/RC6,2))),"""",SUM(RC6="""",,ROUND(RC[-1]/RC6,2)))" 'Busca la existencia del galpon NVO Range("O5").Select ActiveCell.FormulaR1C1 = _ "=IF(ISERROR(VLOOKUP(RC1,NVO,8,)),"""",VLOOKUP(RC1,NVO,8,))" 'Calcula la cantidad de bultos Range("P5").Select ActiveCell.FormulaR1C1 = _ "=IF(ISERROR(SUM(RC6="""",,ROUND(RC[-1]/RC6,2))),"""",SUM(RC6="""",,ROUND(RC[-1]/RC6,2)))" 'Busca la existencia del galpon RCS Range("Q5").Select ActiveCell.FormulaR1C1 = _ "=IF(ISERROR(VLOOKUP(RC1,RCS,8,)),"""",VLOOKUP(RC1,RCS,8,))" 'Calcula la cantidad de bultos RCS Range("R5").Select ActiveCell.FormulaR1C1 = _ "=IF(ISERROR(SUM(RC6="""",,ROUND(RC[-1]/RC6,2))),"""",SUM(RC6="""",,ROUND(RC[-1]/RC6,2)))" 'Calcula bultos de la tienda Range("S5").Select ActiveCell.FormulaR1C1 = _ "=IF(ISERROR(SUM(RC6="""",,ROUND(RC[1]/RC6,2))),"""",SUM(RC6="""",,ROUND(RC[1]/RC6,2)))" 'Calcula inventario inicial de la tienda Range("T5").Select ActiveCell.FormulaR1C1 = "=IF(ISERROR(SUM(RC[1]+RC[2])),"""",SUM(RC[1]+RC[2]))" 'Buscar las Ventas en la hoja de ventas Range("U5").Select ActiveCell.FormulaR1C1 = _ "=IF(ISERROR(VLOOKUP(RC1,Vts,5,)),"""",VLOOKUP(RC1,Vts,5,))" 'Busca las existencia de la tienda Range("V5").Select ActiveCell.FormulaR1C1 = _ "=IF(ISERROR(VLOOKUP(RC1,exist,8,)),"""",VLOOKUP(RC1,exist,8,))" 'Calcula Rotacion de la tienda Range("W5").Select ActiveCell.FormulaR1C1 = _ "=IF(ISERROR(SUM(RC[-2]*100)/RC[-3]/100),"""",SUM(RC[-2]*100)/RC[-3]/100)" 'Calcula el sugerido en bulto Range("X5").Select ActiveCell.FormulaR1C1 = _ "=IF(ISERROR(SUM(RC[-3]*RC[-5])/RC[-4]),"""",SUM(RC[-3]*RC[-5])/RC[-4])" 'COPIAR_FORMULA_PEDIDO Macro ' Range("J5:X5").Select Selection.AutoFill Destination:=Range("J5:X42863"), Type:=xlFillDefault Range("J5:X42863").Select Selection.Copy Range("J5").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False Range("A1").Select End Sub[/CODE]
  9. Que alegria, de verdad que alegria, jajaj estoy muy contento, lo que solicite esta super, el código corrio a la perfección, jajaj Estoy muy agradecido, por tu ayuda Neverdelimon1, con esto doy por cerrado el tema, por favor edita el post, sabes eso es informacion confidencial de la empresa. Gracias.
  10. Que tal neverlimon, jajaj bueno intente correr el codigo y me genero un error, aqui te dejo el usuario que es y la clave . Yo segui tus instrucciones en cuanto al cambio de clave y usuario pero el mismo dijo que no. Sub Repliques() 'Coloca en estas variables tu cedula y tu pasword Const Cedula = "Usuario" Const pwd = "Contraseña" ' 'Borras las anteriores consultas For Each Q In ActiveSheet.QueryTables Q.Delete Next Q ActiveSheet.Cells.Clear 'creas tu conexion primero con la pagina que te va autentificar With ActiveSheet.QueryTables.Add(Connection:= _ "URL;[URL]http://la[/URL] pagina web", Destination:=Range( _ "$A$4")) .PostText = "cedula=" & Cedula & "&pwd=" & pwd .Refresh BackgroundQuery:=False 'cambias la conexion .Connection = "URL;[URL]http://pagina[/URL] de conexion" 'sigue la macro .Name = "procesar_10" .FieldNames = True .RowNumbers = True .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = True .BackgroundQuery = False .RefreshStyle = xlInsertDeleteCells .SavePassword = True .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .WebSelectionType = xlEntirePage .WebFormatting = xlWebFormattingNone .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With Range("A4").Select End Sub[/CODE]
  11. Que tal amigos, saludos a todos aqui les vengo con mi inventos, ajjaj estoy tratando de generar una macro donde acceda directamente a una pagina principal, esta pagina accedo a traves de un usuario y clave, cuando hago todo mi proceso esta informacion se descarga a mi hoja, pero al rato cuando intento correr nuevamente el codigo, no me baja la informacion, yo deduzco que es que pide nuevamente la clave y usuario. aqui les dejo el codigo, espero me puedan ayudar. Sub Repliques() ' ' Repliques Macro ' ' Range("A4").Select With ActiveSheet.QueryTables.Add(Connection:= _ "URL;[URL]http://pagina[/URL] de conexion", Destination:=Range( _ "$A$4")) .Name = "procesar_10" .FieldNames = True .RowNumbers = True .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = True .BackgroundQuery = False .RefreshStyle = xlInsertDeleteCells .SavePassword = True .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .WebSelectionType = xlEntirePage .WebFormatting = xlWebFormattingNone .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With Range("A4").Select End Sub[/CODE]
  12. Buen Dia amigos foreros tengo un problemilla, con una formula, Tengo un archivo con 6 hojas, en la hoja6 tengo en una columna una lista desplegable con el nombre de cada hoja, lo que quiero es que cuando cambie en la celda C5 la hoja, esta formula me busque directamente la informacion que necesito en la hoja que indique en dicha celda. Esperao me haya hecho entender. gracias amigos..
  13. Re: cargar hojas desde el form cuando excel este oculto, mostrar las hojas para traba Bueno amigo yo estoy trabajando en algo parecido a lo suyo. y bueno le envio este codigo que lo vas a colocar en cada boton que quieres accionar. lo unico diferente es que vas a identicar el nombre de cada hoja espero te sirva: Private Sub EXISTBUTTON_Click() Sheets("exist").Visible = True Sheets("exist").Activate Unload UserForm1 End Sub Private Sub GENERARPEDIDOBUTTON_Click() Sheets("pedido").Visible = True Sheets("pedido").Activate Unload UserForm1 End Sub Private Sub IXbutton_Click() Sheets("IX").Visible = True Sheets("ix").Activate Unload UserForm1 End Sub Estos son tres botones que yo tengo en un Userform, lo que diferencia uno del otro es el nombre, espero te sirva
  14. Que tal amigo, bueno esta ultima sugerencia no se sujeta a lo que yo deseo, mas tu primera opcion si fue buenisima de igual forma sigo agradecido por tu hospitalidad y atención, bueno amigo le comento que sigo con lo de mi proyecto de pedido y bueno le agregue un nuevo codigo donde es redireccionado cierta informacion y el mismo me esta arrojando un error " sub indice fuera de intervalo error 9" algo asi es la cuestion. sera que usted me le da una chequeadita para ver dond esta mi error... Gracias amigo Sera que usted me facilita su correo para enviarle mi proyecto y asi vea en su totalidad lo que estoy desarrolando???. Feliz día... Private Sub XIIButton_Click() Sheets("XII").Visible = True Sheets("XII").Activate Workbooks.Open Filename:= _ "Z:\DPTO. ANALISIS\DTO. ANALISIS\REPORTES\CARGA DE PEDIDOS.xlsx" Range("A1:J20000").Select Selection.Copy Windows("14-7-10 9-20 PLANTILLA PEDIDO DE ROPA NUEVA ESTRUCTURA 1.1 .xls"). _ Activate Range("A4").Select ActiveSheet.Paste Range("A4").Select Unload UserForm1
  15. Amigo gracias de verdad, bueno yo le coloque este codigo: Private Sub IXbutton_Click() Sheets("IX").Visible = True Sheets("ix").Activate Unload UserForm1 End Sub Pero ahora cuando me muestra cada hoja, yo quiero que si por ejemplo tengo la hoja "ix" y la "XII", cuando seleccione cualquiera de ella la otra se oculte, y asi sucesivamente.. Revise tu sugerencia esta super buenisima me gusto mucho.. tratare de adaptarlo a lo que necesito...Gracias amigo dios te bendiga
×
×
  • Create New...

Important Information

Privacy Policy