SOLVED

M.S. EXCEL VBA

%3CLINGO-SUB%20id%3D%22lingo-sub-3343744%22%20slang%3D%22en-US%22%3EM.S.%20EXCEL%20VBA%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-3343744%22%20slang%3D%22en-US%22%3E%3CP%3EHi%2C%20Respected%20Support%20Teams%2C%20I%20want%20some%20TIPS%20regarding%20EXCEL%20VBA%20to%20solve%20my%20problem%20as%20given%20below.%20I%20have%20VBA%20Code%20got%20from%20this%20support%20teams%20and%20used%20it%20in%20my%20project%20as%20given%20below%2C%20but%20it%20not%20works%20properly.%20May%20I%20get%20help%20to%20correct%20the%20same.%26nbsp%3B%3C%2FP%3E%3CP%3EI%20have%20an%20Excel%20work%20book%20Contains%20with%20three%20excel%20sheets%20named%20respectively%201)%20ITEM%20LIST%20%2C%202)%20INVOCE%20%2C%203)%20INVOICELIST.%3C%2FP%3E%3CP%3EI%20would%20like%20to%20enter%20data%20in%20cells%20range%20%22D12%3AD36%22%20as%20'ITEM%20NAME'%20and%20in%20cells%20range%20%22E12%3AE36%22%20as%20'ITEM%20QUANTITY'%20in%20the%20%E2%80%9CINVOICE%E2%80%9D%20Sheet%20along%20with%20%22SAVE%22%20Button.%20When%20I%20press%20%E2%80%9CSAVE%E2%80%9D%20button%20on%20%E2%80%9CINVOICE%E2%80%9D%20Sheet%2C%20and%20then%20that%20data%20range%20from%20(D12%3AD36)%20as%20'ITEM%20NAME%E2%80%99%2C%20(E12%3AE36)%20as%20'ITEM%20QUANTITY'%20and%20cell%20value%20of%20'H44'%20as%20'TOTAL%20INVOICE%20AMOUNT'%20from%20%22INVOICE%22%20Sheet%20would%20be%20transferred%20to%20Column%20cells%20%22D2%3ABB2%22%20of%20%22INVOICE%20LIST%22%20sheet%2C%3C%2FP%3E%3CP%3Eto%20Cell%20no%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%26nbsp%3B%20%22D2%22%2C%22F2%22%2C%22H2%22%2C%22J2%22%2C%22L2%22%2C%22N2%22%2C%22P2%22%2C%22R2%22%2C%22T2%22%2C%22V2%22%2C%22X2%22%2C%22Z2%22%2C%22AB2%22%2C%22AD2%22%2C%22AF2%22%2C%22AH2%22%2C%22AJ2%22%2C%E2%80%9DAL2%E2%80%9D%2C%E2%80%9DAN2%E2%80%9D%2C%E2%80%9D%20AP2%E2%80%9D%2C%E2%80%9DAR2%E2%80%9D%2C%E2%80%9DAT2%E2%80%9D%2C%E2%80%9D%20AV2%E2%80%9D%2C%E2%80%9DAX2%E2%80%9D%2C%22AZ2%22%20as%20'ITEM%20NAME'%26nbsp%3B%26nbsp%3B%26nbsp%3B%3C%2FP%3E%3CP%3Eand%20to%20Cell%20no%3C%2FP%3E%3CP%3E%22E2%22%2C%22G2%22%2C%22I2%22%2C%22K2%22%2C%22M2%22%2C%22O2%22%2C%22Q2%22%2C%22S2%22%2C%22U2%22%2C%22W2%22%2C%22Y2%22%2C%22AA2%22%2C%22AC2%22%2C%22AE2%22%2C%22AG2%22%2C%22AI2%22%2C%22AK2%22%2C%E2%80%9DAM2%E2%80%9D%2C%E2%80%9DAO2%E2%80%9D%2C%E2%80%9DAQ2%E2%80%9D%2C%E2%80%9DAS2%E2%80%9D%2C%E2%80%9DAU2%E2%80%9D%2C%E2%80%9DAW2%E2%80%9D%2C%E2%80%9D%20AY2%E2%80%9D%2C%20%22BA2%22%20as%20'ITEM%20QUANTITY%E2%80%99%20and%20to%20cell%20no%20%22BB2%22%20as%20'TOTAL%20INVOICE%20AMOUNT'%20and%20contains%20of%20schedule%20cell%20of%20%E2%80%9CINVOICE%E2%80%9D%20Sheet%20would%20be%20clear%20except%20FORMULA.%20Then%20if%20I%20enter%20again%20data%20to%20Cell%20range%20%22D12%3AD36%22%20and%20Cell%20range%20%22E12%3AE36%22%20in%20my%20%22INVOICE%22%20Sheet%20for%20create%20new%20invoice%20and%20press%20the%20SAVE%20button%20on%20%22INVOICE%22%20Sheet%20I%20would%20need%20the%20contains%20of%20%22INVOICE%22%20Sheet%20would%20be%20transfer%20except%20FORMULA%20to%20%22INVOICE%20LIST%22%20Sheet%20to%20the%20next%20available%20blank%20row%20%22D3%3ABA3%22%2C%20and%20%E2%80%9CBB3%E2%80%9D%2C%20and%20every%20time%20when%20I%20press%20the%20%22SAVE%20Button%22%20the%20event%20would%20be%20continuing%20to%20happen%20as%20above%20frequently.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EINVOICE%20Sheet!%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CTABLE%20width%3D%22691%22%3E%3CTBODY%3E%3CTR%3E%3CTD%20width%3D%2272%22%3E%26nbsp%3B%3C%2FTD%3E%3CTD%20width%3D%2240%22%3E%26nbsp%3B%3C%2FTD%3E%3CTD%20width%3D%2276%22%3E%26nbsp%3B%3C%2FTD%3E%3CTD%20width%3D%22247%22%3EINVOICE%3C%2FTD%3E%3CTD%20width%3D%2291%22%3EInvoice%20%23%3A%3C%2FTD%3E%3CTD%20width%3D%2281%22%3E1%3C%2FTD%3E%3CTD%20width%3D%2284%22%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3EInvoice%20Date%3C%2FTD%3E%3CTD%3E09-05-2022%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3ECUSTOMER%3A%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3EMAYNA%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3ESr.No.%3C%2FTD%3E%3CTD%3EHSN%20CODE%3C%2FTD%3E%3CTD%3EITEM%20NAME%3C%2FTD%3E%3CTD%3EQty%3C%2FTD%3E%3CTD%3EUnit%20Price%3C%2FTD%3E%3CTD%3ETotal%20Value%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E1%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3EABCD%3C%2FTD%3E%3CTD%3E10%3C%2FTD%3E%3CTD%3E11%3C%2FTD%3E%3CTD%3E110%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E2%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3EABCD%3C%2FTD%3E%3CTD%3E55%3C%2FTD%3E%3CTD%3E11%3C%2FTD%3E%3CTD%3E605%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E3%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E4%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E5%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3EEFGH%3C%2FTD%3E%3CTD%3E17%3C%2FTD%3E%3CTD%3E9%3C%2FTD%3E%3CTD%3E153%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E6%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E7%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E8%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E9%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E10%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E11%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E12%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E13%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E14%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E15%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E16%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E17%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E18%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E19%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E20%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E21%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E22%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E23%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E24%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E25%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3ESub%20Total%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3ETax%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3EDiscount%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3ETotal%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E868%3C%2FTD%3E%3C%2FTR%3E%3C%2FTBODY%3E%3C%2FTABLE%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EINVOICELIST%20Sheet!%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CTABLE%20width%3D%222646%22%3E%3CTBODY%3E%3CTR%3E%3CTD%20width%3D%2272%22%3EINVOICE%20NO%26nbsp%3B%3C%2FTD%3E%3CTD%20width%3D%2272%22%3EDATE%3C%2FTD%3E%3CTD%20width%3D%2284%22%3ECONSUMER%20NAME%3C%2FTD%3E%3CTD%20width%3D%2249%22%3EItem%20NAME%3C%2FTD%3E%3CTD%20width%3D%2242%22%3EQTY%3C%2FTD%3E%3CTD%20width%3D%2249%22%3EItem%20NAME%3C%2FTD%3E%3CTD%20width%3D%2242%22%3EQTY%3C%2FTD%3E%3CTD%20width%3D%2249%22%3EItem%20NAME%3C%2FTD%3E%3CTD%20width%3D%2242%22%3EQTY%3C%2FTD%3E%3CTD%20width%3D%2249%22%3EItem%20NAME%3C%2FTD%3E%3CTD%20width%3D%2242%22%3EQTY%3C%2FTD%3E%3CTD%20width%3D%2249%22%3EItem%20NAME%3C%2FTD%3E%3CTD%20width%3D%2248%22%3EQTY%3C%2FTD%3E%3CTD%20width%3D%2248%22%3EItem%20NAME%3C%2FTD%3E%3CTD%20width%3D%2248%22%3EQTY%3C%2FTD%3E%3CTD%20width%3D%2248%22%3EItem%20NAME%3C%2FTD%3E%3CTD%20width%3D%2248%22%3EQTY%3C%2FTD%3E%3CTD%20width%3D%2248%22%3EItem%20NAME%3C%2FTD%3E%3CTD%20width%3D%2248%22%3EQTY%3C%2FTD%3E%3CTD%20width%3D%2248%22%3EItem%20NAME%3C%2FTD%3E%3CTD%20width%3D%2245%22%3EQTY%3C%2FTD%3E%3CTD%20width%3D%2249%22%3EItem%20NAME%3C%2FTD%3E%3CTD%20width%3D%2245%22%3EQTY%3C%2FTD%3E%3CTD%20width%3D%2249%22%3EItem%20NAME%3C%2FTD%3E%3CTD%20width%3D%2245%22%3EQTY%3C%2FTD%3E%3CTD%20width%3D%2249%22%3EItem%20NAME%3C%2FTD%3E%3CTD%20width%3D%2245%22%3EQTY%3C%2FTD%3E%3CTD%20width%3D%2249%22%3EItem%20NAME%3C%2FTD%3E%3CTD%20width%3D%2245%22%3EQTY%3C%2FTD%3E%3CTD%20width%3D%2249%22%3EItem%20NAME%3C%2FTD%3E%3CTD%20width%3D%2245%22%3EQTY%3C%2FTD%3E%3CTD%20width%3D%2249%22%3EItem%20NAME%3C%2FTD%3E%3CTD%20width%3D%2245%22%3EQTY%3C%2FTD%3E%3CTD%20width%3D%2249%22%3EItem%20NAME%3C%2FTD%3E%3CTD%20width%3D%2245%22%3EQTY%3C%2FTD%3E%3CTD%20width%3D%2249%22%3EItem%20NAME%3C%2FTD%3E%3CTD%20width%3D%2245%22%3EQTY%3C%2FTD%3E%3CTD%20width%3D%2249%22%3EItem%20NAME%3C%2FTD%3E%3CTD%20width%3D%2245%22%3EQTY%3C%2FTD%3E%3CTD%20width%3D%2249%22%3EItem%20NAME%3C%2FTD%3E%3CTD%20width%3D%2245%22%3EQTY%3C%2FTD%3E%3CTD%20width%3D%2249%22%3EItem%20NAME%3C%2FTD%3E%3CTD%20width%3D%2245%22%3EQTY%3C%2FTD%3E%3CTD%20width%3D%2249%22%3EItem%20NAME%3C%2FTD%3E%3CTD%20width%3D%2245%22%3EQTY%3C%2FTD%3E%3CTD%20width%3D%2249%22%3EItem%20NAME%3C%2FTD%3E%3CTD%20width%3D%2245%22%3EQTY%3C%2FTD%3E%3CTD%20width%3D%2249%22%3EItem%20NAME%3C%2FTD%3E%3CTD%20width%3D%2245%22%3EQTY%3C%2FTD%3E%3CTD%20width%3D%2249%22%3EItem%20NAME%3C%2FTD%3E%3CTD%20width%3D%2245%22%3EQTY%3C%2FTD%3E%3CTD%20width%3D%2249%22%3EItem%20NAME%3C%2FTD%3E%3CTD%20width%3D%2245%22%3EQTY%3C%2FTD%3E%3CTD%20width%3D%2272%22%3EVALUE%3C%2FTD%3E%3C%2FTR%3E%3C%2FTBODY%3E%3C%2FTABLE%3E%3CP%3ESub%20SaveData()%3CBR%20%2F%3EDim%20ws%20As%20Worksheet%3CBR%20%2F%3EDim%20wt%20As%20Worksheet%3CBR%20%2F%3EDim%20s%20As%20Long%3CBR%20%2F%3EDim%20t%20As%20Long%3CBR%20%2F%3EDim%20r%20As%20Long%3CBR%20%2F%3EApplication.ScreenUpdating%20%3D%20False%3CBR%20%2F%3ESet%20ws%20%3D%20Worksheets(%22INVOICE%22)%3CBR%20%2F%3ESet%20wt%20%3D%20Worksheets(%22INVOICELIST%22)%3CBR%20%2F%3E'%20Find%20first%20empty%20row%20in%20columns%20D%3ABB%20on%20sheet%20INVOICELIST%3CBR%20%2F%3Et%20%3D%20wt.Range(%22D%3ABA%22).Find(What%3A%3D%22*%22%2C%20SearchOrder%3A%3DxlByRows%2C%20SearchDirection%3A%3DxlPrevious).Row%20%2B%201%3CBR%20%2F%3E'%20Copy%20Item%20Name%20and%20Item%20Quantity%3CBR%20%2F%3EFor%20s%20%3D%201%20To%2025%3CBR%20%2F%3Ewt.Cells(t%2C%202%20*%20s%20%2B%202).Value%20%3D%20ws.Range(%22D%22%20%26amp%3B%20s%20%2B%2024).Value%3CBR%20%2F%3Ewt.Cells(t%2C%202%20*%20s%20%2B%203).Value%20%3D%20ws.Range(%22E%22%20%26amp%3B%20s%20%2B%2024).Value%3CBR%20%2F%3ENext%20s%3CBR%20%2F%3Ewt.Range(%22BB%22%20%26amp%3B%20t).Value%20%3D%20ws.Range(%22H44%22).Value%3CBR%20%2F%3E%3CBR%20%2F%3E'Copy%20inv%20no%3CBR%20%2F%3Ewt.Range(%22A%22%20%26amp%3B%20t).Value%20%3D%20ws.Range(%22G1%22).Value%3CBR%20%2F%3E'Copy%20Date%3CBR%20%2F%3Ewt.Range(%22B%22%20%26amp%3B%20t).Value%20%3D%20ws.Range(%22G2%22).Value%3CBR%20%2F%3E'Copy%20Company%20Name%3CBR%20%2F%3Ewt.Range(%22C%22%20%26amp%3B%20t).Value%20%3D%20ws.Range(%22D3%22).Value%3CBR%20%2F%3E%3CBR%20%2F%3E%3CBR%20%2F%3EApplication.ScreenUpdating%20%3D%20True%3CBR%20%2F%3EEnd%20Sub%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-3343744%22%20slang%3D%22en-US%22%3E%3CLINGO-LABEL%3EExcel%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E%3CLINGO-SUB%20id%3D%22lingo-sub-3344036%22%20slang%3D%22en-US%22%3ERe%3A%20M.S.%20EXCEL%20VBA%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-3344036%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F1383603%22%20target%3D%22_blank%22%3E%40TARUNKANTI1964%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%3CP%3EI've%20made%20very%20little%20modifications%20to%20your%20code.%20Maybe%20this%20is%20what%20you%20want%20to%20do.%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-3344077%22%20slang%3D%22en-US%22%3ERe%3A%20M.S.%20EXCEL%20VBA%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-3344077%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F1383603%22%20target%3D%22_blank%22%3E%40TARUNKANTI1964%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%3CDIV%20class%3D%22%22%3E%3CDIV%20class%3D%22%22%3E%3CP%3EI've%20made%20very%20little%20modifications%20to%20your%20code.%20Maybe%20this%20is%20what%20you%20are%20looking%20for.%3C%2FP%3E%3C%2FDIV%3E%3C%2FDIV%3E%3CDIV%20class%3D%22%22%3E%26nbsp%3B%3C%2FDIV%3E%3CDIV%20class%3D%22%22%3E%3CDIV%20class%3D%22%22%3E%3CDIV%20class%3D%22%22%3E%26nbsp%3B%3C%2FDIV%3E%3C%2FDIV%3E%3C%2FDIV%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-3348821%22%20slang%3D%22en-US%22%3ERe%3A%20M.S.%20EXCEL%20VBA%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-3348821%22%20slang%3D%22en-US%22%3ERespected%20Quadruple_Pawn%2C%3CBR%20%2F%3EYes%20the%20VBA%20Code%20what%20You%20have%20sent%20to%20me%2C%20that%20is%20work%20properly%2C%20what%20I%20am%20wanting.%20I%20have%20no%20language%20to%20express%20You%20%22%20Many%20Many%20Thanks%20Very%20Much%20%22.%3CBR%20%2F%3EShall%20be%20Your%20obidient.%20again%20many%20thanks%20to%20You.%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-3351732%22%20slang%3D%22en-US%22%3ERe%3A%20M.S.%20EXCEL%20VBA%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-3351732%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F1383603%22%20target%3D%22_blank%22%3E%40TARUNKANTI1964%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%3CP%3EYou%20are%20welcome.%20I'm%20glad%20i%20was%20able%20to%20help%20you.%3C%2FP%3E%3C%2FLINGO-BODY%3E
Occasional Contributor

Hi, Respected Support Teams, I want some TIPS regarding EXCEL VBA to solve my problem as given below. I have VBA Code got from this support teams and used it in my project as given below, but it not works properly. May I get help to correct the same. 

I have an Excel work book Contains with three excel sheets named respectively 1) ITEM LIST , 2) INVOCE , 3) INVOICELIST.

I would like to enter data in cells range "D12:D36" as 'ITEM NAME' and in cells range "E12:E36" as 'ITEM QUANTITY' in the “INVOICE” Sheet along with "SAVE" Button. When I press “SAVE” button on “INVOICE” Sheet, and then that data range from (D12:D36) as 'ITEM NAME’, (E12:E36) as 'ITEM QUANTITY' and cell value of 'H44' as 'TOTAL INVOICE AMOUNT' from "INVOICE" Sheet would be transferred to Column cells "D2:BB2" of "INVOICE LIST" sheet,

to Cell no                              "D2","F2","H2","J2","L2","N2","P2","R2","T2","V2","X2","Z2","AB2","AD2","AF2","AH2","AJ2",”AL2”,”AN2”,” AP2”,”AR2”,”AT2”,” AV2”,”AX2”,"AZ2" as 'ITEM NAME'   

and to Cell no

"E2","G2","I2","K2","M2","O2","Q2","S2","U2","W2","Y2","AA2","AC2","AE2","AG2","AI2","AK2",”AM2”,”AO2”,”AQ2”,”AS2”,”AU2”,”AW2”,” AY2”, "BA2" as 'ITEM QUANTITY’ and to cell no "BB2" as 'TOTAL INVOICE AMOUNT' and contains of schedule cell of “INVOICE” Sheet would be clear except FORMULA. Then if I enter again data to Cell range "D12:D36" and Cell range "E12:E36" in my "INVOICE" Sheet for create new invoice and press the SAVE button on "INVOICE" Sheet I would need the contains of "INVOICE" Sheet would be transfer except FORMULA to "INVOICE LIST" Sheet to the next available blank row "D3:BA3", and “BB3”, and every time when I press the "SAVE Button" the event would be continuing to happen as above frequently.

 

INVOICE Sheet!

 

   INVOICEInvoice #:1 
     Invoice Date09-05-2022 
 CUSTOMER: MAYNA    
        
        
        
        
        
        
        
 Sr.No.HSN CODEITEM NAMEQtyUnit PriceTotal Value 
 1 ABCD1011110 
 2 ABCD5511605 
 3      
 4      
 5 EFGH179153 
 6      
 7      
 8      
 9      
 10      
 11      
 12      
 13      
 14      
 15      
 16      
 17      
 18      
 19      
 20      
 21      
 22      
 23      
 24      
 25      
        
    Sub Total  
        
    Tax   
        
    Discount  
        
    Total  868

 

INVOICELIST Sheet!

 

INVOICE NO DATECONSUMER NAMEItem NAMEQTYItem NAMEQTYItem NAMEQTYItem NAMEQTYItem NAMEQTYItem NAMEQTYItem NAMEQTYItem NAMEQTYItem NAMEQTYItem NAMEQTYItem NAMEQTYItem NAMEQTYItem NAMEQTYItem NAMEQTYItem NAMEQTYItem NAMEQTYItem NAMEQTYItem NAMEQTYItem NAMEQTYItem NAMEQTYItem NAMEQTYItem NAMEQTYItem NAMEQTYItem NAMEQTYItem NAMEQTYVALUE

Sub SaveData()
Dim ws As Worksheet
Dim wt As Worksheet
Dim s As Long
Dim t As Long
Dim r As Long
Application.ScreenUpdating = False
Set ws = Worksheets("INVOICE")
Set wt = Worksheets("INVOICELIST")
' Find first empty row in columns D:BB on sheet INVOICELIST
t = wt.Range("D:BA").Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 1
' Copy Item Name and Item Quantity
For s = 1 To 25
wt.Cells(t, 2 * s + 2).Value = ws.Range("D" & s + 24).Value
wt.Cells(t, 2 * s + 3).Value = ws.Range("E" & s + 24).Value
Next s
wt.Range("BB" & t).Value = ws.Range("H44").Value

'Copy inv no
wt.Range("A" & t).Value = ws.Range("G1").Value
'Copy Date
wt.Range("B" & t).Value = ws.Range("G2").Value
'Copy Company Name
wt.Range("C" & t).Value = ws.Range("D3").Value


Application.ScreenUpdating = True
End Sub

 

 

3 Replies
best response confirmed by Grahmfs13 (Microsoft)
Solution

@TARUNKANTI1964 

I've made very little modifications to your code. Maybe this is what you are looking for.

 
 
Respected Quadruple_Pawn,
Yes the VBA Code what You have sent to me, that is work properly, what I am wanting. I have no language to express You " Many Many Thanks Very Much ".
Shall be Your obidient. again many thanks to You.

@TARUNKANTI1964 

You are welcome. I'm glad i was able to help you.