Jump to content

josekar

Members
  • Content Count

    76
  • Joined

  • Last visited

  • Days Won

    1

Reputation Activity

  1. Like
    josekar got a reaction from Manuyes in Instrucciones para vba y fórmulas   
    Muchas gracias
    Espero que sirva para que algunas personas puedan aprender algo
    Un saludo
    José Carlos
  2. Like
    josekar got a reaction from Manuyes in Instrucciones para vba y fórmulas   
    Buenas tardes envío unas pequeñas instrucciones por si le sirven a alguien
    Gracias
    Un saludo
    José Carlos
    Libro1.zip
  3. Upvote
    josekar got a reaction from Visor in Eliminar filas vacias   
    Buenas tardes a todos, me gustaría aportar una manera de eliminar filas con fórmulas, busque por el foro algo parecido y no
    fui capaz de ver nada
    No se si valdrá para algo, pero por si acaso
    Gracias
    Un saludo
    José Carlos
    Libro2.zip
  4. Upvote
    josekar got a reaction from Antoni in Rango variable   
    Hola
    Lo siento, no entiendo bien tus necesidades, a ver si otro compañero lo ve mas claro
    Un saludo
    (De todas formas deberías subir un archivo como te dijo Macro Antonio, seguro el ya lo tendría resuelto)
  5. Upvote
    josekar reacted to Antoni in Código para refrescar hoja de datos   
    .
    [uSER=53155]@JoaoM[/uSER], ya te han llamado la atención por la forma de dirigirte a los miembros del foro que supuestamente no cumplen con las normas.
    Si hubieses leído con detalle el post anterior de [uSER=110894]@home can[/uSER], quizás te hubieras ahorrado el tuyo.
    .
  6. Upvote
    josekar got a reaction from Antoni in Rango variable   
    hola @A.JORDAN
    Igual esto te ayuda
    Un saludo @ Macro Antonio
    probar.zip
  7. Upvote
    josekar reacted to Antoni in Insertar firma en un e-mail   
    .
    Aquí os dejo este enlace del Masterchef Ron de Bruin
    http://www.rondebruin.nl/win/s1/outlook/signature.htm
    .
  8. Upvote
    josekar reacted to Antoni in Formato de celdas... fechas   
    Tienes que convertir la fecha a Date.

    Sub VerDatos()
    Application.ScreenUpdating = False
    Ado_Error = ADO_CONEXION_VISTA(CONEXION)
    If Ado_Error > 0 Then
    MsgBox "ERROR AL ABRIR LA BASE DE DATOS", vbCritical, "INFORMACIÓN DEL SISTEMA"
    Exit Sub
    End If
    Hoja1.Range("A8:D" & Hoja1.Range("A" & Rows.Count).End(xlUp).Row + 1).ClearContents
    SQL = "Select * FROM COMPRAS" & " WHERE CRUC= '" & Hoja1.Range("E3") & "'order by ID"
    On Error GoTo Salir
    DATOS = ADO_OBTENER_CURSOR_VISTA(CONEXION, SQL)
    For X = 0 To UBound(DATOS, 2)
    For y = 0 To UBound(DATOS, 1)
    xx = X + 8: yy = y + 1
    If yy = 4 Then '<============================
    Hoja1.Cells(xx, yy) = CDate(Trim(DATOS(y, X)))
    Else
    Hoja1.Cells(xx, yy) = Trim(DATOS(y, X))
    End If
    Next
    Next
    Salir:
    CONEXION.Close
    End Sub
    [/CODE]
  9. Upvote
    josekar reacted to AlexanderS in Ajedrez en userform ( no terminado )   
    Es un pequeño proyecto en VBA utilizando un Userform y botones, para recrear este clásico, lo comencé hace algún tiempo, pero por tiempo y tal vez falta de motivación nunca lo termine, sin embargo aunque no esta completo deseo compartir la idea.
    Tiene varios errores y muchas reglas no se aplican correctamente, pues como dije nunca lo termine.
    No tengo ningún inconveniente si alguien se interesa en terminar el proyecto pues yo no creo que lo valla a terminar.
    Salu2
    Ajedrez.rar
  10. Upvote
    josekar reacted to Antoni in Pasar mensajes de outlook a excel   
    Hola:
    Os dejo esta macro a ejecutar desde Outlook que crea un libro Excel con los mensajes de la carpeta escogida.

    Sub ExportToExcel(): On Error Resume Next

    Dim appExcel As Excel.Application
    Dim wkb As Excel.Workbook
    Dim wks As Excel.Worksheet
    Dim nms As Outlook.NameSpace
    Dim fld As Outlook.MAPIFolder
    Dim itm As Object

    'Creamos la instancia a Excel
    Set appExcel = CreateObject("Excel.Application")
    Workbooks.Add
    Set wkb = appExcel.ActiveWorkbook
    Set wks = wkb.ActiveSheet
    appExcel.Application.Visible = True

    'Fila de cabecera
    wks.Range("A1") = "Asunto"
    wks.Range("B1") = "Cuerpo"
    wks.Range("C1") = "Remitente"
    wks.Range("D1") = "Destinatario"
    wks.Range("E1") = "Importancia"
    wks.Range("F1") = "Privacidad"

    'Seleccionamos la carpeta
    Set nms = Application.GetNamespace("MAPI")
    Set fld = nms.PickFolder

    If fld Is Nothing Then
    Exit Sub
    End If

    If fld.DefaultItemType <> olMailItem Or _
    fld.Items.Count = 0 Then
    MsgBox "La carpeta no contiene mensajes de correo electrónico"
    Exit Sub
    End If

    fila = 1
    'Recorremos los mensajes
    For Each itm In fld.Items
    If itm.Class = olMail Then
    fila = fila + 1
    wks.Range("A" & fila) = itm.Subject
    wks.Range("B" & fila) = itm.Body
    wks.Range("C" & fila) = itm.SenderName
    wks.Range("D" & fila) = itm.To
    wks.Range("E" & fila) = itm.Importance
    wks.Range("F" & fila) = itm.Sensitivity
    wks.Range("G" & fila) = itm.CreationTime
    End If
    Next itm

    'Ajustar al texto el cuepo del mensaje
    wks.Range("B:B").WrapText = True
    wks.Columns.ColumnWidth = 25
    wks.Columns("B:B").ColumnWidth = 80
    wks.Cells.VerticalAlignment = xlTop

    MsgBox "*** Proceso de exportación de mensajes terminado correctamente ***"

    '
    'Limpiamos objetos
    Set appExcel = Nothing
    Set wkb = Nothing
    Set wks = Nothing
    Set nms = Nothing
    Set fld = Nothing
    Set itm = Nothing

    End Sub
    [/CODE]
    Saludos
    .
  11. Upvote
    josekar got a reaction from Callao2908 in Macros   
    Buenas tardes
    Envío unas macros que tenia hace bastante tiempo y ayer encontré por casualidad
    Un saludo
    Gracias
    100 Macros.zip
  12. Upvote
    josekar got a reaction from Callao2908 in Macros   
    Buenas tardes
    Envío unas macros que tenia hace bastante tiempo y ayer encontré por casualidad
    Un saludo
    Gracias
    100 Macros.zip
  13. Upvote
    josekar got a reaction from Antoni in Macros   
    Muchas gracias, si lo dice un maestro como tu, para mi tiene un enorme valor
    Un saludo
  14. Upvote
    josekar reacted to Antoni in Macros   
    Sin miedo a exagerar, estas macro solucionan mas del 50% de la consultas habituales. Gracias por el aporte.
  15. Upvote
    josekar reacted to Antoni in Cyber control ayuda   
    .
    En los 5 años que llevo en el foro no había conocido a nadie con la cara tan dura como la tuya.
    Por mi parte no vas a recibir ni una sola respuesta nunca mas.
    .
  16. Upvote
    josekar reacted to digitalboy in Arreglos en vectores y matrices   
    Hola...
    Ya probaste a agregar a inspeccion el ArregloDos? para que veas visualmente que es lo que pasa con tu arreglo. Cuando usas Erase se libera espacio del array, pasa de un Long(1 to 10) a un Long()
    Saludos!
  17. Upvote
    josekar got a reaction from Antoni in Menú sin límites   
    Me a gustado mucho tu aporte, gracias por compartir
    Un saludo
  18. Upvote
    josekar reacted to Antoni in Menú sin límites   
    Hola amado pueblo:
    Hoy va de menús.
    Os dejo un formulario que permite cualquier número de puntos de menú y cualquier número de niveles.
    Cada punto de menú es un label cuyo nombre es la dirección de la celda de la hoja Menú.
    En el módulo de clase Controles, procedimiento Etiqueta_Click() podeis completar el código necesario para cada punto de menú. He puesto unos ejemplos con los primeros puntos del menú.
    La anchura del formulario es automática, pero la altura no.
    Paz y amor
    PD. Y a los seguidores del R. Madrid, deciros que me embarga una profunda tristeza por vuestra derrota de ayer. :D:p
    Macromenús full.xls
  19. Upvote
    josekar reacted to bigpetroman in Función hallar   
    saludos [uSER=96885]@josekar[/uSER], muy buena la utilización de la funcion, en la ultima formula pudieras usar esta también

    =BUSCAR(32768;HALLAR(G2;A2:A20);FILA(A2:A20))[/CODE]
    y así mantienes la misma estructura que las otras formulas
    suerte
  20. Upvote
    josekar got a reaction from Gerson Pineda in Función hallar   
    Buenas tardes
    Una forma de usar la función hallar
    También envío un formulario sorpresa, solo es una pequeña broma, pido perdón por si alguien se ofende
    Gracias
    Un saludo
    José Carlos
    Función hallar.zip
    Userform con sorpresa.zip
  21. Upvote
    josekar got a reaction from Gerson Pineda in Función hallar   
    Buenas tardes
    Una forma de usar la función hallar
    También envío un formulario sorpresa, solo es una pequeña broma, pido perdón por si alguien se ofende
    Gracias
    Un saludo
    José Carlos
    Función hallar.zip
    Userform con sorpresa.zip
  22. Upvote
    josekar reacted to Gerson Pineda in Función hallar   
    Hola Jose
    Para que la formula no sea matricial, combinala con INDICE, tal que

    =COINCIDIR(1,INDICE(HALLAR(G5&G6&G7&G8,A2:A20&B2:B20&C2:C20&D2:D20),0),)+1[/PHP]
    Gracias por compartir
    Saludos
  23. Upvote
    josekar got a reaction from Gerson Pineda in Función hallar   
    Buenas tardes
    Una forma de usar la función hallar
    También envío un formulario sorpresa, solo es una pequeña broma, pido perdón por si alguien se ofende
    Gracias
    Un saludo
    José Carlos
    Función hallar.zip
    Userform con sorpresa.zip
  24. Upvote
    josekar reacted to Antoni in Comentarios en hipervínculos   
    Hola amado pueblo Exceliano, incluidos "los"de las fórmulas:
    Mira tu por donde me ha salido un aporte gracias a una consulta:
    https://www.ayudaexcel.com/foro/threads/es-posible-cambiar-el-color-de-fondo-de-un-comentario-en-un-hipervinculo.38057/#post-185249
    Para ver que hace, abrir el archivo y pasar sobre el hipervínculo.
    ¿Como funciona? Los datos que se muestran salen de la hoja "Mensajes".
    Permite hasta 9 mensajes para una misma celda.
    En cualquier celda, poner un hipervínculo y pulsar Ctrl+Shift+H.
    Esto genera una línea en la hoja "Mensajes" con el "Texto en pantalla" del hipervínculo.
    A partir de aquí, en la hoja "Mensajes" podeis adaptar el mensaje a vuestro gusto.
    Tamaño, fuente, colores y resto de propiedades se cogen de la celda de la columna B.
    Ave.
    Mensajes en hipervínculo.xls
  25. Upvote
    josekar reacted to Antoni in Datos personalizados   
    Me ha gustado.
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png