rolano

Gracias estimado Abraham, voy hacer lo que indicas, de loguearme con internet explorer.

Estimado Abraham, buenas noches, te comento que en mi PC tengo los permisos, por que cuando doy click en la celda que tiene el vinculo abre una foto en google chrome, lo que se quiere es que sea con el código adjunto en el archivo, y no he podido realizarlo con dicho código. También encontré un enlace (archivo) de Antoni, ahí si descarga un archivo en jpg pero no se puede visualizar su contenido. adjunto archivo de Antoni. DESCARGARIMAGEN.rar

https://ayudaexcel.com/foro/topic/8996-abrir-abrir-y-guardar-link-internet/ Buenos días, El archivo adjunto (Autoria, Juan alias nvr)abre un link de internet y se guarda en una carpeta. pero el link que esta en el archivo adjunto no abre, tampoco se guarda me da error. Echenme un cable, que esta mal en el link. Saludos, César DescargarArchivos3-nvr.xls

Sub muestrapass() Application.MacroOptions Macro:="muestrapass", _ ShortcutKey:=Sheets("PASS").Range("A1") Sheets("PASS").Visible = True End Sub Sub ocultapass() Application.MacroOptions Macro:="ocultapass", _ ShortcutKey:=Sheets("PASS").Range("A2") Sheets("PASS").Visible = False End Sub Con el permiso de los presentes. Saludos,

Private Sub UserForm_Activate() Application.Windows("CorreoControlgas - Copy.xlsm").Visible = True TEXTO.SetFocus Me.LISTA.RowSource = "PRODUCTOS2" Me.LISTA.ColumnCount = 4 Application.Windows("CorreoControlgas - Copy.xlsm").Visible = False End Sub Hola, en el userform MIFORMULARIO, al inicio coloca en true y al final en false. Saludos,

https://1drv.ms/x/s!AjMjvY92AmsogYt2T4FbqRGDhGLR6Q Hola, como dice Leopoldo, las tablas están al mismo nivel. Se podría si se coloca después de la primera tabla (al final de la columna B, H?)

Hola, con esto damos por cerrado el tema

DatosDeHoja Hoja4, TextBox2, TextBox1, Boton2, Boton, Boton1, Label26 Sub DatosDeHoja(hoja, Fecha, Nombre, Opcion, TipoAlmuerzo, Tipoliquido, colocacion) hoja.Select LastRow = hoja.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1 Cells(LastRow, 2) = Fecha Cells(LastRow, 3) = Nombre Cells(LastRow, 4) = Opcion Cells(LastRow, 5) = TipoAlmuerzo Cells(LastRow, 6) = Tipoliquido Cells(LastRow, 7) = colocacion End Sub Hola, revisa el adjunto. PD. espero que conozca el botón de me gusta Minuta 2018 v4.1.xlsm

Private Sub TextBox1_Change() Sheets("nombres").Select Me.ListBox1.Clear For i = 3 To 70 If LCase(Range("C" & i).Value) Like LCase(TextBox1.Text) & "*" Then Me.ListBox1.Visible = True ListBox1.ColumnWidths = "150 pt;01 pt" ListBox1.ColumnCount = 2 Z = ListBox1.ListCount ListBox1.AddItem Range("C" & i).Value ListBox1.List(Z, 1) = Range("D" & i).Value End If Next i End Sub Private Sub ListBox1_Click() TextBox1.Text = ListBox1.List(ListBox1.ListIndex) Label26 = ListBox1.List(Z, 1) Me.ListBox1.Visible = False End Sub Hola, cambia el código de Textbox1_Change y en el ListBox1_Click por estos códigos.

Sub DatosDeHoja(hoja, Fecha, Nombre, Opcion, TipoAlmuerzo, TipoMenu) hoja.Select LastRow = hoja.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1 Cells(LastRow, 2) = Fecha Cells(LastRow, 3) = Nombre Cells(LastRow, 4) = Opcion Cells(LastRow, 5) = TipoAlmuerzo Cells(LastRow, 6) = TipoMenu End Sub Hola a todos, prueba con el archivo adjunto, Saludos Minuta 2018 v2.1.c.xlsm

app = "C:\Program Files\Google\Chrome\Application\chrome.exe"[/CODE] tienes que ver en que carpeta esta tu aplicación chrome.

Hola revisa este link: Registrar un archivo OCX o DLL en Windows 7 / 8 / 8.1 - x86 y x64 | ~MANCERA~

Hola: Respondiendo a este post: HOLA TENGON UN USERFORM EN EXCEL 2007 Y QUIERO QUE ME APAREZCA LA FOTO adaptación de este post: Load picture from worksheet into Excel Userform using combobox selection Importar imagen en un formulario desde una hoja excel.part1.rar Importar imagen en un formulario desde una hoja excel.part2.rar

CTRL+8 = Muestra u oculta símbolos de esquema. 8 niveles

si, si me refería al archivo