Saltar al contenido

rolano

Miembros
  • Contador de contenido

    1156
  • Unido

  • Última visita

  • Days Won

    8

1Seguidor

Sobre rolano

  • Rango
    Miembro

Formas de contacto

  • Web Array
  • Facebook Array

Información de perfil

  • Sexo Array
  • Localización: Array

Configuraciones

  • Campo que utilizas como separador de argumentos Array

Visitantes recientes del perfil

479 visitas de perfil
  1. Gracias estimado Abraham, voy hacer lo que indicas, de loguearme con internet explorer.
  2. 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
  3. 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
  4. 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,
  5. 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,
  6. 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?)
  7. 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
  8. 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.
  9. 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
  10. app = "C:\Program Files\Google\Chrome\Application\chrome.exe"[/CODE] tienes que ver en que carpeta esta tu aplicación chrome.
  11. Hola revisa este link: Registrar un archivo OCX o DLL en Windows 7 / 8 / 8.1 - x86 y x64 | ~MANCERA~
  12. 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
  13. CTRL+8 = Muestra u oculta símbolos de esquema. 8 niveles
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.