Saltar al contenido

AlexanderS

Moderadores
  • Contador de contenido

    1210
  • Unido

  • Última visita

  • Days Won

    46

Sobre AlexanderS

  • Rango
    Riddle

Información de perfil

  • Sexo Hombre
  • Localización: Costa Rica

Configuraciones

  • Campo que utilizas como separador de argumentos ,

Visitantes recientes del perfil

2382 visitas de perfil
  1. Hola @JSDJSD, modifica esta linea: Private Sub CommandButton3_Click() Dim Comentario As String For X = 0 To ListBox2.ListCount - 1 If ListBox2.Selected(X) Then Hoja2.Range("H" & ListBox2.List(X, 3)) = TextBox5.Value If TextBox4 <> "" Then Let Comentario = TextBox4.Value On Error Resume Next With Hoja2.Range("B" & ListBox2.List(X, 3)) .AddComment .Comment.Visible = False .Comment.Text Text:=Comentario End With End If End If Next CargarFacturas End Sub Y agrega estas nuevas: Private Sub ListBox2_Click() Dim comt As Range With Me.ListBox2 Set comt = Hoja2.Range("J:J").Find(.List(.ListIndex, 0), , , xlWhole) On Error Resume Next If Not comt Is Nothing Then Me.TextBox4 = Hoja2.Cells(comt.Row, "B").Comment.Text End With End Sub Comentas. Saludos.
  2. AlexanderS

    Cinta de Opciones Personalizada

    Hola @Haplox, se refiere a la galería de iconos integrados en Microsoft Office, los llamados imageMSO . Saludos.
  3. AlexanderS

    Cinta de Opciones Personalizada

    Hola @LAAM, en el siguiente link aparece una lista con sus respectivas imágenes. https://bert-toolkit.com/imagemso-list.html Saludos.
  4. Hola @Alex Razo, en un principio debería bastar con: Sub FiltrarEmpresa() criterio1 = [M2] criterio2 = [N2] With Range("A1:E1") If criterio1 = "" And criterio2 = "" Then .AutoFilter Else .AutoFilter Field:=3, Criteria1:=criterio1, Operator:=xlOr, Criteria2:=criterio2 End If Range("A1").Select End With End Sub Si no es lo que necesitas adjunta un archivo de ejemplo. Saludos.
  5. Hola @juanmafdez, puedes probar con este código suponiendo que la fecha esta en la celda A1. Sub separar() Dim FechayHora FechayHora = Range("A5") Range("B1:C1") = Array(CDate(Split(FechayHora, " ")(0)), Mid(FechayHora, InStr(FechayHora, " "))) End Sub Prueba y comentas. Saludos.
  6. Hola @hernanmrx, prueba el adjunto y comentas. Saludos. Ejemplo.xlsx
  7. Hola @Manuel TR, por la forma en que copias los archivos descomprimidos a una carpeta windows debe preguntar si se debe sobrescribir un archivo que tiene el mismo nombre, esta es una desventaja de la linea que hay que utilizar para copiar un archivo de una carpeta comprimida a otro ubicación. Mi solución es copiar temporalmente esos archivos a una carpeta "Temporal" y después utilizar el comando "Scripting.FileSystemObject" el cual si tiene una propiedad para indicar si un archivo puede ser sobrescrito. Sub Desc_Zip() Dim FSO As Object, obj As Object, objScripting As Object Dim objCarpeta Set FSO = CreateObject("Scripting.FileSystemObject") Set obj = CreateObject("Shell.Application") iArchivo = Application.GetOpenFilename(filefilter:="Archivos ZIP (*.zip), *.zip", MultiSelect:=True) If IsArray(iArchivo) = False Then Exit Sub Ruta = Application.ActiveWorkbook.Path & "\" Nombre_Carpeta = Ruta & "ARCHIVOS EXTRAIDOS " & Replace(Date, "/", "_") & " " & Format(Now, "hh_mm_ss") & "\" Set objScripting = CreateObject("Scripting.FileSystemObject") Set objCarpeta = objScripting.CreateFolder(Nombre_Carpeta) For i = LBound(iArchivo) To UBound(iArchivo) For Each file In obj.Namespace(iArchivo(i)).items obj.Namespace(Environ$("tmp")).CopyHere obj.Namespace(iArchivo(i)).items.Item(CStr(file)) FSO.copyFile Environ$("tmp") & "\" & file, Nombre_Carpeta, True FSO.DeleteFile Environ$("tmp") & "\" & file Next Next i End Sub Prueba y comentas. Saludos.
  8. AlexanderS

    Macro enviar email

    Hola @juanmanuel85 acabo de subir al foro un aporte que tal vez se ajuste a lo que necesitas. Saludos.
  9. AlexanderS

    Envio de correos (Outlook) mediante excel.

    !Pura Vida¡ @Gerson Pineda
  10. AlexanderS

    Enviar Multiples Correos (Outlook) desde Excel

    Hola @Gerson Pineda, lo que pasa es que este archivo lo tenia para uso personal con algunas columnas mas y se me olvido corregir el rango cuando las elimine. Subo el archivo con la corrección, gracias por avisar. Saludos.
  11. Hola, esto es solo para darle un poco mas de visibilidad al aporte, también se aceptan sugerencias. Saludos a todos.
  12. Version 1.0.1

    18 downloads

    Que tal, les comparto este archivo el cual utilizo para enviar correos de Outlook desde la comodidad de Excel. Esto es de utilidad si como en mi caso necesitas enviar un mismo correo a varias personas pero con diferentes archivos adjuntos. Sin mas espero que el aporte sea de utilidad. Saludos.
  13. AlexanderS

    ListView a formulario por Codigo VBA EXCEL

    @Leopoldo Blancas como te comente la forma de crear un listview en tiempo de ejecución seria esta: Private Sub Crea_Control() Dim Xlist As Object With Me Set Xlist = .Controls.Add("MSComctlLib.ListViewCtrl.2", "ListView") With Xlist .Height = 300 .Width = 300 .ColumnHeaders.Add 1, "@", "Ejemplo1", 200 .ColumnHeaders.Add 2, "#", "Ejemplo2", 50 .ColumnHeaders.Add 3, "$", "Ejemplo3", 148 .Gridlines = True .View = 3 End With End With End Sub Saludos.
  14. AlexanderS

    Modificar una macro desde otra macro

    Hola, perdón no había podido responder @Pirtrafilla, no debería haber ningún problema ya que lo que cambias es el nombre que se refiere al objeto pero de igual forma lo que utilizamos es el nombre de la hoja. @Leopoldo Blancas, tengo que probar pero la cosa va por aquí: Set ctrl = NewForm.Designer.Controls.Add("MSComctlLib.ListViewCtrl.2") Y con respecto a lo que comenta @digitalboy un complemento es una buena idea mas si lo implementas con un "Ribbon" personalizado. Saludos.
  15. AlexanderS

    Modificar una macro desde otra macro

    Hola, prueba ahora he modificado el código no deberia importar como se llamen los modulos o las hojas. Comentas. Saludos. Actualizar VBA.xlsm
×

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.