Jump to content

Mauricio_ODN

Members
  • Content Count

    963
  • Joined

  • Last visited

  • Days Won

    60

Everything posted by Mauricio_ODN

  1. Hola @josegomez No entendí del todo. Nos comentas. Saludos. Ver 1.1.xlsm
  2. Saludos a Ambos. Les agradezco mucho la ayuda, la orientación y los comentarios. Después de realizar la pruebas en otras páginas y notar que las sentencias que me comparten son adecuadas, me termine percatando que la página con la que estoy trabajando cuenta al cargar, no carga el encabezado y el cuerpo del documento Web, y muestras dos paneles (frame) con sus respectivas divisiones, lo que necesitaba el código era simular un click, para activar el área que debía seleccionar y copiar. De favor se puede dar por cerrado el tema. Nuevamente les doy las gracias no solo por este
  3. Gerson, gracias por el tiempo y la paciencia La verdad es que probé ambas funciones, con cualquier otra página funcionan a la perfección, pero particularmente con esta página de la empresa no me arroja datos. No se si exista otra alternativa. De antemano muchas gracias
  4. Gracias Gerson. El código funciona así como me lo compartes. Pero por alguna razón no trae nada de información (tal vez sea por la construcción de la página). No se si fuera posible con código seleccionar todo y pegarlo en excel, ya que al realizar esta acción manualmente, si me trae los datos de la página en cuestión. De antemano muchas gracias.
  5. Buen día a todos. El proyecto en que estoy trabajando Userform que contiene un control WebBrowser, que me permite acceder a una página Web y deseo hacerles la siguiente consulta: ¿Que metodo puedo usar para copiar todo el contenido de la página web contenida en el WebBrowser? Disculpen que por razones confidenciales no pueda adjuntar el archivo original.
  6. Hola @exekyel2010 Si la consulta se limita a que si es posible, si lo es con un "Inputbox" (del cual te dejo un ejemplo) Si lo requieres más personalizado revisa este post (que es probable que la actual consulta vaya para allá): o este: Nos comentas. Input_Example.xlsb
  7. Hola de nuevo Me ayudas probando esta versión. Gracias.inventario 1.3.xlsm
  8. Hola de Nuevo @JAVISHALOM Por la estructura del código las contraseñas deben ir en mayúsculas. Envió de vuelta. Saludos. PRUEBA1.1.xlsm
  9. Hola @exskizzo Nos comentas. EjemploCombo1.1.xlsm
  10. Hola de nuevo @Conker Claro, con gusto. Hay varias maneras de hacerlo, elegí la manera más práctica, dando por hecho que la estructura de la tabla no cambia. El código es sencillo, se detecta cuál es la última fila de la tabla dinámica, de ahí borra todo el rango de celdas debajo de ella (que fue la omisión del primer archivo enviado), después coloca el texto dos files debajo de la última de la tabla dinámica y le asigna la altura y la posición al la forma tomando de partida la última fila de la tabla dinámica. -> comentado el codigo quedaria así: Sub unitario_stock
  11. Hola @MauriciodeAbreu Como diría mi confidente "Jack el Destripador" vamos por partes. Envió una muestra del archivo, solo hace la búsqueda de los datos de la hoja "Reg. Salidas", de ahí le vamos añadiendo paso por paso. Espero sea de utilidad.
  12. Saludos @Conker Nos comentas nuevamente Saludos. inventario 1.2.xlsm
  13. Hola @Conker Te dejo una posible solución, nos comentas. Saludos. inventario 1.1.xlsm
  14. Hola Intenta colocando estas líneas: Set Excel_Nuevo = Workbooks.Add Excel_Nuevo.Save ''MsgBox Excel_Nuevo.FullName RutaExcel = "Data Source=" & Excel_Nuevo.FullName & ";Extended Properties=""Excel 12.0;HDR=Yes;""" Salvara el libro, pero lo enviara por default a la carpeta de Documentos. Espero sea de utilidad, Nos comentas, Saludos.
  15. Hola de nuevo. Por ahora solo funciona para la hoja "Folios Vencidos" Nos comentas. Prueba.xlsm
  16. Ummm, Entonces, tenemos un problema de entendimiento. @MauriciodeAbreu, por que mejor nos compartes una imagen o dentro del mismo archivo a que te refieres con: Por que me incline a pensar que lo que necesitabas era el Passwordchar, para que la clave no estuviera visible en el Inputbox (Que es lo el archivo que te envié hace): Si nos ayudas con eso, es más probable que respondemos tu consulta.
  17. Va de nuevo, para 64 bits. Nos comentas, Saludos. InputPaswordChar1.2.xlsm
  18. Hola @MauriciodeAbreu Te dejo mi aporte, Nos comentas. PD. Solo modifique las propiedades: LEFT yTOP Formulario1.1.xlsm
  19. Hola @MauriciodeAbreu Dejo este enlace dentro del foro: Además te dejo mi aporte, espero que sea de utilidad, nos comentas, Saludos.!! InputPaswordChar1.1.xlsm
  20. Hola @jeaa Envió tu archivo de vuelta. Tarda un poco, por que después de cada registro, en el código quitas el UserForm en cuestión y lo vuelves a cargar.(No le veo propósito) No me marca error, pero hay algunos eventos que no tienen código, por lo que no tiene sentido que los tengas registrados. Nos comentas Inventario1.1.xlsb
  21. Hola Intento1.1.xlsb@gacg1310 Sin una muestra del archivo es difícil acertar, en base a él archivo TXT que envias te dejo una posible, pero muy alejada solución. Saludos.
  22. Hola @paikerr Te dejo una alternativa: ''-->> Sub Delete_oAllw() Dim MeSh As Worksheet Dim oPrt As Protection Dim oAllw As AllowEditRanges Dim Fila As Long Set MeSh = ThisWorkbook.ActiveSheet Set oPrt = MeSh.Protection Set oAllw = oPrt.AllowEditRanges MeSh.Unprotect contraseña Fila = 100 For i = 1 To oAllw.Count ''-> Linea si quieres elimimar el rango If oAllw(i).Title = "Rango1" Then oAllw(i).Delete Next i oAllw.Add Title:="Rango1", _ Range:=Range("A3:H" & Fila), _ Password:=contr
×
×
  • Create New...

Important Information

Privacy Policy