Jump to content

Antoni

Members
  • Content Count

    10,473
  • Joined

  • Last visited

  • Days Won

    604

Reputation Activity

  1. Thanks
    Antoni got a reaction from paikerr in PROBLEMA ARRAY   
    Directamente de la ayuda de vba: Función Array()
    Nada más que añadir.
     
    .
     
  2. Like
    Antoni got a reaction from tierra_pampa in Imprimir calendario de trabajo por semanas   
    Prueba a ver si es eso.
    Abre el adjunto y pulsa sobre el rectángulo azul.
     
    Modelo2.xlsm
  3. Like
    Antoni reacted to Ihm in Imprimir calendario de trabajo por semanas   
    Antoni,
    Muchisimas gracias. Es exactamente lo que necesitaba.
    Saludos,
    Ignacio
  4. Like
    Antoni reacted to AlexanderS in Consulta sobre ejecutar macro n veces en un rango de celdas   
    Hola @Galactico, en ese caso debes buscar como utilizar los ciclos while, te adjunto un código que recorre un rango de celdas colocando un número aleatorio y con el while indico que la instrucción debe repetirse hasta que el número que entrega sea mayor a 50.
    Sub aleatoreo() Dim c As Range For Each c In Range("A1:A7") num = 0 While num < 50 ' El ciclo while se repite si num es menor a 50 num = Int((100 * Rnd) + 1) 'Generamos un número aleatorio Wend c = num Next End Sub Saludos.
  5. Thanks
    Antoni reacted to JSDJSD in DESACTIVAR CASILLAS EN FORMULARIO MULTIPAGINA   
  6. Thanks
    Antoni got a reaction from paikerr in DESACTIVAR CASILLAS EN FORMULARIO MULTIPAGINA   
    Revisa el adjunto.
    CONTACTOS.xlsm
  7. ¡Excelente!
    Antoni got a reaction from nickmartinez in Hallar caractér de un texto y eliminarlo   
    Sql = Replace(Replace(TextBox1, ".", ""), ",", ".")  
  8. Thanks
    Antoni got a reaction from paikerr in DESACTIVAR CASILLAS EN FORMULARIO MULTIPAGINA   
    Revisa el adjunto.
    CONTACTOS.xlsm
  9. Thanks
    Antoni got a reaction from paikerr in DESACTIVAR CASILLAS EN FORMULARIO MULTIPAGINA   
    Revisa el adjunto.
    CONTACTOS.xlsm
  10. Like
    Antoni reacted to JSDJSD in Macro que compare 2 listas teniendo 2 criterios y muestra resultado en otra hoja   
    Prueba y comenta

    Reportes v1.xlsm
  11. Like
    Antoni got a reaction from Jose BN in Desproteger hoja Excel   
    En mi PC, 21 segundos cada 1.000 intentos, o sea un montón de horas. 
  12. Like
    Antoni got a reaction from Jose BN in Extraer imagenes a excel de una carpeta con VBA   
    En la hoja:
    Private Sub Worksheet_Change(ByVal Target As Range) '--------------------------------- 'Inserta la imagen de la columna A '--------------------------------- If Target.Address Like "$A$*" Then InsertarImagen Target End Sub En un módulo:
    Sub InsertarImágenes() '-------------------------- 'Inserta todas las imágenes '-------------------------- Dim x As Long For x = 8 To Range("A" & Rows.Count).End(xlUp).Row InsertarIagen Range("A" & x) Next End Sub '------------------------------------------------------- Sub InsertarImagen(Imagen As Range): On Error Resume Next Dim Archivo As String '------------------ 'Inserta una imagen '------------------ Application.ScreenUpdating = False ActiveSheet.Shapes(Imagen.Address).Delete Imagen = ThisWorkbook.Path & "\Coches\" & Imagen.Value & ".jpg" ActiveSheet.Pictures.Insert(Archivo).Select With Selection.ShapeRange .LockAspectRatio = False .Name = Imagen.Address .Top = Imagen.Offset(0, 1).Top .Left = Imagen.Offset(0, 1).Left .Width = Imagen.Offset(0, 1).Width .Height = Imagen.Offset(0, 1).Height End With ActiveCell.Select Application.ScreenUpdating = True End Sub No me queda claro si también quieres obtener la lista de las imágenes de la carpeta Coches para luego validar la columna A.
  13. Thanks
    Antoni got a reaction from paikerr in DESACTIVAR CASILLAS EN FORMULARIO MULTIPAGINA   
    Sube el archivo, nadie se va a generar el entorno para poder probar y responder a tu consulta, al menos yo.
  14. Thanks
    Antoni got a reaction from paikerr in DESACTIVAR CASILLAS EN FORMULARIO MULTIPAGINA   
    Sube el archivo, nadie se va a generar el entorno para poder probar y responder a tu consulta, al menos yo.
  15. Like
    Antoni got a reaction from YianTheJOP in Copiar y pegar según dato de su derecha   
    Sin el archivo no hay nada que hacer. Revisa las normas del foro, por favor.
  16. Like
    Antoni got a reaction from JSDJSD in Copiar y pegar según dato de su derecha   
    Si te entendido bien, esta sería la macro:
    Sub TraspasarVIN() With Selection .Font.Color = vbRed 'Color rojo a celda activa [L6] = "" [O6] = "" Select Case .Offset(0, 1) Case "Nuevo": [L6] = .Value Case "Antiguo": [O6] = .Value End Select End With End Sub ¡Vaya! parece que he llegado tarde. 😉
  17. Like
    Antoni got a reaction from JSDJSD in Copiar y pegar según dato de su derecha   
    Si te entendido bien, esta sería la macro:
    Sub TraspasarVIN() With Selection .Font.Color = vbRed 'Color rojo a celda activa [L6] = "" [O6] = "" Select Case .Offset(0, 1) Case "Nuevo": [L6] = .Value Case "Antiguo": [O6] = .Value End Select End With End Sub ¡Vaya! parece que he llegado tarde. 😉
  18. Thanks
    Antoni reacted to YianTheJOP in Copiar y pegar según dato de su derecha   
    Nunca llegáis tarde, os tiene que quedar claro. Estoy seguro de que como yo, gente en el anonimato que se nutre de genios, hay muchos. Y ya sabéis como es esto de internet, todo se guarda.
    Así que tenéis que tener claro que lo que hacéis, todos, es dejar un gran legado.
     
    Mil gracias.
  19. Like
    Antoni reacted to JSDJSD in Copiar y pegar según dato de su derecha   
    Prueba y comenta

    GenCv3.xlsm
  20. Like
    Antoni got a reaction from ikanni in Formato a texto entre dos caracteres   
    ¿Y la de ikanni? 😒
  21. Like
    Antoni got a reaction from Fran_ in Formato a texto entre dos caracteres   
    Lo mismo que ikanni, pero de otra forma.
    Selecciona el rango de celdas y ejecuta la macro.
    Sub ItalicText() For Each Texto In Selection With Texto i = InStr(.Value, "<i>") f = InStr(.Value, "</i>") If f > i And i > 0 Then .Value = Replace(.Value, "<i>", "") .Value = Replace(.Value, "</i>", "") .Characters(i, f - i - 3).Font.Italic = True End If End With Next End Sub  
  22. Like
    Antoni got a reaction from Jose BN in comentarios en un control activeX   
    En los controles ActiveX en un formulario existe la propiedad .ControlTipText, pero en los controles insertados directamente en la hoja, no.
    Una solución bastante chapucilla consiste en insertar un label  junto al botón con el texto de ayuda, con la propiedad .Visible = False y luego haciendo click derecho sobre el botón para mostrarlo/ocultarlo de forma alternativa.
     
    Private Sub CommandButton1_MouseDown(ByVal Button As Integer, _ ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single) Label1.Visible = Not Label1.Visible End Sub  
  23. Like
    Antoni reacted to Sergio in Obtener ruta local del libro de Excel   
    Gracias Antoni.
    Tu código me devuelve la ruta de SharePoint.
    He seguido buscando y he encontrado esta web donde hay un código que sí funciona:
    https://stackoverflow.com/questions/33734706/excels-fullname-property-with-onedrive
    Gracias de nuevo,
  24. ¡Excelente!
    Antoni got a reaction from nickmartinez in Hallar caractér de un texto y eliminarlo   
    Elimina todos los puntos por medio de un bucle:
    Private Sub CommandButton1_Click() With TextBox1 Do Until InStr(.Value, ".") = 0 .Value = Left(.Value, InStr(.Value, ".") - 1) & Mid(.Value, InStr(.Value, ".") + 1) Loop End With End Sub Aunque  es mas correcto así:
    Private Sub CommandButton1_Click() TextBox1 = Replace(TextBox1, ".", "") End Sub  
  25. Like
    Antoni reacted to ofol in COMBINAR CELDAS SEGÚN EL VALOR ASIGNADO   
    Querido @Antoni
    Le agradezco por el código para combinar, esta perfecto. 🙂
    Gracias 
    Doy por solucionado este tema
×
×
  • Create New...

Important Information

Privacy Policy