Posts by HEMATINSITE

    MODERATOR NOTICE: This topic has also been posted on other sites and may already have an answer elsewhere. Please take this into consideration when answering this question



    hi dears

    i need this vba code , please help us


    i have 2 excel sheet


    sheet x and sheet y


    sheet x have column b as product name and have 200 row


    i want in sheet x


    1-select b2 and find most similar cell in printarea in sheet y


    2-and then get price from next cell in sheet y (like in sheet y , a45 is most similar and must read price from b45)


    if


    a) find 2 cells with same similar , read price from higher price cell


    3-get price and add with xpercentage in o2 or sum with z2 in sheet y and return price to sheet x cell c2


    4- repeat this ,for all column B in sheet x


    thanks for helping us

    hi dear

    i have this code for convert xlsm to html . i need repeat this code for entireworkbook and

    1-export filename , same as sheet name and in file path

    2-select printarea range for convert each sheet

    3-every sheet,seperate convert to html

    this is code for produce html and only need to 1-repeat for entire workbook and 2-printarea by default selected for each sheets for convert and 3-html name is same as sheet name

    for csv is okey


    for html , have error

    in line : Call PublishOnWeb

    compile error

    sub or function not defined

    Well if you've found the code then try it.


    Also, why do you need html?

    i have online store and from excel change the price and then convert to html and pdf and then show on my site . i want to show with html because it is very lower size and more mobile friendly and responsive . i have a plugin for show table on my site that only work with csv and html format

    thx

    there is 2 issue


    1-for csv vba :

    a) i need make file in same as directory of file.xlsm


    2-for html

    a)i need exact .html export but this code prepare mhtml and must change to html . thx

    b)i need for each sheet make seperate file name and same as sheet name but this vba make book1.html and etc ......

    c)i need make file in same as directory of file.xlsm

    hi dears

    i have excel with 10 sheets and i need vba for convert to 1-html format and 2-csv comma utf8 and 3.txt format

    1-do it for entire workbook automatically and with no question

    2-for each sheet make seperate file name and same as sheet name in my excel file path

    3- printarea by default selected for each sheets , for convert

    thx dear

    hi dears

    i have this 2 macro for excel to jpg convert and work perfectly , but my workbook have 10 sheets and i must repeat this code for every sheets . i need change these codes

    macro a :

    1-for do it for entire workbook automativally and with no question

    2-every export jpg file name is same as sheet name in my excel file path

    3- this macro need select range before run it . i need automatically, printarea by default selected for each sheets , for to convert in jpg .


    hi dears

    i have excel file and after convert to pdf , there are many empty margin in page. but if i convert excel to jpg and with acrobat reader convert jpg to pdf , then there is no margin and empty margin .

    i adjust page zoom,printarea,scale to fit , software printer , print to file , save as pdf and etc .

    are have any macro to do it for entire workbook , without any empty margin ? if these macro have these option is very good

    1- printarea by default selected for each sheets , for to convert in pdf

    2-export pdf use minimum size pdf format .

    3-TOTAL MARGIN SET 0.25 INCH


    Code
    1. Option Explicit
    2. Sub Print_PDF()
    3. Dim Awb As Workbook
    4. Dim Snr As Integer
    5. Dim ws As Worksheet
    6. Set Awb = ActiveWorkbook For Each ws In Awb.Sheets If Not ws.Name = "Sheet1" Then 'Sheets(ws.Name).Copy Awb.Sheets(ws.Name).Copy 'Sheets(ws.Name).Select ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ Awb.Path & "\" & Awb.Sheets(ws.Name).Name & ".pdf", _ Quality:=xlQualityStandard, IncludeDocProperties:=True, _ IgnorePrintAreas:=False, OpenAfterPublish:=False ActiveWindow.Close False End If
    7. Next ws
    8. end sub



    for example i attached xlsm file to try on it in google drive