PDA

View Full Version : Add some cell values as notes



anish.ms
12-28-2022, 10:40 AM
Dear Experts,

In the attached sample WB, the first procedure loops through the data and copies the required information to a new sheet. And another procedure to combine some of the duplicate lines and add the values. The code works fine. however, I wanted to add the unit names (which appear in column B after the 1st procedure) as notes to the respective combined cells. I'm not sure how this can be incorporated here. Request for your help
Thanks in advance!

http://www.vbaexpress.com/forum/image/png;base64,iVBORw0KGgoAAAANSUhEUgAAA3YAAACXCAYAAABZXck3AAAAAXNSR0IArs4c6QAA AARnQU1BAACxjwv8YQUAAAAJcEhZcwAAEnQAABJ0Ad5mH3gAADQuSURBVHhe7d1tjCtXmSfwx8s lQII0EBQNizSJJrL7Lr4WGZIdUNxEsKvVgt0idCLUYvKlQUE20mqxM0kHzU5LyUit0Uo9BFsrjd RmA9xPsK2R0nuzbZMFDSMlbYVBk80H34Z0ebjihjeBRgEpJAxE8p7nnFPlU 9lu/za/59U9/qty/Vm zz1POdUZiDQjFy9epUuXbqk7wEAAADAqkP7T8F2GA22V3L2tvo3 j4AAAAAAAAsKQR2AAAAAAAASw6BHQAAAAAAwJJDYAcAAAAAALDkENgBAAAAAAAsOQR251CnmqHM epP6 j4AAAAAACy3uQd2/eY6ZTIi0HBN69Q8z1FHv0nrnm2yvmAbZLjfovZVh6oLuvwAAAAwf0HtwMg2Q6eqXlft6AcAlpdM tpjHf8hx7XxOYhIzC5Kxq1B7MCC pB5PVoOonsvQefzMyh2cq1OhPdweg4FFW4e5BQ2OunR4HLxc/eYetfRtmID8ETvnJzsAAGDF9Km5nqFcveBqAw5UIzCgAatenymjZQGrQB3P5V6DLPP4Pyjp5w39 Jm3XRbRUKeoHwi1kKWa2titCPaLW0TmL7EQDnr vKiKoc /XLNVOBnRSy r7i6JCjUaRuvV98u pPh0fdqnYaMh9CQAAAGDrN7ep3i1Swzogd5OnRiciuCt267RtnNEcvt4i0fQAWGrqeK5Q 6QmWvlRRADIUV3jMu3k9UMRFrqPXTGf07c0O/1uT8bZHJXKrPoCDF9/soh5MPn6akdscKM0wPUafcbIk070vQ LeS83Md89EdUVG7QTEKzbkq6nt7QhNts30rIOrW1sUZFa5IvBO/vyC3hrY00/4KbWw5iCtmfkflDi5uPsL/M1cjK24STHhPm3QdtswuNNPi/PTnZlFpufR1krAAAsN3Xylyq7FHjOOrtBWyJ46x4eO7 H2doJDQYnwa8HWCp28mPHfVIjgB0A7iY88BcysOtUyyJU4KBguBKy4VsmI11vUYPqlNON4NKmzP F5AowOHXGstLUho G4eThaZcqd7urXtKniOWuUROL3clh0Kr7jqLAWGbmXdhr QKrfJI4JK7sq6uf3znFwbw3fe twO7SUb/RlNegvX292tcMbPuQLm4OVvbyl30tMfGZObHNfTBazH Lnw0FdjuqFtvOatkwfcumvOkM4yTGR4yDsaNP1mPvs4uTHW lAPCYXms9SqvksXuYWAABgFKrN4zuB78jSWkH81z0VrwRYNbrNf7rvGVPD0 1GlmB2qdL2ZLWjiIbizPR6PX1ryGoUB7wYrqkimsIu7YFo2g78D1fE64sD0eAVrEGjSIOiuqPI5 yvir WdBPPgu/73l48VG IdmHqf6Nckey839Teu5Q/kf3 1De31DNgOHpMvq c9va 1GgMR6 l5Jlkv/zrF74cg3vkErJtrWZOte9D7xj82wrzj1jNmXwAAACwyX/tPtxNi2ypO28YU3A5bBkHtYAi3uttLtRHd7Uh9XBvHvLeNKNvenranzd5WCzd4ilhomcFwZW/6Z9QT/7XKZlQrJlcH2ixtbBVdaXuVNdpUUW6ieaRkgvfqnsadm1LrSa0jXUpolzPY63lMfLewljCrk8Z2 KW2KPTgcRKV/fEjdyJJSb3lkjup85mJkcfPJUd6TTZTHBBVIbp5pHhOzPN4AAABWUTEvfskBVpNdUahkqbYrwj2 7Kq/D426I ChoMJUIC1eKyTXUIkKl1p6/DFAErbpczZyG9dZZ7u/VPSQVX6gyzMqme4PEzSNNo72XCkKod Zbby81uEyL9jhfqwM573qOarLtUiKuhFWDqHRoX0RX7oPVpMsjyRwFyBqjI/QI82mVncBKfkh0GaZtmsfELI83AACApZBdI1VpGXYyu09nfHY0pnsKwErJ5cluxqpERIvKRnIgx 9kL3RUobLyFhexjJ/vLiQXftxMt gugdxYT8sj Xjpz1Dmilpk1SjqPWLruO8pY76UzceZ6h9KB1OExdbzZsVHfO6Xt4vT9q4rtLsLO0E6ediCq wOOLcl85GuGfdPUZAR1qR0TAaY5bwAAgKWm2jHD6iMPOQCb I2f8KQ1wGJSyRyzylCyTqkrWtPc9VSOseBKCuiqRtHm54RG2HgLizkqZmlHZl6GWbsS7YgHunXP ACA84qBrIAqVxuQN1RSRrjtrlHQe8XKyvm/PmQ8P4uGusBvvvbK1y2q9y/5r PF7mNG5HfyWfdmxoPfm7FbYddBS2i72ICotmSYVcw2hAx5XeWR1jFLMJPORrxmOJulMznqld0z4 pThveQanS7FVugAAAEuidNCW1Udl70jf/DvJjapK23PpJ4BVocsuXcmcDlXlcR8yUmxCixnYiRVW2Su7rFI8UjtxLlzuNND38mR5r//A/b3Ehqq33KNqssTziKECsGHAwCMzyijaMN57qevV8by8fbP4PVzRuQ5 ReieYD1zdLh1OfRASWe76H0mRJ9hK9GBeDMevdJ rzK19WiVo0gyH3VGxF0O6R6ZMq1jIkhq887WiD//9jHhGz0UAABg6YjfcfG73K64y80y5Z66ELNnvAU50rR8jT6J6/zy8BBbDwSgee9n6ZWpV28AXKR5ARjd2Bvj11V69epUuXLul7MBmjj1kKQcgqUpd9KPj61IU9DgA AAOkbp/2nfqt5qPfBymTu0A4eDbZXcva2WtCMHcRKq6/ayvNf25AHd4ksFwUAAIC54qqXgdWgXkD3FAAIhsBuSXX269SlCqFfcThVCuktay1Tr2FNnOoGAA CAKcvW6GSwOhk7gGlDYLek1Gg5KCWMI8/4Of3r1BQ2khAAAAAAwLJCYAcAAAAAALDkMr1eb2aDpwAAAAAAAED6MComAAAAAEwN2n8KtsNosL 2Sw6iYAAAAAAAAKwKBHQAAAAAAwJJDYAcAAAAAALDkENgBAAAAAAAsOQR2AAAAAAAAS 7cBnadaoYy603qy3t9aq6b95eDex0Wwyy2a6rr3W/SekbMjydznmGPR1rO4wgAAAAAlt/CBHb95rpqRBvTehPN40kMt k6hW/KDlVXdnvrQEusW7WjH3IRz2/XqVtpE1/1Y3BSo2zk4wAAAJCmkdt/nap6XfAPO8CSGLa/7cl7SMtEhuc1Qa8zLUBgpxrfuXqB2tyItierQVTPzSj7kaXaiacBL784ogKiZdKlw PgFek396ilb6cvYLvOUmef6t0KVSpEraOgT4FFp12iYj6n79vCHo8z5/UFAABYGqO2//TJ2vL0Wi0As8HHcpnEge8c921uq5YDgrZigyzz8yGmg5J LsDcA7t c1s0vovUsA7ItZzZGp2ID3exW6dtZO4mUKFGo0jd j75Q5s HR92xTHTEK9aPZ0j8eVf2aSDTRnZBaw/AAAAzMOo7b/h6y0SzRqAJaYSAWaAVtoRx7z4v3c2Wcwz58BOBRZU2aVaUIoju0FbYi27h8f6rI0 W MJZ4P6XPnSlzEpe3Me8rY8I9Slek79PZcFqHlWfQFC0Pub4pZFPi8ec5UjBMzPNZ Y9TGtbWyJg6VFvqSVzGgVaWtjTT/gYZc7TLBMQdvGW3bhLbmI217JdEjFdeJTU9oUgWuL9sz3ketWltnKLp8ZtJcj7HEtbtm86yvvi9 c4f2c/Z/bhE9NYqwgAALCURm3/cbx3QoPBSfDrAUCac2AXV/KWpbWC K97Kl6ZHDei9/LWMG3JZ35a5cSN59KB BvOiYpwqGGpeZyIbxIVTXsCJNFA3 MAYje4/C7xsojHcqe7 nVtqnjOVPF8yq2KU65g5ffEff1kHP0F6S1HVBmt4C9VGXzJLLFe7oFFDapTzhO0jLpMPN9cnZzt yvPdOtx2Sl4n3XeOzpHYUxXiuE7sUeKknfkDIXaymL/YzuJmsaHej/dx6OPC2MsmXlMms79eh6pqI h5WZTf858wAAAAWE3Taf8BLC3rlMRHggprnka5iAdyRiIgsv pMN/Arn9GPX0zTRyY2Y1xKSSwGVnAfPrHh2JH2AGEX Jl4YE6nJysNxBR2adiY8cpV AzVzL2TCRLtV3x4tbesM gHZAGLniH9utirdpmeYSeR/eQVHe9cZbJLv28bASTnI4enoFLZ9/1qalWzlm2ktqgetnHM/6yieA3qiBabgNPKQoAAMCqmlL7D2A5dajKmZFig3aMxqBMNNnJBDFZsmtVLjK4W4DBUxIo5mm0Y Sx0yaYT4eZIxCkpyNKGasnr7IpdSjAMIPxSWBb9BeiL4kchyxGHg6jIgNRzADn0 3EnzuFyi8lMx42zTP1j4s0V/TdpbC/1Pq6g1bP 4xlz2XzHR4l29IdzdQboAQAASNn730X/7f2XjN9d47e3VfY8vvhToVAIfBxT8LQM2 v973 /OlYn0KlyF6AiNS5HD75nJ1BcFWge8w3ssmukMu1hifY nanoIXJF3bjxLT70ZI4ik15H22xtVwQIur9WUADhMt1lGY3OAspBVFRGrri1EbldK8ZoPcNpmvX t6WwvlUX1BqZ2v7mgQWSSSHdfqr4CPAqS3Y8TpZgAAHBOJGj//e0z4r/r/4tefPFU/F7 CBOmhZxefPFFdciOSXVr4q5fI7SvI0qU55yxU8HGMAPmIQf3MAMnXXMdxQ62Qvq8TW5YJtmJynq xtJZFfwFOOlKO00ewqvqf7YYdQUneb5xlivubVLaXnUXVfdrMSdaJBgwik8SUjiuZZue euMuFwAAwNIJb//9/Oc/p7vfu07/50dEDz55VT8KsHpUUMdN1qRBnU54RVQyzr0Us3TAA1W0qOzNWPDohGptXcOB5vJcCjnsK2ZvFIc OHsx T52qTtuPIpcXje0uBZ1MUv216lSOy3qltSyubJviW 8k7D5hLd6uUeWjdqngcFATifeJM3jKOMsUNF/OhOlyxDS2l 9kgEGWY7rnn1hq 1Lg7WiOuCI7zBZp5MvmAQAALKmg9t/XvvY1 g8feC89/4NfyPbf//zEW/UzAKuFBxNUYU7Idel49HTfqPJ8yQ/xNxFJhgXoY1eiA1mSxh9uo3Su3KNKhaMQ96iD2dplahSHlyHgUQq5M GQmJ8erdCeF49ImHygES1bIzneiC7nc418WNrRJXh8qYCoEDulZRFKB1z2N9xG/vVOQvcRFMLLRxUuFRSL7mxnOe3lyTIuvj3OMvnnm6PDLXswlcm3lxzpU/xUBK9eTIY4Unr7Umw48ZdG3wDxyU5 tgYAAGAV Nt/n/nMZ gHL68Ftv8AVofqEsV841nYYy9wMoZHozeesy/mHzUeX2bANWozcvXqVbp06ZK l4waHp9HaIxekdky lsZgQ4AAAAAuEW1/775zW/SQw89RF/60pfoYx/7mH502P5j3JfJ9tvf/itdvPgRun79p7S5 VF66qlhqdDDD /RE098mW666Ua6du05uuWWd lnwr3xxht0//1Vevrpb4/0d15RywWrK5O5TXb3mTf7M7bwo2LKQSasBvVERLswZ26m3o8PAAAAYLVw1sH2q1/9Smboms0mfec733EFdcxu/80DB2m33Xa3bLTfd190ac5zz31Pvu5tb1uTQR3APC18YCdla3QSk3qcpc5 naKuXQcAAAAAfhzcPf/881QqlejDH/4wdTodeve7362f9RDtv2m7cOECXbnypMwKvvrq90fO1n3oQ38q//b118/o1lvfox8FmI/lCOwWjLpgIC4oDQAAAJCEma27676atf/Sp9 tOf1o9Mx7VrL9PNN79PZtQeeODzzm2evvGNK/I1XIp5770Pysc4O2eWVLKjo2fkc29/ 3vpl7/8F/kYwKKaWR 72x/5qL4FAAAAAOfJtS/ X31LSdr85IBw3D52r776Gt111wa98sqv6c47C/Tss38nArqn6cEHd5zXvPOdf D0sbPnN05/OfSxO5846F kPnaZXq83k6X5 Ff/XN8CAAAAgPPEG9gx0QbVt8IVCoVUArvHHqvT448/JPvE3XPPJ mGG94sAz0O BDYwbg4sEtyHM/KzDN2P/ybZ T/AAAAALD6zDJMU5ImaFoZOwR2MA2LlrFDHzsAAAAAmBwHcN5J OOH/7OcuAFsTgCQLgR2AAAAADC5GQRrFy68ie64Iy9vX7/ E3rttdflbR4ExbKuydsXL94us3YA5w0COwAAAABIx5SDO748waOPfk7efuGFHl258i15WXfybLL NnOTpVuvPFt8vY4woJHgEWHwA4AAAAA0jPl4I6vHWdfN 7P/uy/Evdzuv32D9Hvfvd7 sUvXqBPfepe/crxcPB4ePi3cv4cPN50078LvdxB0AXK7UskcP8 BIUwSxg8BQAAAADSx33sRDNzkjagd/AUgEWCwVOmrk/N9Qxl1pvi1iJa9OWDaepUz8u x3E uXS34fk59gBgYSxAgxfgPJl/YNepimi3Sh19161D1UyG1puzaYr0m vyzJB7WqcZvf0C0Q3Kc70N5ivwWKwGf0ogHWqbB30XzfZ7CADgPAn6vcP3LawEGeOEt998x77nd fKErPm8nqKagyuYsctS7WRAg5OauKXJDZs0OKlQezAcirdd6VI9l2ZgE7B8C4WDuhzVqUGWvR2s LTrcNs70j7Q9E5rGPJeSCqpzdaKGNTwOB4M2VVplsY3CToLMUeC W/TjfBlM l0GALDI7N 7gqvdNbAaJBpeqDCAJaYTJOXwaxlyUOdu6 l2njdqKxrtcT0dlPRzATB4SozSToOK1KXD4/Py9WLRaVccR1sbw8ZktkYnaKDPRL 5TfVuUXzQT6jm2uAlOhA/dkVqURmZOwAAWHLD37sD8Qtn4DYH/95167SNs1iwhIbHtkWNon7QpUP79a6I2S4bbb0S7fCLW0cTncBfusBOpiVFw9aVvvSc1TH7ksjb MmLmzJt6/Tgp/sKaveV1FB6ULjWXo9 kdXv5xGS 3PvaJOskybP1 vmg10S8Z RzAbqnlr7lFrU97fWQ//P7eNfReH9z 0XNU4pbb3HPXTpqT1Wqyvf1Z7nkewZtYy1qeZl8XjwWt89c84nb6OKvjw9FVF3Z9QR1mvix262I/40PPc ft5U7nR Q1YvZhvb6OMubwr6Tz3m3iec45Mm7Wexlidy2Ix7PU5FgXaKWk9czbt Z2zBqWzP5vDMfMc1lowAAJBH3e7dBW6KN2z081g8ALI9s7YQGA 8JekP/jHriv2FsoWTXCuLfFh1N8PO9nBm7Vplyp7s6JdmmSsRZndKBeE2bW8McOasU5knolvbr7NdFM6p CmxFpT78OVVV VS jRfm9mBK6mHWSjb8yGeUKFjWoTjmnwRv1nqMsj33GgMv /CVfsdtT/F2Z2up9dJaPG5x7efu9xcRn4sTr7HZn1Dzj15uDuhzVC/o9xSRnJUtqD hAZlw9HxLR2N4T7ePKbnAWMm55HTH7jOdTbg1Le638nrivnwyks6X5nL7vl8vzqZ8enRn7pVvPG cvBZ4daVDYCofhtqKW873w4uBTHYaGt58WT NtW2RPIs8htO8bnK22J1iV OeP2nSlqWyc ZgEAFkLc712WZBu3e6ruAqwS61TEFkXyHf65vHjUQ7R/csZJW197yWM5A7uKaHw6BaYl2hRtHT6rE72qSYmGlbEBuSFebOy4ywRGxn1lPKUGXpHrpFK2lbY 5DzFPTt90Dym4SjTqPaOXR55p4IahkxkYpU PCGQ8xb/cIHU19vWZuFbsKYkk661 HCpG5F3ijWcHPwHv1T8 jAzWEy9vzD478hw7vF1V0BlCn8EZGddfO8vh3T6jHDtp7jsvEYDLaLrtrg0vHcht0q3vuwKe6G3 rFX08j8b9 VdTWTxqGnFdHAHLGbnvkktvPwEAzMC4v3cA54g8oWufsBWT1RAt83ouMrhDHzsf9 ApHOCI6MZfChZJZb1446cy0IH AuRsgKvB6Ur/RL3nGMvDNe56/VWAlzAjUtkMaGB7SyVzJGKNeInWO0ecxDIbsB2OqKhAKsOdpQ3VwtXLb5d/BC2nbczlNYWk2SNl18RSJ2Gvm1ZYE2tpkGd8uiSraRNtQy3NfefjD8BtrkA8kRGOZ28JauzgM57 Pv5za4lFT0nVJsJxR 24kae0nAIAFUszrG0O//e2/0m233S2 526j5zfzs//PCefDzsYuJB3njjDbr33gdH/jvbV75yKP/WOz3Jf0KwDSYScIopJZCxLYhTTqxmkcp00EOJdF42zUs iqvtYeVTNJgzJexSz7cqZhDW/Ue469PBzgyTTTuDW/3OAUjUxzlE1ZcqafTiBuvaUWl46qRq0qfxxmRrK1XdEwb9Eet6z7x6TiurCwbvLlHZ8KUsP6NzJ L1a6IV44m0Tb0SXFb6M9yOE wGiPx8Vw60MttTylk9kZYl2l8D/jN85gFABiDPpEZ/nvXpzPVAFR3ZywqeDTx6/7qr75Ed95ZoN/85gfiu/dH9MMfPkfvfOcfiMcbkX8L51jYSdywEk2v7imFfXLmH9hFnaFOuoIzpeu E5JpVJn1mqAzpP4C7CVMaUS951jLE1Tzm5QdSIX0Z4uUZL3l/Id9joIb78NSvg6XYRYbtBMa102wvKYR95mij63WXnB2R/cNdI1Yynpn4ifQYH5uxloOLa1twfRyBJUGygzrGMEqS XzNaox1iV0OaP2XVJp7icAgJlQv8vDahqPzr6sOgg/CZueCxcu0JUrT8qg7NVXv0 33PIu/Uwy9933MfqnfzqmG298m7z/R3/0b lDH/pTeftb33p25AwgnAMhbbO OpsRcaJbn/CIaDPNP7DTI/21yp5SJR5NjsvFwkZMGsXY5U1M9VEyl0MOYGE0vtUgGeq2xOVf5qgFEweodknXtnsb8fvYJaJR7 znK8pjzlPrU3PYMIDPK9gxoBHeqAWVigfNMsN5y/nY2xJg8pbOyRK5bp7J4Y19gZEq6vLF0MGn0t/IdJwFKB1z2x vjyezw5yEn9oMISi97PxDcsdbZvx2quj43CbZhmIn2nZdaDs6sugb0EMuhFneEoGSU43kqEq5Lk uWM3HcBgrZ1ascsAMDsqN877tfs b3j7075XejpxzyGa9depptvfp/MvD3wwOed2zx94xtX5GvMUkzOsHEW7uLFj9D16z Vzx8dPSOfCyrTfOtb30KNxmP6nt/Fi7fTTTfdqO8B2Ow2otE2E 28bW6jNvTYDNzu87TT1GUUottMC1GKyWezLdmVzWiY2yPOTfqpZk7wqObtaoz5eAdPKFPLNZADz 4yNYrDYIJHo MOjQ4eRIGGpYH8BVVpx5W9ReOSLt822suTZV9fLuo9R1ke8Vpr69AYgccu8TKyYCNtT339NbNUU iyNbxCRkHnGrrcuX3SXGlpiiT2jPpZ2dGlakbY2onZEwuVNoHTA5XDD48l3nAQS7y/WoV3xHIf26IpB1xMUxyePuKleK45X14AcSbZhmMn2nZcsSxR/7OrvV 7JbOtIH/MpfL5GlWhdkixnzL7zCdzW6R2zAACzE/J7J75LK5WAk2cTeumlf6Yf//i79OST /L Zz/7hcBsGgdrL730D3Trre R9zc3PzpSNu/55/8fPf30t XtnZ2qk8mD82N4GSN9ktX5fR6exODYZ9hNQ0y6necMhMaDoHFb1v5ciMm mH9UMyEjGsIDfXuqbn/ko/L/H/7NM/J/gDTwh0cd6O7yS//jRj k2IBmecgsoGjEp3ICBGYK w4Azotx2oDqd1yVHnBgZTMzahx0PfVUSz jBk954okvyyzZtWvPiWDsNbrrrg165ZVf02OP1enxxx i5577Ht1zzyfphhveTM83eyf9z991dlMGbPL o9gnDWz54Hs f9gQ/8ibwPq4uzuTMKpSJdvXqVLl26hFExYRV4 1fZ5bPGKI/ohwQAALA0ZGUEl5ssAbOf3uuvn9G7330LffCDn5BB5Wuvva5fBTB9COxgqakyw6K7JC5Tph6XLR qZkPEuNA8AAACT4kzdWBVb2Zq sTy4lPOxxx6St3u9l QEMCsI7GDpybN6A7OPnedizYIcldA3Wubyk uFUr6lhH0HAKuOSzC906QuXHgT3XGHur7d9es/cTJiXA5pWdfk7VkNWsJlnbheHSwSBHYAAAAAsBS47PHRRz8nb7/wQo uXPmWvP3yyz TgRabdNCSsOAxiPd6dTwS5yOP7Mnb5fJ/RD87mKlMr9ebSY /j3/1z/UtAAAAAFhlXHoZlKF7 jNP6FvJFAoFMgdPsXkvS8DsQVPs0Ss5yBpn8BTmnb933sw7aIrp61//H/SpT92r78Gq4sFTRCyl783fzEfFBAAAAIDVFhbYjdrXjvvOBwV2AItg0UbFnFlgx w3BQAAAIAVI4Iwh2heIrCDVYfADoEdAAAAwGoygzvtaq83dvsPgR0sMlzHDgAAAABW0wI0cgHOK wR2AAAAAJAeBHcAc4HADgAAAADSheAOYOYQ2Bk61Qxl1pvU1/enRb5PtaPvjatPzfXZLC/Mg96/meG03sSeBgCAJYLgDmCmFiCw8zZg12np26/9Jq0bDfJFbpT3m sJtnuHqgu HqumU81RnRpkiR9F7pQ7aFeoW89RkvMBw31qTBOfSAAAABhDTHAX9JuFtgacBzLRYx77nmSN73k 9RTXp5hzYcVDnacBaW3S4vbxZKLkTcnUqtPX6yMmircNcyl9UWaqdiHmf1MStNHTp8Dh4 frNPVKX64SJdKriA5nkxEWHjsQGL25tDPdtLk9F8V/vLOExVDQ U4M2VVplZHfTlHhfAgBAMHViP1cvUNv5vRKT1SCq50J/s/jC4bfddrf4Dr6N7ruvoh9VHn54Tz7 9re/l375y3/Rj0bji4zfeDI/9dEHPZ3vKWLP3jP76onwFw43ih3KoYx75oq3XrlPMe9672nJoOSvq5AHMO7Cw67XoasNkanaQWr MyYaOyVRYO8IoI690ZXQdhJbVHXqkKNRpG69X0RUnj16fiwK46rhngVzEaO8iKK6x4eOx/u/vGhCL2LtLUxzjFUoh2xf8UMKSR2BwAAmKl c5vq3SI1rAPxK2XgdqAI7oqikbs9p7NnUcFjlL/8y326fv2n h5AmD6d9cR/lU3j2LfbaqciOhrfQvSx656GrYIu0/TkHGVWzIho T5nw9zp/KorSEnyGpN8j4Dnve89JJZ1j9MsDdqJiKRNrmUJmKdaBmNKsB34NXHzDbK2sSXChhYd VZ4X37xbm2s6QfcEi1jgmWKm49zLJivkZOxj2QWxXjO8z6Ry2L bdA2m2Te9vMc9YvwrJ5Tz4dncLNU2xU/JOJHbb9jn9HsUqV9QuOeG8iuFfQtxV5eZ7ub6xNQSuzbHYJrXcU0XJ/kn9vQZViZfQkAAH7qpDFVdoN/17IbtKVPcE7bhQsX6MqVJ4mvlffqq9 nW255l35mNF/5yiE98cSX9T2AKFmSzbLemdH sD8TZrA3ujkHdjo65TKxCcuauP9R7nRXpyktahRbVPY02JK8xlbaafgDHdHg5ditshuUUVTZRyq sJcs2inUeLotKv5pnprjxuJe39PNi4rNX4m CGtguMfMNpb9EW57IrsM1gSFfvImXceJ15UAhR/VC23lNW55A4xS2OtMnG FlMlLaYv9SQEo7YFly3HA/2nQ9Zi7fJPO251M6EI/Jheazk2o kRnc0oFcx1Z5WKoclXqP05enhjzE8pZJb1M7S85Bj7eUWCxIq wOXnibiJc566LKjbdH/wwHLMPK7UsAAPDQFVv5nL7vpRu 3VN1d0zXrr1MN9/8PtHGvI0eeODzzm2evvGNK/I1ZikmZ c4W3fx4keczNvR0TPyuagyTX6fRx7Zo5tuupHq8f1Y8ChCsd2O0Wjn94LAvR3uuKdq23sWe3bfQ UdyJ57hm7bO1ENeSds99jBnhcg psDDvj4Sk9S/IaW0Cgo8rhKrQZ0cAO/5LyqIjGrLMsJdqUizIsvePGo6uxGBJ4 cTMN5zeHq294fa3A9mQFU68jBOvq/oBMJejxDOhHqkuZx3alxkts5wjyTGgliXoseHyjTDvsbe9lxqsptwqUlFsB3daXmXDRsoQif24L dbBH6B7v0DEvOUOb7uDSB1kDkt17fLcy8b8xDY5GSej6F2GVduXAADg0z8Tv Cz9dJL/0w//vF36ckn9 X9z372C4GB2lvf hbx2n gW299j7y/uflRisrmcWBYqz1Ov/nNa/T3f/91 sM/vEU/AxClRAd84ljGP2U5loW7fcLNL/sktJos2W0qesyOhSjFlPXUvNBOgBdeIhnKmymTg010yVXlmeQ1jixtqOjC1ZiNS5GGl5WOSpezO VE6R/L6qWkpbcoDzB5ERQayoqEcXlqa1jLGzUf1OTMDRplJpAKt8Q7VPxCcVRrOQ0yyXG5C05x3iE6VP CcjTyhkxP 0Leo7JScqiC3IFc8gnmGR6XWjEBF8x3L/gDa5gqk 8fEH4XYZUjCuwwrti8BAGACxby MbmPf/w/0Y03vo3W1v5Y3v/9738vM22T sIX/js9/fS36S/ 4r/QBz7wJ/pRgGiygkiVEDlBm2yfRJTmcTJMnmiPONG8GIGdjQM8WeIU0NdrDrK1Xdmo3uPIWDdmw7JXdvDhr pcdFwc6wxI8Falz6ah emp0ZkJmZlR2wzWwjUtayzjCfFpcsqsa42okIfeZDR60Rv29OY3fL800zXm76RExGzt63ewzOiq 4a8oRSosUmxjmzJWxrIlKBWPPoOpAegZWY18CAECg7Jr4RYk6Ga4HlygE9 9fFM899z3Zr46zeo8//pB FCCGrqQqNiynQkpWMHIMJNq6sd2uIgZYWazAjulh3RVdY52EN6CyTolHEXQ1gJO8xmVYgtWJzV7 pDF XB7zQD43LDiID /JNl9O3sHok/q3QblhrN61lTDIf ZphfyY1GUGd/oFIfCmAUUxz3hHcP3bD4K4uvwjMEsgU6XUNKveVGdJinuRHJXabjPC59VrBfQkAAF66fN6pivKQ A7eJtkFU35cF8NRTz8j/7X54PD344I587He/ z198IOfGGlUTTgnZPwRUPnkioGC6BMednsswHwDOx6owTVoQZ a23WxssN bDlZgzfs98UDbQRWTnHpmRPidqjKL/L2KUryGg9Zgib rhyZvVKytcsy08SpVG 0zcuduF9UQANbXrCaj4Jps/u3tXjbRJSdprWMSeYjXzMcgdCZnGNHDcLTrXsG7/AdX NIcd6Rpb82 8fOfcbGvJZg0guVj244mJFr/mJd1UfFDr6DtglnXof9YxN/bn1WaV8CAEAYOXiE GUbdjXQ DtZ/uh4 ntrFy68ie64Q5VoXr/ E3rttdflbe7rZlnX5O2LF2 XA5lM2xe/yINs/cg12X34brjhzfTd7/5vEfwl vGD80R2feJmkrvt0dk3YiAeodzTNlGXCDHbY37zDexKB2RtHRqjvdglecNsjAqWho16Hj2R61B9 xBeAlecLU/LrytRyDaKgJXmNV2lHlwUmuYYYDyBh1Mk666WWO/nIeSU60CND2n/PIwfKKtWp05lHIfpMWVrLmGQ qszVXULnHs2QU9hiNu7gby9PVgrXRExt3tkayfFp9LERFpxxZ1nvMeS6gKvYOPzcSAOoJGSXAri O33JPZkvNj4p/m TocGuYSUz8uQ2wSvsSAADCcDUKj3LNwZ3xnSx cyoV8XvhPcmo8eUJHn30c/L2Cy/06MqVb8nbL7/8M1kayXZ2qrI/3bjCgkeAdOhKLHM8BDG5uhlxooXbucbzdlswKnTJiIbiQN euqtXr9KlS5f0vfTIbAAPmR6xpkleE8zoA5ZCwxJGp4bW54PZ3acu7HEAAABYHOO0/9RvvCrf4UyYl/eyBIyzdNeuPeeMXsmDo9x11wa98sqv6bHH6rIfHAd/99zzSZlRe/bZv6M77yzQ/fdX5QAo3FfOzrB55ddxi nh2XY9rzx4Aqq43Lb2cYSoWyP2MI7OJwKlRf12vkmBBSYX 5c8ZuuA/4kgBlarmGpQcAAIBFM3b7T7TBeGTnoMAOYBEsWmC3eIOnLBhXvSvMhSqf85a3lqkXNIQ/AAAArIZsTd8AgCRWImMHAAAAAItpkvYfn8xFxg4WFTJ2AAAAAAAAkKpMr9ebf5gJAAAAAOBRKBS QsYOFxRk7EUvpe/OHUkwAAAAAmBqUYsKqQikmAAAAAAAApAqBHQAAAAAAwJJDYAcAAAAAALDkENgBAAAAAAAsOQR2A AAAAAAASw6BndapZiiz3qS vg8AAAAAALAs5h/YdaqUyaxTExEVAAAAwLnSb67LSxqY0zoahbDyOlT1HPfVjn7K4Pt8BL3IgIwdAAAAAMxYn5rrGc rVC9QeDOS1wORkNYjqOVRRwQrjY79M4sB3jvt2hahVdgd3HNTl6kQNy35dmyqtcmRwh8AOAAAAA Gaq39ymercoGq0HVNKPSdkanYjgrtit0zYyd7CSslQ7GdCBceCXdsQxL/7vndnHfIf2610qNi5TLasfEp UnYZ4VetIPBtsOQI7Wa5ppCF9Z3HUWR/Xa RUdVZc9qEzn4tJZQIAAADANPTp LBLVNk1Gq2G7AZtifZr9/BYPwBwzvTPqCf K6y5PyDZtYL4t0VHIWHMwgd2srZUZivtNKRFDapTzgnuOKjLUb3Q1s rdKb4thB/o84CcVC3l7ec5znNX2yVA2tZAQAAAGCaLDoVcV0xn9P3vbIk26/dU3UXYNVZpyQ EsNATt4vku8jksvLzF6YBQ/sVBqy0jbT9Fmq7YrIrXtIxzKyU18Olc3hK0qbHNn1yM5mlg4GdGKeEtJnglph4S4AAAAATIfORg AA61C13CIqNmjHVZc8usUO7PQHnzsTusooeeUdOcp7grTOET9foGH20luqmSMRLwIAAADAoirm9 Q2A1dWplqlFRWpcrlFQZfIolqKPXcUYNWY4nbjrsnmUGB24lVvDMkynVJMaZDl/axH3PQQAAACAGcuukaq0tNR9nz6dqQ5G6i7AiuLuYuUWDyLkiWtkyWWXfB RsBJNbbEDO/3BH44QE6B/TIdyVCUz6DNKN Xz3D938igYAAAAACZVItlrJmx0v86 rKwyu9kArBoV1HECyxPUsZAYqK/OeBhViW4LnrFTw3p269vuC5jzKJn24ClyxbtUz5mllmJyPe8p1ayiFBMAAABgXkoHbapQi8rGCO YSt/FUa9c1HDzAKuHBIdVh7r7swZA6 eGKgfpN2paXQNgZJrA8FiSw8wdm63otsrUTUteqNJ7fy5N1YmfgVB87d7mmOXJmiQ70KJj235ep rUfOBAAAAIDZE 0z0WZrVzi4M9p45R5VKjx4AkYvh1WlBodkvnFEMutOIMeDP7YrRoykrlbuHhDSIyMCoYG PXVXr16lS5cu6XvpUFdlLxh96pSwxwEAAABgdsZp/6l2nGr8DgY/kv8DLJpM5jaZVJo3 zO2FIOnxPNeqE9HwpVNBHUAAAAAS4Yrtvi6wwCQ3NIHdqpUs hJZZap17BogOJsAAAAgOWUrekbAJDESmTs5Fkdp3 dmqLqTwEAAAAAAFbJipRiAgAAAAAAnF ZXq83/x5/AAAAAAAehUKBMHgKLCoePEXEUvre/C39qJgAAAAAsLgmaf/x2AkI7GBRYVRMAAAAAAAASBUCOwAAAAAAgCWHwA4AAAAAAGDJIbADAAAAAABYcgjsAAAAAAAAlt yCB3Z9aq5nKLPeFLcgTqeKbQUAAAAAcB7NPbDrN9flULbeab2J8GR6dMAstnO1ox8CAAAAmLGgd iDagLDqZDLGc9zzFNYudz4nMQmcxcjYFRtkDQbyOhD2dFLLiieyVDsR909q4hakprNP9W6FKhWi 1tEKRHadqjjY1wm/AwAAAMtCnWTO1QvUNtuAVoOonkMFEqy gPjnoKSfM/WbtF0n0W4v6gfCoY/dOdQ5aomjY5MONmVkR0jaAQAAwCz1m9tU7xapYR2Qqy2brdGJCO6K3Tpt44wtnHt9anJU17hMO3 n9UISFD y8/cbk/WrHnboPOKvjS3F6cptJ5 MtEfCVB8hs0fD5JGeY0lo213w88wjXIRXXia/R0iZVqEV7AV ccesdu136TVo3nufJvYi6HDRo3UfY3/L5slgh6lI9p553lsWzDIk3EQAAAExRn44Pu6IxskuyQMsru0FbRfHLfnisHwA4n9QJkArtBn5Q/JYzY9cqU 50V6ct21TxnNXhxv5e3hqmNvnMj/gbX8M Zj4cTOQ4SLb0fAYWbR1uOyV/Mtgok1FCYFGD6pSLCO7SWjaeT7lVcd7byu J /rJKJ0jEcpViOM6EdkRJ 34i9Nc3iTrHfW8WDjKiBcU2vbzYmqLELI8Zt18xLYoHah5E/FZP/Veqoy3Q1W1kPrvLMrvVZGdBAAAmDuLTkVcV8zn9H2vLK0VxH/dU3UXYBWJ9mzOSEAEJUm2612qtD1Z7QiLEdh5Viy2v1SlTQOnCNUfnHBjXzXuNX3mx9efLHI 6mxSsXHZOJvEff5O9P0O7fs2tnh V86EjkOWP51lU1m3YmPHee9s7YRkfBOpT809VYbpzFnN2FjeuPWOf169R9tdJ1w6kMvXre PHlzF7O9keBmTfzAAAABgSvpn1NM3Ac4jmZiwkx9ishpF0UbOuYK7zn6dut72dIwFHTzFDhLGpc v8nEAxRyIGG03/mLhKoLAWsiD6S4mzUMP3EVNs2iyNZVPvHbpsYfQ6yTJMmyzH7NKhHdnFrnfM8/osnOs9NBlEiiU/Gy0iG1OJdvSHBAOrAAAALKFigk5FACvATtA4iYtOVVXmjRLVCSs4eAoHTiJYIjNYtEi08aeiYpY bOlNYYDrbZfPqHx KEM4bjJaJQ9GxMmlBYs/CFWjUeHRc/CHhbdyu2P3vUIoJAAAwd9k10RoQbY9TS9336dOZOoOt7gKcF91T4k FHOhQtNDLTnudR5AVrXhd5RjWtWn1Ajs7K7U74SUS9JdOLyy9FPd8kFktWyC7o3JbB5TGJGs4Wy SrQSddb/180GUU5EFazJOqqNf18zMg093cl9FeRwAAAJgj1a0idGRueVmm4OofgNWkT2bodrK3VJMnLte0q xxd3boMqxfYBQQWneoY5Y5OKZ8xKIjMuNllfUHPCzxwSNjgKSkum xnZmTZ1GAq k6QqC9JWY5pL9c46 1/ngc8cQ0II1PK7qA2l fX7TnziV2HMLm8CNq65Drxx/vBXADrVLyiSKH9tAEAAGBmSgdtOTJ32VtNw7/fssEwWt8igKXBo7Z7YgU1 qW7nTyOFSzFLNGBHmnSTl2WqZ1gYBE/LuUTs3KG0ef cIdbw0FD/M LaS9PVugF1dNbttIBl3AOU7Q80qaM5EOolK49GqaX 8zZ6Ovtf94eBdNez0y5J0etNL ks7XLYh2GlymIW4dQ2RrxmDX2 8l4jgdrEVt3 P4t8Rsxad9NAAAASIdoEw24u4S73IzbC/JCzN4TxACrggdO5FH0jePevlD/pCczMgPO7c3I1atX6dKlS/oeAAAAAKy6cdp/6tJKXbrhpnfQ737zK/0owGJ5xzveQa 88oq Nz/2Z2wFM3YAAAAAsMxk9Y/VoH8vgrrggeqWb r1eoGPYwqelmF7LUJQZ0JgBwAAAACLJ1ujE9F4Rl87gGQQ2AEAAAAAACw5BHYAAAAAAABLLtPr9 WY2eAoAAAAAAACkD6NiAgAAAMDUoP2nYDuMBtsrOYyKCQAAAAAAsCIQ2AEAAAAAACw5BHYAAAAA AABLDoEdAAAAAADAkkNgBwAAAAAAsOQQ2MHEOtUMZdab1Nf3x9en5npa8wIAAAAAOC I/j8C4gx3c03/ygAAAABJRU5ErkJggg==

Paul_Hossler
12-28-2022, 08:55 PM
Run this between your two procedures



Sub AddNotes()
Dim i As Long

With Worksheets("FY23-24 Audits List")
For i = 2 To .Cells(1, 1).CurrentRegion.Rows.Count
If Len(.Cells(i, 2).Value) > 0 Then
.Cells(i, 1).Comment.Delete
.Cells(i, 1).AddComment
.Cells(i, 1).Comment.Visible = False
.Cells(i, 1).Comment.Text Text:=.Cells(i, 2).Value
End If
Next i
End With
End Sub

anish.ms
12-28-2022, 09:19 PM
Thanks Paul
I'm getting an error with the line below

.Cells(y, 1).Comment.Delete

a snap of the sample comment is given below
30412

Paul_Hossler
12-29-2022, 01:57 PM
Just delete it

I had it there for testing

anish.ms
12-29-2022, 06:36 PM
Hi Paul,
But if the vertical and function are the same, all those unit names have to be added to the same comment
Please refer to the snapshot above
Thanks,

anish.ms
12-29-2022, 07:21 PM
I have done it
Thanks Paul for your help


With Worksheets("FY23-24 Audits List")
For y = 2 To .Cells(1, 1).CurrentRegion.Rows.Count
If Len(.Cells(y, 2).Value) > 0 Then
.Cells(y, 1).AddComment
.Cells(y, 1).Comment.Visible = False
.Cells(y, 1).Comment.Text Text:=.Cells(y, 2).Value
If .Cells(y, 1).Value = .Cells(y + 1, 1).Value And .Cells(y, 3).Value = .Cells(y + 1, 3).Value Then
repeat:
.Cells(y, 1).Comment.Text Text:=.Cells(y, 1).Comment.Text & vbNewLine & .Cells(y + 1, 2).Value
.Cells(y, 6).Value = .Cells(y, 6).Value + .Cells(y + 1, 6).Value
.Cells(y + 1, 6).EntireRow.Delete
End If
If .Cells(y, 1).Value = .Cells(y + 1, 1).Value And .Cells(y, 3).Value = .Cells(y + 1, 3).Value Then
GoTo repeat
End If
End If
Next y
End With