Posts by Mar7872

    Hi !


    I would like export the file to xlsx with embedded photos directly in the file. At this point, the file is exported to xlsx but when i open this file in another pc ,photos are not displayed.




    The current code responsible for export to xlsx:

    Code
    Application.DisplayAlerts = False
    
        ActiveWorkbook.Sheets("ASORTYMENT").Copy
        ActiveWorkbook.SaveAs Filename:="C:\Autokosmet\" & "testing", FileFormat:=51, CreateBackup:=False
        ActiveWorkbook.Close
    
        Application.DisplayAlerts = True



    FULL CODE which is designed to pair the table rows with photos ( they are in local folder).

    Please look below

    Hello !


    i need help modifying the code below. the code only lacks the centering of the photo in the cells, the rest works smoothly. The width and height of the cell is set earlier.
    Thx for help!

    Hello,


    Maybe someone can help me with the condition below . Thx for help.



    Code
    Dim cell As Range
    
    For Each cell In Range("query1[Column5]")
    If cell.Value =1 then...
    
    'copy cell from Column2 and paste it into Column1. all on the same line where the condition is currently being checked. If the cell does not meet the condition, leave it as is and move to the next row
    
    end IF
    next cell