Saltar al contenido

AlexanderS

Moderadores
  • Contador de contenido

    1213
  • 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

2700 visitas de perfil
  1. AlexanderS

    separar texto en diferentes casillas

    Hola, parecido a la de Leopoldo, igualmente seleccionando el rango de celdas antes. Sub separar() Dim tx As Variant, celda As Range For Each celda In Selection tx = Split(celda, " ") Cells(celda.Row, celda.Column + 1).Resize(1, UBound(tx) + 1) = tx Next End Sub Saludos.
  2. AlexanderS

    Función contar sangría VBA

    Hola @joselopezitot tal como lo indica Héctor, excel no tiene forma de detectar un cambio en un formato, pero podemos valernos de algunos trucos como en tu caso donde insertas las sangrías con los botones de la cinta de opciones de excel. Este truco funciona utilizando el "Custom IU Editor", lo que haremos es interceptar el evento al presionar los botones para insertar o eliminar las sangrías para que ejecuten una macro y podamos re-calcular la hoja al presionar uno de estos 2 botones. Adjunto el ejemplo, me comentas. Saludos. Copia de SANGRÍA.xlsm
  3. Hola @Pirtrafilla, te recomiendo leer un poco sobre lo básico de las consultas en SQL, puesto que si quieres trabajar con access utilizando ADO tendrás que utilizar SQL. Por el momento tomando en cuenta que no se la estructura de tu tabla "Tab_Procedimientos" , te dejo este código: Sub Prueba() Set rs = CreateObject("ADODB.Recordset") 'Indicamos en la consulta SQL, donde buscaremos en la columna "TuColumna" el valor del Textbox2 Sql = "Select * From Tab_Procedimientos where TuColumna =' & Texbox2 &'" 'Abrimos la conexión rs.Open Sql, Cnn, 3, 3, adCmdText 'Comprobamos si existe un registro If rs.EOF = False Then MsgBox "Existe" Else MsgBox "No Existe" End If 'cerramos la conexión rs.Close End Sub Ademas te dejo un pequeño ejemplo básico que había hecho para otro usuario con conexiones a Access, debes tener los dos archivos en la misma carpeta. Saludos. Ejemplo ADO.rar
  4. 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.
  5. AlexanderS

    Cinta de Opciones Personalizada

    Hola @Haplox, se refiere a la galería de iconos integrados en Microsoft Office, los llamados imageMSO . Saludos.
  6. 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.
  7. AlexanderS

    Excel: macro para filtrar base por dos criterios

    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.
  8. 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.
  9. Hola @hernanmrx, prueba el adjunto y comentas. Saludos. Ejemplo.xlsx
  10. AlexanderS

    Descomprimir masivamente y reemplazar duplicados

    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.
  11. AlexanderS

    Macro enviar email

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

    Envio de correos (Outlook) mediante excel.

    !Pura Vida¡ @Gerson Pineda
  13. 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.
  14. Hola, esto es solo para darle un poco mas de visibilidad al aporte, también se aceptan sugerencias. Saludos a todos.
  15. Version 1.0.1

    37 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.
×

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.