Jump to content

All Activity

This stream auto-updates     

  1. Past hour
  2. Buen dia estimados... por favor me pueden ayudar con esta solicitud Llevar los Valores de los textbox a las celdas que indique, pero Sin insertar celdas llevar textbox 26 a hoja "Reclamo " celda E8 llevar textbox 27 a hoja "Reclamo " celda F8 llevar textbox 28 a hoja "Reclamo " celda E9 llevar textbox 29 a hoja "Reclamo " celda F9 y en Textbox 51 Vaya Mostranto total desde ya muy agradecido de Uds Reclamo2.xlsm
  3. Today
  4. Hola ya hace un par de años no puedo entrar al foro, porque al parecer utiliza un protocolo no admitido el error devuelto ERR_SSL_VERSION_OR_CIPHER_MISMATCH aclaro que estoy bajo un próxi el cual no tengo acceso.
  5. Yesterday
  6. Saludos a todos estoy por acá requiriendo de nuevo de su valiosa colaboración,hace poco un gran colaborador de este foro me enseño a dinamizar una columna y eso fue genial,sin embargo me trae de nuevo por acá la necesidad de dinamizar varias columnas,y no supe hacerlo ya que solo tengo 2 semanas practicando con PQ y mis conocimientos son escasos,se trata de hacer un reporte de ventas donde me muestre el resultado de las ventas de años anteriores y los meses del año en curso,lo se hacer sin problemas con Tablas dinámicas pero quiero aprender a hacerlo de otra forma y que de paso sea dicho es mejor usando PQ,aquí dejo el ejemplo de como debe quedar la consulta en PQ ,esta creada con una tabla dinámica,agradezco mucho la ayuda que puedan prestar saludos PQ.xlsm
  7. hay algo que te impida adecuar la propuesta a una consulta a lo que sea que "debiste" decir de TU realidad ? si cambias lo que expusiste en la consulta: que resultó en la propuesta: y (ahora) resulta que cambias de celda de "E2" a => "Resumen!C5" (obviamente) la propuesta cambia a: =multiplo.superior(resumen!c5,"0:15") (por si las dudas): la propuesta de fórmula no requiere funciones "auxiliares", es "en directo y sin escalas"
  8. Muchísimas gracias Antoni, muy amable por compartir tu tiempo y tus conocimientos. Saludos cordiales
  9. Hola, muy buenas exceleros. Felicitaciones por el foro. Con unos compañeros hemos desarrollado un programa para el apoyo de la gestión y control de producción; el cual consta de varios formularios y módulos. Nuestra idea no es ocultar ni proteger el conjunto de códigos, sino de ocultar un solo código que se encuentra dentro de un formulario, el cual hace el llamado a un módulo, hemos logrado ocultar ese módulo (no se abre ese módulo), pero no hemos logrado ocultar el código dentro del formulario, por lo tanto, se pretende ofuscar ese código totalmente o hacer invisible solo la línea del llamado al módulo (si esto es posible), sin embargo, no lo hemos conseguido, solo hemos ofuscado las variables en parte. Entonces, quisiéramos su ayuda para este cometido. Nota adicional: En uno de los temas propuestos dentro de este foro, el contribuidor Antoni desarrolló un ofuscador de código VBA, pero, no hemos logrado que ofusque nuestro código. Por naturaleza de seguridad, no podemos darnos el lujo de compartir el archivo original, pero adjuntamos un libro con el formulario y el código VBA que se desea ofuscar o hacer invisible solo la línea del llamado al módulo. Además el link donde se encuentra el ofuscador VBA que desarrolló Antoni. Muchas gracias por su atención y por cualquier ayuda que puedan brindarnos. Saludos cordiales y tengan un gran día. Link Ofuscador VBA: prueba ofuscar.xlsm
  10. Hola Antoni, he estado de vacaciones y no he podido verlo hasta hoy, muchas gracias, ahora me pondré en ello, tenía una cuestión pendiente sobre el juego, te informaré. Gracias de nuevo
  11. hola, tengo una plantilla de excel que descargue y he estado intentando adaptarla a la necesidad. Pero requiero que el formato haga varias cosas de forma automática y no se como entrarle o que hacer para lograr los cometidos, a saber: En la hoja "lista de producciones" se encuentra una lista con datos que se deben repetir en función a la cantidad de partes. Y en la hoja "lista de ubicaciones" se despliegan los datos en función a la cantidad de partes (1/3, 2/3, 3/3...) y a cada parte se le agrega una ubicación. FORMATO NUEVO.xlsm
  12. También valdría, o eso creo: Sub ExtraerDatosNOfacturar() Dim Fila As Long For Fila = 3 To Hoja1.Range("A" & Rows.Count).End(xlUp).Row If Hoja1.Range("AA" & Fila) = "NO SE REMITE" And _ Not Hoja1.Range("AF" & Fila) = "NO VENDIDAS" Then Hoja1.Rows(Fila).Copy _ Hoja2.Rows(Hoja2.Range("A" & Rows.Count).End(FilalUp).Row + 1) Hoja1.Rows(Fila).Delete Fila = Fila - 1 End If Next End Sub
  13. no me deja meter la formula : =NSHORA(HORA((Resumen!C5)), MULTIPLO.SUPERIOR(MINUTO((Resumen!C5),"0:15")
  14. Hola @Antoni, estoy muy agradecido por tu respuesta y tiempo. Doy por terminado el tema Saludos.
  15. Last week
  16. Buenas tardes. Tengo una hoja que ordena unos números del 0 al 9, desde la columna A hacia las siguientes, B , C. etc. Es un juego donde un número predefinido en la LINEA 1, indica que el número anterior IGUAL, ya debe desaparecer de la lista, de la posición de la columna anterior. Hice una macro que modifica los formatos según el número de la celda, produciendo el efecto que se puede mirar en el ejemplo que adjunto del archivo ARCOIRIS.XLSM. Necesito ayuda para modificar tres cuestiones muy difíciles para mí. 1.- Que la macro trabaje únicamente con los números de la línea 1, y no sea necesario que estén ubicados en la columna A, (ver ubicación en el archivo). 2.- Al final la macro por defecto copia EL 0 y mueve los demás números. (Ignoro porqué lo hace, (es un error, no debe hacerlo y se debe eliminar.). 3.- No he podido hacer que el número que salta a la línea 1 de la columna anterior, en su última ubicación, tenga el formato de FONDO NEGRO. Saludos y gracias. MP ARCOIRIS.xlsm
  17. Buenas tardes, Estoy utilizando esta fórmula =NSHORA(HORA(E2), MULTIPLO.SUPERIOR(MINUTO(E2), 15), 0), para redondear hacia arriba los minutos y horas y me da error al meterla en la excel, a ver si alguien me ayuda a ver como lo hago : EJEMPLOS si : 02:52 me devuelva 03:00, si 01:12 me devuelva 01:15, si 01:23 me devuelva 01:30, si 01:34 me devuelva 01:45. muchas gracias por anticipado.
  18. Hola No he descargado tu archivo, pero la línea que aquí numeras como 2, cámbiala y déjala así: Workbooks.Open Filename:="\\Pcmadre\EMPRESA\Documentos\Internos\Caja\" & AÑO & "\" & MES & "\MOVIMIENTOS DE CAJA " & DIA & "-" & MES & "-" & Mid(AÑO, 3, 2) & ".xlsx", ReadOnly:=True Workbooks.Open Filename:="\\Pcmadre\EMPRESA\Documentos\Internos\Caja\" & AÑO & "\" & MES & "\MOVIMIENTOS DE CAJA " & DIA & "-" & MES & "-" & Mid(AÑO, 3, 2) & ".xlsx", ReadOnly:=True Comentas Abraham Valencia
  19. Sub LinkToResumen() Application.ScreenUpdating = False For Each hoja In Sheets If Not hoja.Name = "RESUMEN" Then Set cliente = Sheets("RESUMEN").Columns("A").Find(hoja.Name, , , xlWhole) If Not cliente Is Nothing Then hoja.Hyperlinks.Add Anchor:=hoja.Range("A1"), Address:="", _ SubAddress:="RESUMEN!" & cliente.Address, TextToDisplay:="RESUMEN" End If End If Next Application.ScreenUpdating = True End Sub
  20. Sub CopiarBase() Dim Fila As Long Dim no As Range Application.ScreenUpdating = False Set no = Hoja2.Columns("A").Find(Hoja1.Range("A4"), , , xlWhole) If Not no Is Nothing Then Fila = no.Row Else Fila = Hoja2.Range("A" & Rows.Count).End(xlUp).Row + 1 End If Hoja2.Range("A" & Fila) = Hoja1.Range("A4") Hoja2.Range("B" & Fila) = Hoja1.Range("B4") Hoja2.Range("C" & Fila) = Hoja1.Range("C4") Hoja2.Range("D" & Fila) = Hoja1.Range("D4") Hoja2.Range("E" & Fila) = Hoja1.Range("E4") Application.ScreenUpdating = True End Sub
  21. Pon un ejemplo concreto del procedimiento a efectuar y de los resultados a obtener, porqué no se entiende lo que quieres hacer.
  22. Buenos dias. Necesito generar unas etiquetas de productos para imprimirlas y me baso en un fichero .csv o xls que contiene los datos a imprimir (codigo, descripcion, pvp, etc) y la cantidad de unidades que entran que seria igual al numero de etiquetas a imprimir. Necesitaria una macro modulo que leyera ese valor numerico variable y copiara esa misma fila en otro sitio que podria ser otra hoja o idealmente en la misma hoja adjunto un ejemplo de fichero a tratar. muchas gracias SANTINI 1967_E.csv
  23. No dices que celdas, no dices que hojas, no subes un archivo con un ejemplo de lo que quieres. Así es imposible ayudarte.
  24. A ver esto Sub ActualizaExistencias() Dim c As Range, Registros As Object Dim celda On Error Resume Next Set Registros = CreateObject("Scripting.Dictionary") Set c = Hoja3.Range("B3:B" & Hoja1.Range("B" & Rows.Count).End(xlUp).Row) For Each celda In c With celda If Len(.Offset(, 4)) <> 0 And (.Offset(, 5) - .Offset(, 4) <> 0) Then Registros.Add .Text & .Offset(, 1).Text & .Offset(, 2).Text, .Offset(, 6).Text End If End With Next Set c = Hoja1.Range("B3:B" & Hoja1.Range("B" & Rows.Count).End(xlUp).Row) For Each celda In c With celda If Registros.Exists(.Text & .Offset(, 1).Text & .Offset(, 2).Text) Then .Offset(, 4) = Registros(.Text & .Offset(, 1).Text & .Offset(, 2).Text) Else .Offset(, 4) = 0: .Offset(, 3) = "": .Offset(, 2) = "" End If End With Next Set Registros = Nothing MsgBox "Existencias actualizadas" End Sub
  25. Hola, muchas gracias por tu respuesta me funcionó como lo esperaba. Obviamente la celda A1 la referencié a B1 para que pueda continuar la fòrmula. Hay la posibilidad de hacerla con una macro? Gracias nuevamente.
  26. copiar pega esa formula Luis Antonio a ver si te funciona =SI(IZQUIERDA(B2,1)="T",B2,A1) saludos isidrod
  27. 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
  1. Load more activity
×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 5112 personas - Aprender Excel - Total: 4.7 / 5