Home

Need help Help with Excel

%3CLINGO-SUB%20id%3D%22lingo-sub-870246%22%20slang%3D%22en-US%22%3ENeed%20help%20Help%20with%20Excel%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-870246%22%20slang%3D%22en-US%22%3E%3CP%3EHi%20all%2C%3C%2FP%3E%3CP%3Ei%20have%20tried%20a%20few%20things%20without%20success%20so%20turning%20to%20the%20pros...%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3Ecustomer%20records%20with%20data%20that%20is%20left%20to%20right%20as%20standard.%20%26nbsp%3BOne%20column%20is%20a%20yes%20or%20no%20answer.%20%26nbsp%3BI%20need%20anything%20with%20the%20yes%20answer%20to%20copy%20into%20a%20secondary%20sheet.%20%26nbsp%3BFor%20the%20life%20of%20me%2C%20I%20cannot%20get%20this%20to%20work%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3Ecolumns%20read%20left%20to%20right%20as%20follows%3A%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3Edate%3B%20name%3B%20Speech%3B%20Diet%3B%20Physio%3B%20OT%3B%20OT%20req%3B%20Client%20Type%3B%20Location%3B%20Comment%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3ESpeech%20is%20the%20column%20that%E2%80%99s%20needs%20to%20be%20copied%20on%20a%20yes%20field%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EHELP%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-LABS%20id%3D%22lingo-labs-870246%22%20slang%3D%22en-US%22%3E%3CLINGO-LABEL%3EExcel%3C%2FLINGO-LABEL%3E%3CLINGO-LABEL%3EFormulas%20and%20Functions%3C%2FLINGO-LABEL%3E%3C%2FLINGO-LABS%3E%3CLINGO-SUB%20id%3D%22lingo-sub-870270%22%20slang%3D%22en-US%22%3ERe%3A%20Need%20help%20Help%20with%20Excel%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-870270%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F413541%22%20target%3D%22_blank%22%3E%40Djrtmum%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%3CP%3EWhat%20did%20you%20try%20which%20didn't%20work%3F%3C%2FP%3E%3CP%3EThere%20are%20several%20ways%20to%20achieve%20this%2C%20Formulas%2C%20Advanced%20Filter%20or%20Macro.%20Which%20way%20would%20you%20prefer%3F%3C%2FP%3E%3CP%3ECan%20you%20upload%20a%20small%20sample%20file%20with%20the%20layout%20as%20your%20original%20file%20has%20and%20mock%20up%20the%20desired%20output%20manually%20on%20another%20sheet%3F%3C%2FP%3E%3CP%3EOnce%20the%20Yes%20data%20is%20transferred%20to%20another%20sheet%2C%20would%20you%20like%20to%20delete%20it%20from%20the%20original%20sheet%3F%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-870385%22%20slang%3D%22en-US%22%3ERe%3A%20Need%20help%20Help%20with%20Excel%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-870385%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F394231%22%20target%3D%22_blank%22%3E%40Subodh_Tiwari_sktneer%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3Ethanks-%20you%20for%20replying%2C%20it%20must%20stay%20on%20the%20first%20sheet%20as%20well.%20%26nbsp%3BI%20tried%20vlookup%20%26nbsp%3Band%20if%20formula%2C%20I%20keep%20getting%20error.%20%26nbsp%3BI%20know%20it%E2%80%99s%20reasonable%20simple%2C%20just%20not%20quite%20getting%20it%2C%20so%20turn%20to%20the%20pros.%20%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CTABLE%3E%3CTBODY%3E%3CTR%3E%3CTD%3EENQUIRY%20DATE%3C%2FTD%3E%3CTD%3ENAME%3C%2FTD%3E%3CTD%3ESpeech%3C%2FTD%3E%3CTD%3EDiet%3C%2FTD%3E%3CTD%3EPhysio%3C%2FTD%3E%3CTD%3EOT%3C%2FTD%3E%3CTD%3EOT%20REQUIREMENT%3C%2FTD%3E%3CTD%3ECLIENT%20TYPE%3C%2FTD%3E%3CTD%3ELOCATION%3C%2FTD%3E%3CTD%3ESOURCE%20OF%20REFERRAL%3C%2FTD%3E%3CTD%3E%3CDIV%3EOffer%20to%20Assist%3C%2FDIV%3E%3C%2FTD%3E%3CTD%3E%3CDIV%3EUnable%20to%20Assist%3C%2FDIV%3E%3C%2FTD%3E%3CTD%3E%3CDIV%3EDATE%20PD%20INPUT%3C%2FDIV%3E%3C%2FTD%3E%3CTD%3E%3CDIV%3EASANA%20TASKED%3C%2FDIV%3E%3C%2FTD%3E%3CTD%3ENOTES%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%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%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E28%2F8%2F19%3C%2FTD%3E%3CTD%3EPhil%3C%2FTD%3E%3CTD%3EYES%3C%2FTD%3E%3CTD%3ENO%3C%2FTD%3E%3CTD%3ENO%3C%2FTD%3E%3CTD%3ENO%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3EPRIVATE%20PAY%3C%2FTD%3E%3CTD%3EToowoomba%3C%2FTD%3E%3CTD%3ESIBLING%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%3ETried%20to%20call%20to%20offer%20an%20app%20after%20email%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%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%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E29%2F8%2F19%3C%2FTD%3E%3CTD%3ELarkin%3C%2FTD%3E%3CTD%3ENO%3C%2FTD%3E%3CTD%3EYES%3C%2FTD%3E%3CTD%3ENO%3C%2FTD%3E%3CTD%3ENO%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3ENDIS%20AGENCY%3C%2FTD%3E%3CTD%3EToowoomba%3C%2FTD%3E%3CTD%3ENDIS%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%3EY%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%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%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E30%2F8%2F19%3C%2FTD%3E%3CTD%3ECaitlyn%3C%2FTD%3E%3CTD%3ENO%3C%2FTD%3E%3CTD%3ENO%3C%2FTD%3E%3CTD%3EYES%3C%2FTD%3E%3CTD%3ENO%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3ENDIS%20SELF%3C%2FTD%3E%3CTD%3EToowoomba%3C%2FTD%3E%3CTD%3EWEBSITE%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%3EY%3C%2FTD%3E%3CTD%3EAlso%20first%20Speech%20assessment%2027%2F09%2F2019%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%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%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E30%2F8%2F19%3C%2FTD%3E%3CTD%3EWilliam%3C%2FTD%3E%3CTD%3ENO%3C%2FTD%3E%3CTD%3ENO%3C%2FTD%3E%3CTD%3ENO%3C%2FTD%3E%3CTD%3EYES%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3EPRIVATE%20PAY%3C%2FTD%3E%3CTD%3EToowoomba%3C%2FTD%3E%3CTD%3EWEBSITE%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%3EY%3C%2FTD%3E%3CTD%3EAlso%20first%20Speech%20Assessment%2025%2F09%2F2019%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%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%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E23%2F8%2F19%3C%2FTD%3E%3CTD%3ERichter%3C%2FTD%3E%3CTD%3EYES%3C%2FTD%3E%3CTD%3EYES%3C%2FTD%3E%3CTD%3ENO%3C%2FTD%3E%3CTD%3ENO%3C%2FTD%3E%3CTD%3ETHERAPY%20(eg%20asd%20etc)%3C%2FTD%3E%3CTD%3EDVA%3C%2FTD%3E%3CTD%3EToowoomba%3C%2FTD%3E%3CTD%3EWORD%20OF%20MOUTH%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%3ENeeding%20basic%20OT%20in%20Beenleigh%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%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%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3C%2FTR%3E%3CTR%3E%3CTD%3E2%2F8%2F19%3C%2FTD%3E%3CTD%3EAlva%3C%2FTD%3E%3CTD%3EYES%3C%2FTD%3E%3CTD%3ENO%3C%2FTD%3E%3CTD%3EYES%3C%2FTD%3E%3CTD%3ENO%3C%2FTD%3E%3CTD%3E%26nbsp%3B%3C%2FTD%3E%3CTD%3ENDIS%20AGENCY%3C%2FTD%3E%3CTD%3EChinchilla%3C%2FTD%3E%3CTD%3EHOME%20INSTEAD%3C%2FTD%3E%3C%2FTR%3E%3C%2FTBODY%3E%3C%2FTABLE%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-870589%22%20slang%3D%22en-US%22%3ERe%3A%20Need%20help%20Help%20with%20Excel%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-870589%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F413541%22%20target%3D%22_blank%22%3E%40Djrtmum%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%3CP%3EYou%20may%20try%20something%20like%20this...%3C%2FP%3E%3CPRE%20class%3D%22lia-code-sample%20language-markup%22%3E%3CCODE%3ESub%20CopyDataForYesSpeech()%0ADim%20wsData%20%20%20%20%20%20As%20Worksheet%0ADim%20wsOutput%20%20%20%20As%20Worksheet%0ADim%20lr%20%20%20%20%20%20%20%20%20%20As%20Long%0A%0AApplication.ScreenUpdating%20%3D%20False%0A%0ASet%20wsData%20%3D%20Worksheets(%22Sheet1%22)%20%20%20%20%20%20%20%20%20%20%20'Sheet%20with%20Data%0Alr%20%3D%20wsData.Cells(Rows.Count%2C%203).End(xlUp).Row%0AOn%20Error%20Resume%20Next%0ASet%20wsOutput%20%3D%20Worksheets(%22Speech-Yes%22)%20%20%20%20%20'Name%20of%20Output%20Sheet%0AwsOutput.Cells.Clear%0AOn%20Error%20GoTo%200%0A%0AIf%20wsOutput%20Is%20Nothing%20Then%0A%20%20%20%20Set%20wsOutput%20%3D%20Worksheets.Add(after%3A%3DwsData)%0A%20%20%20%20wsOutput.Name%20%3D%20%22Speech-Yes%22%20%20%20%20%20%20%20%20%20%20%20%20'Name%20of%20Output%20Sheet%0AEnd%20If%0AwsData.AutoFilterMode%20%3D%20False%0A%0AWith%20wsData.Range(%22A1%22).CurrentRegion%0A%20%20%20%20.AutoFilter%20field%3A%3D3%2C%20Criteria1%3A%3D%22YES%22%0A%20%20%20%20.SpecialCells(xlCellTypeVisible).Copy%20wsOutput.Range(%22A1%22)%0A%20%20%20%20wsData.Range(%22C2%3AC%22%20%26amp%3B%20lr).SpecialCells(xlCellTypeVisible).EntireRow.Delete%0A%20%20%20%20.AutoFilter%0AEnd%20With%0A%0AwsOutput.UsedRange.Columns.AutoFit%0AwsOutput.Select%0AApplication.ScreenUpdating%20%3D%20True%0AEnd%20Sub%3C%2FCODE%3E%3C%2FPRE%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EIn%20the%20attached%2C%20click%20on%20the%20button%20called%20%22Transfer%20Data%22%20on%20Sheet1%20to%20run%20the%20code.%3C%2FP%3E%3CP%3EThe%20code%20will%20transfer%20all%20the%20data%20from%20Sheet1%20to%20a%20new%20sheet%20called%20%22Speech-Yes%22.%20You%20may%20change%20the%20name%20of%20the%20Data%20and%20Output%20Sheets%20as%20per%20your%20requirement.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-876667%22%20slang%3D%22en-US%22%3ERe%3A%20Need%20help%20Help%20with%20Excel%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-876667%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F394231%22%20target%3D%22_blank%22%3E%40Subodh_Tiwari_sktneer%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EThanks%20so%20much%2C%20I%20have%20changed%20it%20slightly%20but%20cannot%20find%20the%20removal%20for%20deleting%20records.%26nbsp%3B%20I%20need%20to%20keep%20all%20records%20with%20the%20transfer%20of%20speech%20records%20to%20move%20to%20the%20other%20sheet.%26nbsp%3B%20No%20deletion.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EYou%20assistance%20is%20very%20much%20appreciated%26nbsp%3B%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-876692%22%20slang%3D%22en-US%22%3ERe%3A%20Need%20help%20Help%20with%20Excel%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-876692%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F415573%22%20target%3D%22_blank%22%3E%40djrtmum490%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%3CP%3EPlease%20rephrase%20your%20requirement%20as%20it%20is%20not%20clear.%3C%2FP%3E%3CP%3ELet%20me%20know%20which%20assumption%20is%20correct%3F%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3COL%3E%3CLI%3EOnce%20the%20data%20from%20mock%20intake%20Sheet%2C%20where%20column%20C%20has%20Yes%2C%20is%20transferred%20to%20Speech-Yes%20Sheet%2C%20you%20don't%20want%20to%20delete%20the%20data%20from%20mock%20intake%20Sheet%20which%20was%20transferred%20to%20Speech-Yes%20Sheet.%3C%2FLI%3E%3CLI%3EYou%20want%20to%20transfer%20the%20data%20from%20mock%20intake%20Sheet%20to%20the%20Speech-Yes%22%20Sheet%20but%20don't%20want%20to%20delete%20the%20existing%20data%20on%20Speech-Yes%20Sheet%20and%20copy%20the%20data%20below%20the%20existing%20data%20on%20Speech-Yes%20Sheet.%20And%20delete%20the%20data%20from%20mock%20intake%20which%20got%20transferred%20to%20the%20Speech-Yes%20Sheet.%3C%2FLI%3E%3C%2FOL%3E%3CP%3EYou%20could%20simple%20prepare%20the%20sample%20file%20with%20the%20following%20sheets%20to%20show%20the%20end%20result%20you%20are%20trying%20to%20achieve...%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%3CU%3E%3CSTRONG%3ESheet1%20(mock%20intake)%3A%3C%2FSTRONG%3E%3C%2FU%3E%3C%2FP%3E%3CP%3EThis%20should%20be%20the%20sheet%20with%20the%20original%20data%20before%20the%20macro%20runs.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%3CU%3E%3CSTRONG%3ESheet2%20(mock%20intake%20After)%3A%3C%2FSTRONG%3E%3C%2FU%3E%3C%2FP%3E%3CP%3EThis%20should%20be%20the%20sheet%20which%20should%20contain%20the%20data%20after%20the%20macro%20is%20runs.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%3CU%3E%3CSTRONG%3ESheet3%20(Speech-Yes%20Before)%3A%3C%2FSTRONG%3E%3C%2FU%3E%3C%2FP%3E%3CP%3EThis%20should%20be%20the%20sheet%20with%20the%20existing%20data%20if%20any%20before%20the%20macro%20runs.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%3CU%3E%3CSTRONG%3ESheet4%20(Speech-Yes%20After)%3A%3C%2FSTRONG%3E%3C%2FU%3E%3C%2FP%3E%3CP%3EThis%20should%20be%20the%20sheet%20with%20the%20transferred%20data%20after%20the%20macro%20runs.%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3EIf%20required%20upload%20a%20sample%20workbook%20with%20the%20sheets%20as%20mentioned%20above%20but%20data%20should%20not%20be%20more%20than%2010%20rows.%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-876699%22%20slang%3D%22en-US%22%3ERe%3A%20Need%20help%20Help%20with%20Excel%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-876699%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F394231%22%20target%3D%22_blank%22%20rel%3D%22noopener%22%3E%40Subodh_Tiwari_sktneer%3C%2FA%3E%3CSPAN%3E%26nbsp%3B%3C%2FSPAN%3E%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%3CSPAN%3Esorry%20about%20the%20extra%20lines%2C%20I%20was%20adding%20data%20to%20check%20through.%20Otherwise%2C%20d%3C%2FSPAN%3E%3CSPAN%3Eon't%20worry%20about%20my%20last...%20worked%20it%20out%3C%2FSPAN%3E%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%3CSPAN%3EIt%20wasnt%20deleting%20it%20was%20sorting.%26nbsp%3B%20%3C%2FSPAN%3E%3C%2FP%3E%3CP%3E%26nbsp%3B%3C%2FP%3E%3CP%3E%3CSPAN%3EThank-you%20so%20very%20much%3C%2FSPAN%3E%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-876718%22%20slang%3D%22en-US%22%3ERe%3A%20Need%20help%20Help%20with%20Excel%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-876718%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F415573%22%20target%3D%22_blank%22%3E%40djrtmum490%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%3CP%3EYou're%20welcome!%20Glad%20it%20worked%20as%20desired.%3C%2FP%3E%3CP%3EPlease%20take%20a%20minute%20to%20accept%20the%20post%20with%20the%20proposed%20solution%20as%20a%20Best%20Response%2FAnswer%20to%20mark%20your%20question%20as%20Solved.%3C%2FP%3E%3C%2FLINGO-BODY%3E%3CLINGO-SUB%20id%3D%22lingo-sub-876764%22%20slang%3D%22en-US%22%3ERe%3A%20Need%20help%20Help%20with%20Excel%3C%2FLINGO-SUB%3E%3CLINGO-BODY%20id%3D%22lingo-body-876764%22%20slang%3D%22en-US%22%3E%3CP%3E%3CA%20href%3D%22https%3A%2F%2Ftechcommunity.microsoft.com%2Ft5%2Fuser%2Fviewprofilepage%2Fuser-id%2F415573%22%20target%3D%22_blank%22%3E%40djrtmum490%3C%2FA%3E%26nbsp%3B%3C%2FP%3E%3CP%3ETo%20mark%20a%20post%20as%20a%20Best%20Response%2C%20you%20will%20find%20a%20button%20called%20%3CSTRONG%3EMark%20as%20Best%20Response%3C%2FSTRONG%3E%20below%20the%20post%20and%20you%20only%20need%20to%20click%20that%20button.%3C%2FP%3E%3CP%3EPlease%20refer%20to%20following%20image...%3C%2FP%3E%3CP%3E%3CSPAN%20class%3D%22lia-inline-image-display-wrapper%20lia-image-align-inline%22%20style%3D%22width%3A%20429px%3B%22%3E%3CIMG%20src%3D%22https%3A%2F%2Fgxcuf89792.i.lithium.com%2Ft5%2Fimage%2Fserverpage%2Fimage-id%2F133617i659F766903B88D12%2Fimage-size%2Flarge%3Fv%3D1.0%26amp%3Bpx%3D999%22%20alt%3D%22Best%20Response.jpg%22%20title%3D%22Best%20Response.jpg%22%20%2F%3E%3C%2FSPAN%3E%3C%2FP%3E%3C%2FLINGO-BODY%3E
Djrtmum
New Contributor

Hi all,

i have tried a few things without success so turning to the pros...

 

customer records with data that is left to right as standard.  One column is a yes or no answer.  I need anything with the yes answer to copy into a secondary sheet.  For the life of me, I cannot get this to work

 

columns read left to right as follows:

 

date; name; Speech; Diet; Physio; OT; OT req; Client Type; Location; Comment

 

Speech is the column that’s needs to be copied on a yes field 

 

HELP

8 Replies

@Djrtmum 

What did you try which didn't work?

There are several ways to achieve this, Formulas, Advanced Filter or Macro. Which way would you prefer?

Can you upload a small sample file with the layout as your original file has and mock up the desired output manually on another sheet?

Once the Yes data is transferred to another sheet, would you like to delete it from the original sheet?

@Subodh_Tiwari_sktneer 

 

thanks- you for replying, it must stay on the first sheet as well.  I tried vlookup  and if formula, I keep getting error.  I know it’s reasonable simple, just not quite getting it, so turn to the pros.  

 

ENQUIRY DATENAMESpeechDietPhysioOTOT REQUIREMENTCLIENT TYPELOCATIONSOURCE OF REFERRAL
Offer to Assist
Unable to Assist
DATE PD INPUT
ASANA TASKED
NOTES                
28/8/19PhilYESNONONO PRIVATE PAYToowoombaSIBLING    Tried to call to offer an app after email                
29/8/19LarkinNOYESNONO NDIS AGENCYToowoombaNDIS   Y                 
30/8/19CaitlynNONOYESNO NDIS SELFToowoombaWEBSITE   YAlso first Speech assessment 27/09/2019                
30/8/19WilliamNONONOYES PRIVATE PAYToowoombaWEBSITE   YAlso first Speech Assessment 25/09/2019                
23/8/19RichterYESYESNONOTHERAPY (eg asd etc)DVAToowoombaWORD OF MOUTH    Needing basic OT in Beenleigh                
2/8/19AlvaYESNOYESNO NDIS AGENCYChinchillaHOME INSTEAD

@Djrtmum 

You may try something like this...

Sub CopyDataForYesSpeech()
Dim wsData      As Worksheet
Dim wsOutput    As Worksheet
Dim lr          As Long

Application.ScreenUpdating = False

Set wsData = Worksheets("Sheet1")           'Sheet with Data
lr = wsData.Cells(Rows.Count, 3).End(xlUp).Row
On Error Resume Next
Set wsOutput = Worksheets("Speech-Yes")     'Name of Output Sheet
wsOutput.Cells.Clear
On Error GoTo 0

If wsOutput Is Nothing Then
    Set wsOutput = Worksheets.Add(after:=wsData)
    wsOutput.Name = "Speech-Yes"            'Name of Output Sheet
End If
wsData.AutoFilterMode = False

With wsData.Range("A1").CurrentRegion
    .AutoFilter field:=3, Criteria1:="YES"
    .SpecialCells(xlCellTypeVisible).Copy wsOutput.Range("A1")
    wsData.Range("C2:C" & lr).SpecialCells(xlCellTypeVisible).EntireRow.Delete
    .AutoFilter
End With

wsOutput.UsedRange.Columns.AutoFit
wsOutput.Select
Application.ScreenUpdating = True
End Sub

 

In the attached, click on the button called "Transfer Data" on Sheet1 to run the code.

The code will transfer all the data from Sheet1 to a new sheet called "Speech-Yes". You may change the name of the Data and Output Sheets as per your requirement.

 

 

 

@Subodh_Tiwari_sktneer 

 

Thanks so much, I have changed it slightly but cannot find the removal for deleting records.  I need to keep all records with the transfer of speech records to move to the other sheet.  No deletion.

 

You assistance is very much appreciated 

 

@djrtmum490 

Please rephrase your requirement as it is not clear.

Let me know which assumption is correct?

 

  1. Once the data from mock intake Sheet, where column C has Yes, is transferred to Speech-Yes Sheet, you don't want to delete the data from mock intake Sheet which was transferred to Speech-Yes Sheet.
  2. You want to transfer the data from mock intake Sheet to the Speech-Yes" Sheet but don't want to delete the existing data on Speech-Yes Sheet and copy the data below the existing data on Speech-Yes Sheet. And delete the data from mock intake which got transferred to the Speech-Yes Sheet.

You could simple prepare the sample file with the following sheets to show the end result you are trying to achieve...

 

Sheet1 (mock intake):

This should be the sheet with the original data before the macro runs.

 

Sheet2 (mock intake After):

This should be the sheet which should contain the data after the macro is runs.

 

Sheet3 (Speech-Yes Before):

This should be the sheet with the existing data if any before the macro runs.

 

Sheet4 (Speech-Yes After):

This should be the sheet with the transferred data after the macro runs.

 

If required upload a sample workbook with the sheets as mentioned above but data should not be more than 10 rows.

@Subodh_Tiwari_sktneer 

 

sorry about the extra lines, I was adding data to check through. Otherwise, don't worry about my last... worked it out

 

It wasnt deleting it was sorting. 

 

Thank-you so very much

@djrtmum490 

You're welcome! Glad it worked as desired.

Please take a minute to accept the post with the proposed solution as a Best Response/Answer to mark your question as Solved.

@djrtmum490 

To mark a post as a Best Response, you will find a button called Mark as Best Response below the post and you only need to click that button.

Please refer to following image...

Best Response.jpg

Related Conversations
Tabs and Dark Mode
cjc2112 in Discussions on
22 Replies
Stable version of Edge insider browser
HotCakeX in Discussions on
35 Replies
flashing a white screen while open new tab
cntvertex in Discussions on
13 Replies
How to Prevent Teams from Auto-Launch
chenrylee in Microsoft Teams on
28 Replies