<?xml version="1.0"?><rss version="2.0" xmlns:wfw="http://wellformedweb.org/CommentAPI/" xmlns:slash="http://purl.org/rss/1.0/modules/slash/" xmlns:dc="http://purl.org/dc/elements/1.1/"><channel><title>VBA</title><link>http://excelforum.se/Forumetsstartsida/tabid/174/forumid/3/scope/threads/Default.aspx</link><description>Diskutera makron och VBA-programmering</description><pubDate>2026-06-13T04:15:41Z</pubDate><lastBuildDate>2026-06-13T00:07:52Z</lastBuildDate><ttl>30</ttl><item><title>Användarinformation</title><pubDate>2009-01-13T11:53:27Z</pubDate><author>Excelspecialisten</author><link>http://excelforum.se/Forumetsstartsida/tabid/174/forumid/3/threadid/11/scope/posts/Default.aspx</link><description>&lt;p&gt;&lt;strong&gt;Välkommen till Excelforum - VBA&lt;/strong&gt;&lt;/p&gt;
&lt;p&gt;Här kan du ställa frågor om allt som rör programmering med VBA och egendefinierade funktioner.&lt;/p&gt;</description></item><item><title>AVAILABLE 100% UNDETECTABLE&amp;#160;MONEY Whatsapp:…(+447401473736)  TOP QUALITY MONEY FOR SALE. DOLLAR, POU</title><pubDate>2026-06-13T00:07:52Z</pubDate><author>Mike</author><link>http://excelforum.se/Forumetsstartsida/tabid/174/forumid/3/threadid/12296/scope/posts/Default.aspx</link><description>&lt;p&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&amp;nbsp;AVAILABLE 100% UNDETECTABLE MONEY Whatsapp:&amp;hellip;(+447401473736)&lt;/font&gt;&lt;/font&gt;&lt;/p&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;TOP QUALITY MONEY FOR SALE. DOLLARS, POUNDS, EUROS AND OTHER CURRENCIES&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;AVAILABLE WE HAVE PARTNERS IN EVERY CONTINENT SO IF IN CASE YOU ARE LOOKING&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;FOR A FACE TO FACE DEAL THEN JUST CONTACT AND STATE YOUR LOCATION AND YOU&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;SHALL HAVE YOUR BILLS. WE ALSO ISSUE DOCUMENTS LIKE (PASSPORTS, DRIVER LICENSE,&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&amp;nbsp;ID CARDS, IELTS, TOEFL, PTE AND ALL KIND OF DOCUMENTS YOU MIGHT NEED TODAY&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;With over a billion of our products circulating around the world. We offer only&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;original high-quality currency NOTES. We ship worldwide. We also print&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;and sell Grade A banknotes of over 52 currencies in the world. Here is your chance&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;to be a millionaire. Our money is perfectly reproduced, indistinguishable to the eye&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;and to the touch. We are sending in various sizes, packed and hidden. All our notes&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;carries all the holograms and water marks and passes the light detector test. We&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;will deliver the money directly to your home without the interference of customs.&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;we have a huge quantity ready in stock.&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;We use the latest technology to produce our notes so that it looks 100% identical to&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;the real note. This thus implies all security features present in the real notes&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;are present in the note we make. Our team is made up of Quality IT technicians from&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;North Korea, USA, Russia, India and China. We offer high quality NOTES for all currencies.&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;TO FIND OUT IF YOU CAN BUY FROM ME OR NOT ALL YOU NEED TO DO IS CONTACT ME FIRST, I CAN GUARANTEE&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;YOU THAT YOU WILL BE SHOCKED WITH MY SERVICE.&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;FACE TO FACE DEALS ALSO AVAILABLE TO THOSE WHO ARE SKEPTICAL SO YOU CAN BUY FACE TO FACE AND ALSO&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;GET TO TEST SAMPLES FIRST BEFORE YOU PLACE AN ORDER. CONTACT ME WITH CONFIDENT AND FIND OUT THE MAGIC&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;IN COUNTERFEIT AND DOCUMENTS WORLD&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;!!! CONTACT FOR MORE DETAILS!!!&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;Telegram:Ranko3222&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;whatsapp: +447401473736&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;https://toprapidsolution.blogspot.com/&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;SERIOUS INQUIRIES ONLY PLEASE&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;</description></item><item><title>Get ABITUR, IELTS, TOEFL, PTE,GEOTHE,OET, DIPLOMA  WhatsApp: +447401473736  Get your Degree &amp;amp; Certif</title><pubDate>2026-06-13T00:07:11Z</pubDate><author>Mike</author><link>http://excelforum.se/Forumetsstartsida/tabid/174/forumid/3/threadid/12295/scope/posts/Default.aspx</link><description>&lt;p&gt;&amp;nbsp;Get ABITUR, IELTS, TOEFL, PTE,GEOTHE,OET, DIPLOMA&amp;nbsp; WhatsApp: +447401473736&lt;/p&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;Get your Degree &amp; Certificate without Exams and get the best results&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;We also issue fake &amp; legal documents likes ( PASSPORT, ID CARD, DRIVING LICENSE, DEATH CERTIFICATE, BIRTH CERTIFICATE, IELTS, DEGREE, CPSO)and other documents as well. very authentic documents within a short time frame, for more information&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;Our large platform is a professional team committed to providing you with valid DALF, DELF, TCF, TEF, CELPIP, IELTS, PTE, Goethe &amp; other language certifications without Exam. we provide Official Language certificate with registration into the database and also actual center stamps for customers interested in obtaining the certificates without taking the test.&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;1) Get exam materials to prepare you for upcoming test.&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;2) Renew your expired certificate without taking another test.&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;3) We also assist candidates to register for any of the above tests.&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;4) Obtain a certificate without taking the exam if you meet the requirement.&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;5) Follow our guide and change your failed results to a pass.&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;Email-: qualitybills-documents@hotmail.com&lt;/div&gt;
&lt;div&gt;Telegram: @Ranko3222&lt;/div&gt;
&lt;div&gt;WhatsApp: +447401473736&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;https://toprapidsolution.blogspot.com/&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;USE ANY OF THE ABOVE TO CONTATC IF ONLY YOU ARE 100% SERIOUS/ NO TIME WASTERS&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;</description></item><item><title>在线购买护照（微信：GorgeAvelson22），出售合法美国护照，购买加拿大永久居留权，直接移民加拿大，合法生物识别护照，英国/欧洲/加拿大/乌克兰护照，中国护照，已在数据库中注册的澳大利亚护照，</title><pubDate>2026-06-02T22:47:29Z</pubDate><author>cryptoreclaimssupport</author><link>http://excelforum.se/Forumetsstartsida/tabid/174/forumid/3/threadid/12254/scope/posts/Default.aspx</link><description>&lt;p&gt;&lt;a href="https://globaldocs.store/documents/visa-jobs-today/"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;globaldocs.store/documents/visa-jobs-today/&lt;/font&gt;&lt;/font&gt;&lt;/a&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&amp;nbsp;Online purchase of passports (微信：GorgeAvelson22), for sale of legal United States passports, for sale of Canadian permanent residence, direct immigration to Canada, legal biological identification passports, UK/Europe/Canada/乌克兰 passports, Chinese passports, registered in the database for Australian passports, for sale passports, where can you get passports? WhatsApp: +49 176 36223102, United States of America new passports, purchase real passports, clear criminal records online.&lt;/font&gt;&lt;/font&gt;&lt;/p&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;微信：GorgeAvelson22&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;Buy a Canadian 居留时间，电影最新公司展开，年发量辺、居留旅行、居留卡、identity card、visa、United States green card、citizen identity、新自件(WhatsApp：+49 176 36223102),新驾话、新驾锟、皇内安全在线(SSN), work permit, criminal record clearing, get a new identity card、托福 (TOEFL), 雅思 (IELTS), 托业 (TOEIC), Canada English level test (TEF) Canada)、单京英语设计设试考试 (TCF Canada), CELPIP, CELTA certificate, 居留法学, 国兰管理卡 (NIN), social insurance number (SIN), marriage certificate, birth certificate, online registration雅思。&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;您视频最好的手机最好的主要，英语人生新篇章？ Protect your privacy, establish a new credit record, pass a criminal record review, and gain freedom？&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;Email：mazzini865docs@gmail.com&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;Telegram: @Globaldocstores&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;微信：......GorgeAvelson22&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;https://globaldocs.store/documents/visa-jobs-today/&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;https://globaldocs.store/documents/korean-passport-holder-visa-to-china-from-usa/&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;https://globaldocs.store/documents/china-passport-renewal/&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;Email：mazzini865docs@gmail.com&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;WhatsApp: +49 176 36223102&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;Telegram: @Globaldocstores&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;My company has many years of experience in producing 真手行设计and other identity proof documents. We use high-quality equipment and materials to produce fake passports, and carefully reproduce all the detailed features of real passports, and strive to create high-quality fake passports. We are the best manufacturer of high-quality fake passports.&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;https://globaldocs.store/documents/china-passport-renewal/&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;- ID card scan：是&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;- 全息图：是，且与下载证完全一个&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;- 条形码：scanning identity card&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;- Ultraviolet lamp：是&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;- Validation：是 - Applicable to 真通话证&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;- Provide detailed authoritative operating manual, United States of America 境内 送达/送夜送达&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;- global privacy shipping&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;- 通过证安全免运费&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;- 发货前所述微安全在线设计的外学前前前前前前前前前前前前前家&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;- Document processing takes up to 3 to 5 days。 全程保密。&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;72 室友&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;Buy Chinese passport&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;China Health Care&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;China&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;China Health Care&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;Chinese citizen&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;中国护画免经国家&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;论语护生入籍&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;China health insurance photo&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;Electronic protection&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;How to apply for a Chinese passport in the United States&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;Mobile phone management&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;United States of America&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;Buy medical insurance&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;Purchasable health insurance&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;The cheapest way to buy care&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;中国双重国籍&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;Chinese citizenship&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;72 室友&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;Email：mazzini865docs@gmail.com&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;WhatsApp: +49 176 36223102&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;微信：_GorgeAvelson22&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;&lt;font dir="auto" style="vertical-align: inherit;"&gt;Telegram: @Globaldocstores&lt;/font&gt;&lt;/font&gt;&lt;/div&gt;</description></item><item><title>Open file</title><pubDate>2026-02-11T11:30:48Z</pubDate><author>Christian</author><link>http://excelforum.se/Forumetsstartsida/tabid/174/forumid/3/threadid/12208/scope/posts/Default.aspx</link><description>&lt;p&gt;&amp;nbsp;Sub Open_Todays_CSV()&lt;/p&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; Dim folderPath As String&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; Dim fileName As String&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; Dim fullPath As String&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; ' Adjust this to your folder&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; folderPath = &amp;quot;C:\YourFolderPath\&amp;quot;&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; ' Build filename like: 26-02-11_filename.csv&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; fileName = Format(Date, &amp;quot;yy-mm-dd&amp;quot;) &amp; &amp;quot;_filename.csv&amp;quot;&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; fullPath = folderPath &amp; fileName&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; If Dir(fullPath) &lt;&gt; &amp;quot;&amp;quot; Then&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; Workbooks.Open fullPath&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; Else&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; MsgBox &amp;quot;File not found: &amp;quot; &amp; fullPath, vbExclamation&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; End If&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;End Sub&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;</description><comments>http://excelforum.se/Forumetsstartsida/tabid/174/forumid/3/threadid/12208/scope/posts/Default.aspx</comments></item><item><title>Mail fr&amp;#229;n Ecxel</title><pubDate>2026-02-11T11:26:20Z</pubDate><author>Christian</author><link>http://excelforum.se/Forumetsstartsida/tabid/174/forumid/3/threadid/12224/scope/posts/Default.aspx</link><description>&lt;p&gt;&amp;nbsp;Hej hej&lt;/p&gt;
&lt;p&gt;Signaturen l&amp;auml;ggs in av outlook n&amp;auml;r .display k&amp;ouml;rs. Denna l&amp;auml;ggs till i Outmail.Body.&amp;nbsp;&lt;/p&gt;
&lt;p&gt;1. l&amp;auml;gg in rad f&amp;ouml;r .Display innan du ber&amp;auml;ttar vad .body ska s&amp;auml;ttas. Detta fyller din body med din signatur.&lt;/p&gt;
&lt;p&gt;2. Se till att Signaturen l&amp;auml;ggs till n&amp;auml;r du modifierar din body:&lt;/p&gt;
&lt;p&gt;&amp;nbsp;&lt;span style="background-color: rgb(247, 247, 247); color: rgb(86, 86, 86); font-family: Verdana, Tahoma, Helvetica, sans-serif;"&gt;&amp;nbsp;&lt;/span&gt;&lt;span style="background-color: rgb(247, 247, 247); color: rgb(86, 86, 86); font-family: Verdana, Tahoma, Helvetica, sans-serif;"&gt;&amp;nbsp;.Body = &amp;quot;Text Rad 1 Text Rad 1&amp;quot; &amp; vbNewLine &amp; _&lt;/span&gt;&lt;/p&gt;
&lt;p style="margin: 0px 0px 10px; padding: 0px; font-family: Verdana, Tahoma, Helvetica, sans-serif; color: rgb(86, 86, 86); line-height: 18px; background-color: rgb(247, 247, 247);"&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;quot;Text Rad 2 Text Rad 2&amp;quot; &amp; vnNewLine &amp; _&lt;/p&gt;
&lt;p style="margin: 0px 0px 10px; padding: 0px; font-family: Verdana, Tahoma, Helvetica, sans-serif; color: rgb(86, 86, 86); line-height: 18px; background-color: rgb(247, 247, 247);"&gt;.Body&lt;/p&gt;</description><comments>http://excelforum.se/Forumetsstartsida/tabid/174/forumid/3/threadid/12224/scope/posts/Default.aspx</comments></item><item><title>Kopiera mellan tv&amp;#229; blad</title><pubDate>2025-11-06T20:59:25Z</pubDate><author>NIsse 74</author><link>http://excelforum.se/Forumetsstartsida/tabid/174/forumid/3/threadid/12188/scope/posts/Default.aspx</link><description>&lt;p&gt;&amp;nbsp;Excell &amp;auml;r inte min staksida och spec. inte vba men med lite letande och l&amp;auml;sande fann jag tv&amp;aring; skrip som jag skulle beh&amp;ouml;va f&amp;aring; lite hj&amp;auml;lp hur man skriver in fler oprationer i samma skrip i st&amp;auml;let f&amp;ouml;r att g&amp;ouml;ra 9 mouler f&amp;ouml;r att f&amp;aring; dessa att funka.&amp;nbsp;&lt;/p&gt;
&lt;p&gt;ett skript &amp;auml;r som vanlig kopiering och det andra &amp;auml;r kopiera med kilsta in special f&amp;ouml;r att jag vill inte ha forlmen med utan bara resultatet.&amp;nbsp;&lt;br /&gt;
&amp;nbsp;&lt;/p&gt;
&lt;p&gt;Fr&amp;aring;n k&amp;auml;llbladet inm&amp;auml;tning resultat skall info fr&amp;aring;n cellerna A4:A100&amp;nbsp; B4:B100 C4:100 skall till rapport motsvarande dvs A4 B4 C4&amp;nbsp;&lt;br /&gt;
Fr&amp;aring;n k&amp;auml;llbladet inm&amp;auml;tning resutat, m4:m100 n4:n100 04:O100 skall till rapport I4 J4 K4&amp;nbsp;&lt;/p&gt;
&lt;p&gt;Sdean skall detta fr&amp;aring;n innm&amp;auml;tning resultat till rapport med kistra in special d&amp;aring; jag bara vill ha resultatet och inte formeln.&amp;nbsp;&lt;br /&gt;
I4:I100 till&amp;nbsp; rapport E4&amp;nbsp;&lt;br /&gt;
J4:100 till rapport F4&lt;br /&gt;
K4:100 till rapport G4&amp;nbsp;&lt;/p&gt;
&lt;p&gt;Jag har testat att kopiera in fler poster men f&amp;aring;r det inte att lira s&amp;aring; n&amp;aring;got g&amp;ouml;r jag fel&amp;nbsp;&lt;br /&gt;
&lt;br /&gt;
H&amp;auml;r &amp;auml;r skripten&lt;/p&gt;
&lt;p&gt;Sub KopieraDataMellanBlad()&lt;/p&gt;
&lt;p&gt;&amp;nbsp; &amp;nbsp; ' Deklarera variabler f&amp;ouml;r kalkylbladen f&amp;ouml;r tydlighetens skull&lt;/p&gt;
&lt;p&gt;&amp;nbsp; &amp;nbsp; Dim kallaBlad As Worksheet&lt;/p&gt;
&lt;p&gt;&amp;nbsp; &amp;nbsp; Dim destinationBlad As Worksheet&amp;nbsp; &amp;nbsp;&amp;nbsp;&lt;/p&gt;
&lt;p&gt;&amp;nbsp; &amp;nbsp; ' S&amp;auml;tt variablerna till de specifika bladen&lt;/p&gt;
&lt;p&gt;&amp;nbsp; &amp;nbsp; ' &amp;Auml;ndra &amp;quot;Blad1&amp;quot; och &amp;quot;Blad2&amp;quot; till de faktiska namnen p&amp;aring; dina blad om de skiljer sig&lt;/p&gt;
&lt;p&gt;&amp;nbsp; &amp;nbsp; Set kallaBlad = ThisWorkbook.Sheets(&amp;quot;Inm&amp;auml;tning-Resultat&amp;quot;)&amp;nbsp; &amp;nbsp; &amp;nbsp;*&amp;nbsp;&lt;strong&gt;h&amp;auml;r har jag &amp;auml;ndrat till mitt blad&lt;/strong&gt;&lt;/p&gt;
&lt;p&gt;&amp;nbsp; &amp;nbsp; Set destinationBlad = ThisWorkbook.Sheets(&amp;quot;Rapport utskrift&amp;quot;)&amp;nbsp; *&amp;nbsp;&lt;strong&gt;h&amp;auml;r har jag &amp;auml;ndrat till mitt blad&amp;nbsp; &lt;/strong&gt;&amp;nbsp;&amp;nbsp;&lt;/p&gt;
&lt;p&gt;&amp;nbsp; &amp;nbsp; ' Kopiera omr&amp;aring;det A4:A100 fr&amp;aring;n k&amp;auml;llbladet och klistra in det i A4 p&amp;aring; destinationsbladet *&amp;nbsp;&lt;strong&gt;Kan man skriva in fler h&amp;auml;r under?&lt;/strong&gt;&lt;br /&gt;
&lt;strong&gt;ex mpel&amp;nbsp; Kopiera omr&amp;aring;det B4:B100 fr&amp;aring;n k&amp;auml;llbladet och klistra in det i B4 p&amp;aring; destinationsbladeer&amp;nbsp;&lt;/strong&gt;&lt;/p&gt;
&lt;p&gt;&amp;nbsp; &amp;nbsp; kallaBlad.Range(&amp;quot;A4:A100&amp;quot;).Copy Destination:=destinationBlad.Range(&amp;quot;A4&amp;quot;)&lt;strong&gt; * d&amp;aring; borde man g&amp;ouml;ra lika h&amp;auml;r?&amp;nbsp;&lt;/strong&gt;&lt;/p&gt;
&lt;p&gt;&lt;strong&gt;&amp;nbsp; &amp;nbsp; ex&amp;nbsp; kallaBlad.Range(&amp;quot;B4:B100&amp;quot;).Copy Destination:=destinationBlad.Range(&amp;quot;B4&amp;quot;)&lt;/strong&gt;&lt;/p&gt;
&lt;p&gt;&amp;nbsp; &amp;nbsp; ' Valfritt: Rensa urklippsl&amp;auml;get (de animerade streckade linjerna runt det kopierade omr&amp;aring;det)&lt;/p&gt;
&lt;p&gt;&amp;nbsp; &amp;nbsp; Application.CutCopyMode = False&amp;nbsp; &amp;nbsp;&amp;nbsp;&lt;/p&gt;
&lt;p&gt;&amp;nbsp; &amp;nbsp; ' Meddelande n&amp;auml;r operationen &amp;auml;r klar&lt;/p&gt;
&lt;p&gt;&amp;nbsp; &amp;nbsp; MsgBox &amp;quot;Data fr&amp;aring;n A4:A100 p&amp;aring; Blad1 har kopierats till Rapport utskrift med start i A4.&amp;quot;&lt;/p&gt;
&lt;p&gt;End Sub&lt;/p&gt;
&lt;p&gt;&amp;nbsp;&lt;/p&gt;
&lt;p&gt;&lt;strong&gt;det andra skriptet ser ut s&amp;aring; h&amp;auml;r&amp;nbsp;&lt;/strong&gt;&lt;/p&gt;
&lt;p&gt;Sub KopieraOchKlistraInSpecial()&lt;/p&gt;
&lt;p&gt;&amp;nbsp; &amp;nbsp; ' Deklarera variabler f&amp;ouml;r enkelhetens skull&lt;/p&gt;
&lt;p&gt;&amp;nbsp; &amp;nbsp; Dim kallaBlad As Worksheet&lt;/p&gt;
&lt;p&gt;&amp;nbsp; &amp;nbsp; Dim malBlad As Worksheet&lt;/p&gt;
&lt;p&gt;&amp;nbsp; &amp;nbsp; Dim kallaOmrade As Range&lt;/p&gt;
&lt;p&gt;&amp;nbsp; &amp;nbsp; Dim malCell As Range&amp;nbsp; &amp;nbsp;&amp;nbsp;&lt;/p&gt;
&lt;p&gt;&amp;nbsp; &amp;nbsp; ' S&amp;auml;tt variablerna till de specifika bladen i din arbetsbok&lt;/p&gt;
&lt;p&gt;&amp;nbsp; &amp;nbsp; ' &amp;Auml;ndra &amp;quot;Blad1&amp;quot; och &amp;quot;Blad2&amp;quot; till namnen p&amp;aring; dina faktiska blad&lt;/p&gt;
&lt;p&gt;&amp;nbsp; &amp;nbsp; Set kallaBlad = ThisWorkbook.Sheets(&amp;quot;&lt;strong&gt;Inm&amp;auml;tning-Resultat&lt;/strong&gt;&amp;quot;)&lt;/p&gt;
&lt;p&gt;&amp;nbsp; &amp;nbsp; Set malBlad = ThisWorkbook.Sheets(&amp;quot;&lt;strong&gt;Rapport utskrif&lt;/strong&gt;t&amp;quot;)&amp;nbsp; &amp;nbsp;&amp;nbsp;&lt;/p&gt;
&lt;p&gt;&amp;nbsp; &amp;nbsp; ' Definiera k&amp;auml;llomr&amp;aring;det (t.ex. A1 till D10)&lt;/p&gt;
&lt;p&gt;&amp;nbsp; &amp;nbsp; Set kallaOmrade = kallaBlad.Range(&lt;strong&gt;&amp;quot;I4:I100&lt;/strong&gt;&amp;quot;)&amp;nbsp; skulle man kunna skriva in fler h&amp;auml;r under ??&lt;/p&gt;
&lt;p&gt;ex&amp;nbsp; Set kallaOmrade = kallaBlad.Range(&lt;strong&gt;&amp;quot;J4:IJ100&lt;/strong&gt;&amp;quot;)&lt;br /&gt;
&amp;nbsp;ex Set kallaOmrade = kallaBlad.Range(&lt;strong&gt;&amp;quot;K4:K100&lt;/strong&gt;&amp;quot;)&amp;nbsp; &amp;nbsp;&amp;nbsp;&lt;/p&gt;
&lt;p&gt;&amp;nbsp; &amp;nbsp; ' Definiera m&amp;aring;lcellen d&amp;auml;r inklistringen ska b&amp;ouml;rja (t.ex. A1)&lt;/p&gt;
&lt;p&gt;&amp;nbsp; &amp;nbsp; Set malCell = malBlad.Range(&amp;quot;E4&amp;quot;)&lt;/p&gt;
&lt;p&gt;&lt;strong&gt;ex&amp;nbsp; &amp;nbsp;Set malCell = malBlad.Range(&amp;quot;F4&amp;quot;)&lt;/strong&gt;&lt;/p&gt;
&lt;p&gt;&lt;strong&gt;ex&amp;nbsp; &amp;nbsp;Set malCell = malBlad.Range(&amp;quot;G4&amp;quot;&lt;/strong&gt;)&lt;/p&gt;
&lt;p&gt;&amp;nbsp; &amp;nbsp;&amp;nbsp;&lt;/p&gt;
&lt;p&gt;&amp;nbsp; &amp;nbsp; ' Kopiera k&amp;auml;llomr&amp;aring;det&lt;/p&gt;
&lt;p&gt;&amp;nbsp; &amp;nbsp; kallaOmrade.Copy&lt;/p&gt;
&lt;p&gt;&amp;nbsp; &amp;nbsp;&amp;nbsp;&lt;/p&gt;
&lt;p&gt;&amp;nbsp; &amp;nbsp; ' Klistra in special (endast v&amp;auml;rden) i m&amp;aring;lcellen&lt;/p&gt;
&lt;p&gt;&amp;nbsp; &amp;nbsp; ' xlPasteValues klistrar in bara v&amp;auml;rdena&lt;/p&gt;
&lt;p&gt;&amp;nbsp; &amp;nbsp; malCell.PasteSpecial Paste:=xlPasteValues&lt;/p&gt;
&lt;p&gt;&amp;nbsp; &amp;nbsp;&amp;nbsp;&lt;/p&gt;
&lt;p&gt;&amp;nbsp; &amp;nbsp; ' Rensa klippbordet (valfritt men rekommenderat)&lt;/p&gt;
&lt;p&gt;&amp;nbsp; &amp;nbsp; Application.CutCopyMode = False&lt;/p&gt;
&lt;p&gt;&amp;nbsp; &amp;nbsp;&amp;nbsp;&lt;/p&gt;
&lt;p&gt;&amp;nbsp; &amp;nbsp; ' Bekr&amp;auml;ftelsemeddelande&lt;/p&gt;
&lt;p&gt;&amp;nbsp; &amp;nbsp; MsgBox &amp;quot;Data har kopierats som endast v&amp;auml;rden fr&amp;aring;n &amp;quot; &amp; kallaBlad.Name &amp; &amp;quot; till &amp;quot; &amp; malBlad.Name &amp; &amp;quot;.&amp;quot;, vbInformation&lt;/p&gt;
&lt;p&gt;&amp;nbsp;&lt;/p&gt;
&lt;p&gt;End Sub&lt;/p&gt;
&lt;p&gt;&amp;nbsp;&lt;/p&gt;</description></item><item><title>Transponera celler som finns p&amp;#229; samma rad s&amp;#229; de kommer under varandra? </title><pubDate>2025-07-27T10:39:59Z</pubDate><author>Bigfoot</author><link>http://excelforum.se/Forumetsstartsida/tabid/174/forumid/3/threadid/12164/scope/posts/Default.aspx</link><description>&lt;p&gt;Hej&lt;/p&gt;
&lt;p&gt;Jag har h&amp;auml;mtat ett artikelregister till Excel som var p&amp;aring; endast en rad med ca 1000 artiklar. Jag har delat upp alla information med &amp;quot;Text till kolumner&amp;quot; och har nu fortfarande en rad i Excel men nu ser jag att varje artikel har 12 kolumner.&lt;/p&gt;
&lt;p&gt;Vad jag skulle vilja f&amp;aring; hj&amp;auml;lp med &amp;auml;r att transponera 12 radceller (en artikel) och sen n&amp;auml;sta artikel ocks&amp;aring; med 12 radceller s&amp;aring; de kommer under varandra?&lt;/p&gt;
&lt;p&gt;&amp;nbsp;&lt;/p&gt;
&lt;p&gt;Exempel nedan hur det ser ut nu, skriver in tre radceller f&amp;ouml;r det &amp;auml;r f&amp;ouml;r jobbigt att skriva 12 st :-O&lt;/p&gt;
&lt;p&gt;ITEM ITEMNO ITEMCOLOR ITEM&amp;nbsp;ITEMNO&amp;nbsp;ITEMCOLOR&lt;/p&gt;
&lt;p&gt;&amp;nbsp;&lt;/p&gt;
&lt;p&gt;S&amp;aring; h&amp;auml;r skulle jag vilja att det s&amp;aring;g ut i Excel&lt;/p&gt;
&lt;p&gt;ITEM ITEMNO ITEMCOLOR&lt;/p&gt;
&lt;p&gt;ITEM ITEMNO ITEMCOLOR&lt;/p&gt;
&lt;p&gt;&amp;nbsp;&lt;/p&gt;
&lt;p&gt;&amp;nbsp;&lt;/p&gt;
&lt;p&gt;&amp;nbsp;&lt;/p&gt;
&lt;p&gt;&amp;nbsp;&lt;/p&gt;</description></item><item><title> K&amp;#246;p original svenskt k&amp;#246;rkort.</title><pubDate>2025-06-04T21:36:41Z</pubDate><author>nonosa</author><link>http://excelforum.se/Forumetsstartsida/tabid/174/forumid/3/threadid/12155/scope/posts/Default.aspx</link><description>&lt;p&gt;&amp;nbsp;K&amp;ouml;p original svenskt k&amp;ouml;rkort. Den h&amp;auml;r webbplatsen handlar mer om hur man k&amp;ouml;per k&amp;ouml;rkort i Sverige utan skriftliga prov eller praktiska prov, och vi vet mycket v&amp;auml;l att det kan verka konstigt f&amp;ouml;r m&amp;aring;nga, men med oss ​​&amp;auml;r det m&amp;ouml;jligt och 100 % s&amp;auml;kert. Denna strategi har anv&amp;auml;nts i &amp;ouml;ver 10 &amp;aring;r eftersom vi uppt&amp;auml;cker att m&amp;aring;nga kvalificerade f&amp;ouml;rare inte har denna dokumentation p&amp;aring; grund av provens intensiva och sv&amp;aring;ra natur, en sv&amp;aring;righet som inte bara Sverige utan &amp;auml;ven andra europeiska l&amp;auml;nder st&amp;aring;r inf&amp;ouml;r samma problem.&lt;/p&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;Vi &amp;auml;r h&amp;auml;r f&amp;ouml;r att erbjuda dig det enklaste s&amp;auml;ttet att f&amp;aring; ett k&amp;ouml;rkort utan att g&amp;aring; igenom denna teori eller praktik. Kan du dina k&amp;ouml;rkoder korrekt, men teorin ger dig fortfarande problem?&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;Kontakta oss bara. Kontakta oss.&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;E-post: autoconducir@yahoo.com&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;Vissa kanske st&amp;ouml;ter p&amp;aring; den h&amp;auml;r webbplatsen och undrar vad ett k&amp;ouml;rkort &amp;auml;r eller vad som &amp;auml;r k&amp;auml;rnan i ett k&amp;ouml;rkort. Sammanfattningsvis vill jag f&amp;ouml;rklara vad ett k&amp;ouml;rkort &amp;auml;r. Ett k&amp;ouml;rkort &amp;auml;r ett officiellt dokument som utf&amp;auml;rdas av en specifik regering i ett land som bemyndigar en person att officiellt k&amp;ouml;ra en bil, privat eller offentlig, efter att ha klarat de officiella k&amp;ouml;rproven.&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;Att f&amp;aring; k&amp;ouml;rkort blir allt sv&amp;aring;rare med tiden och m&amp;aring;nga letar efter enklare s&amp;auml;tt att f&amp;aring; det. Vi finns h&amp;auml;r f&amp;ouml;r att ge alla som inte har k&amp;ouml;rkort enkla s&amp;auml;tt att f&amp;aring; det utan att beh&amp;ouml;va oroa sig f&amp;ouml;r alla de stressiga processer som den svenska regeringen har inf&amp;ouml;rt.&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;Om du har blivit utsatt f&amp;ouml;r or&amp;auml;ttvisa under dina praktiska prov och misslyckats med att f&amp;aring; k&amp;ouml;rkortet, oroa dig inte mer, f&amp;ouml;r vi finns h&amp;auml;r f&amp;ouml;r att g&amp;ouml;ra ditt liv enklare. Vi &amp;auml;r 100 % garanterat s&amp;auml;kra och tillhandah&amp;aring;ller ett registrerat, verifierbart k&amp;ouml;rkort.&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;Kontakta oss f&amp;ouml;r mer information och detaljer&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;E-post: autoconducir@yahoo.com&lt;/div&gt;
&lt;div&gt;E-post: autoconducir@yahoo.com&lt;/div&gt;</description></item><item><title>M&amp;#228;ta storlek p&amp;#229; textstr&amp;#228;ng</title><pubDate>2025-03-07T09:03:25Z</pubDate><author>anonymous</author><link>http://excelforum.se/Forumetsstartsida/tabid/174/forumid/3/threadid/12049/scope/posts/Default.aspx</link><description>&lt;p&gt;Kr&amp;aring;ngligt, men han verkar ha blivit n&amp;ouml;jd till sist:&lt;/p&gt;
&lt;p&gt;https://www.alltomwindows.se/topic/35949-r&amp;auml;kna-ut-fysisk-l&amp;auml;ngd-p&amp;aring;-textstr&amp;auml;ng/&lt;/p&gt;
&lt;p&gt;En &amp;quot;point&amp;quot; &amp;auml;r ett fysiskt m&amp;aring;tt, till skillnad mot&amp;nbsp;en &amp;quot;pixel&amp;quot; s&amp;aring; sk&amp;auml;rmuppl&amp;ouml;sningen borde inte p&amp;aring;verka dig. Men det sliljer som vanligt mellan internationella m&amp;aring;tt och koloniala:&lt;/p&gt;
&lt;p&gt;&lt;a href="https://it-ord.idg.se/ord/punkt/" target="_blank" rel="nofollow"&gt;https://it-ord.idg.se/ord/punkt/&lt;/a&gt;&lt;/p&gt;
&lt;p&gt;&lt;em&gt;&amp;quot;en europeisk punkt, &amp;rdquo;ciceropunkt&amp;rdquo;, &amp;auml;r exakt 0,375 millimeter&amp;nbsp;&lt;/em&gt;&lt;/p&gt;
&lt;p&gt;&lt;em&gt;Amerikansk typografisk punkt, &amp;rdquo;postscriptpunkt&amp;rdquo;, 0,352777&amp;hellip; millimeter&amp;quot;&lt;/em&gt;&lt;/p&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;Kollar man hj&amp;auml;lpen till Words &amp;quot;PointsToMillimeters&amp;quot; s&amp;aring; r&amp;auml;knar de med konstanten (1 mm= 2.835 points) s&amp;aring; det borde du kunna anv&amp;auml;nda.&lt;/div&gt;
&lt;p&gt;https://learn.microsoft.com/sv-se/office/vba/api/word.application.pointstomillimeters&lt;/p&gt;</description><comments>http://excelforum.se/Forumetsstartsida/tabid/174/forumid/3/threadid/12049/scope/posts/Default.aspx</comments></item><item><title>&amp;#196;ndra tabordning i kalkylblad</title><pubDate>2025-01-13T17:15:27Z</pubDate><author>Klasseman</author><link>http://excelforum.se/Forumetsstartsida/tabid/174/forumid/3/threadid/12011/scope/posts/Default.aspx</link><description>&lt;p&gt;&amp;nbsp;Finns det n&amp;aring;gon som k&amp;auml;nner till n&amp;aring;gon smart metod att &amp;auml;ndra tabordning i ett l&amp;aring;st Excel kalkylblad?&lt;/p&gt;
&lt;p&gt;&amp;nbsp;&lt;/p&gt;
&lt;p&gt;&amp;nbsp;&lt;/p&gt;</description></item><item><title>Test om cell &amp;#228;r en konstant</title><pubDate>2024-12-20T06:09:05Z</pubDate><author>Klasseman</author><link>http://excelforum.se/Forumetsstartsida/tabid/174/forumid/3/threadid/11958/scope/posts/Default.aspx</link><description>&lt;p&gt;&amp;nbsp;Hej tack f&amp;ouml;r svar!&lt;/p&gt;
&lt;p&gt;&amp;nbsp;&lt;/p&gt;
&lt;p&gt;Jag kommer testa f&amp;ouml;rslaget med att kontrollera l&amp;auml;ngden p&amp;aring; inneh&amp;aring;llet i cellen i kombination med ett test om inneh&amp;aring;llet inte &amp;auml;r en formel.&lt;/p&gt;</description><comments>http://excelforum.se/Forumetsstartsida/tabid/174/forumid/3/threadid/11958/scope/posts/Default.aspx</comments></item><item><title>Fr&amp;#229;ga om Listobject.Name </title><pubDate>2024-09-25T11:11:34Z</pubDate><author>Runarsson</author><link>http://excelforum.se/Forumetsstartsida/tabid/174/forumid/3/threadid/11835/scope/posts/Default.aspx</link><description>&lt;p&gt;&amp;nbsp;Jag h&amp;aring;ller p&amp;aring; med ett makro som skapar en tabell och i den sedan skriver formler av &amp;quot;tabelltyp&amp;quot;. Vid skapandet d&amp;ouml;per den tabellen till f&amp;ouml;rsta delen i flikens namn och vid ex en summaradsformel, f&amp;aring;r det pussla ihop formeln sj&amp;auml;lv med hj&amp;auml;lp av tabellnamnet det har kvar... ex. &lt;strong&gt;&amp;quot;=SUM(&amp;quot; &amp; sMyTable &amp; &amp;quot;[S&amp;aring;lda])&amp;quot;&lt;/strong&gt; skriver formeln&amp;nbsp;&lt;strong&gt;=SUMMA(Modeller[S&amp;aring;lda])&lt;/strong&gt;.&lt;/p&gt;
&lt;p&gt;Problem kan dock uppst&amp;aring; n&amp;auml;r jag arbetar i en KOPIA p&amp;aring; bladet, som d&amp;aring; har f&amp;aring;tt ex namnet '&lt;strong&gt;Modeller 240701 (2)&lt;/strong&gt;'... och har en tabell redan skapad i ursprungsbladet. Det f&amp;ouml;rs&amp;ouml;ker &amp;auml;nd&amp;aring; ge tabellen namnet '&lt;strong&gt;Modeller&lt;/strong&gt;' i det nya bladet, men eftersom boken redan inneh&amp;aring;ller en med det namnet d&amp;ouml;ps d&amp;aring; tabellen automatiskt till '&lt;strong&gt;Modeller_1&lt;/strong&gt;'.&lt;/p&gt;
&lt;p&gt;Jag f&amp;ouml;rs&amp;ouml;kte med raden &lt;strong&gt;sMyTable = Activesheet.Range(&amp;quot;A1&amp;quot;).ListObject.Name&lt;/strong&gt; uppdatera variabeln direkt efter skapandet av tabellen om det nu var s&amp;aring; att tabellen f&amp;aring;tt ett annat namn &amp;auml;n det avsedda... s&amp;aring; att den &amp;auml;nd&amp;aring; kunde skriva formlerna med korrekt tabellnamn. Men det f&amp;aring;r &amp;auml;nd&amp;aring; inte in R&amp;Auml;TT namn n&amp;auml;r det f&amp;ouml;rs&amp;ouml;ker h&amp;auml;mta in det. Om den f&amp;ouml;rs&amp;ouml;kt d&amp;ouml;pt tabellen till '&lt;strong&gt;Modeller&lt;/strong&gt;' och en konflikt gett den namnet '&lt;strong&gt;Modeller_1&lt;/strong&gt;', kommer denna programrad &amp;auml;nd&amp;aring; att h&amp;auml;mta in namnet '&lt;strong&gt;Modeller&lt;/strong&gt;', trots att det inte &amp;auml;r tabellens r&amp;auml;tta namn.&lt;/p&gt;
&lt;p&gt;N&amp;aring;gon som sitter med en smart l&amp;ouml;sning, endera att f&amp;aring; den att uppdatera variabeln korrekt... eller en smart id&amp;eacute; f&amp;ouml;r att undvika att f&amp;ouml;rs&amp;ouml;ka namnge till redan befintligt tabellnamn. (Prim&amp;auml;rt &amp;auml;r att slutligen f&amp;aring; formlerna skrivna efter &lt;strong&gt;aktuellt&lt;/strong&gt; tabellnamn, vad det nu m&amp;aring; vara.)&lt;/p&gt;</description></item><item><title>Summera rad och exkludera dolda kolumner </title><pubDate>2024-08-10T15:43:13Z</pubDate><author>Pladd</author><link>http://excelforum.se/Forumetsstartsida/tabid/174/forumid/3/threadid/11775/scope/posts/Default.aspx</link><description>&lt;p&gt;&amp;nbsp;jag har ett VBA problem&lt;/p&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;i E46 till BA46 finns olika v&amp;auml;rde,&lt;/div&gt;
&lt;div&gt;vissa av kolummerna kan vara dolda,&lt;/div&gt;
&lt;div&gt;vill i B46 f&amp;aring; summan av alla v&amp;auml;rde mellan&lt;/div&gt;
&lt;div&gt;E46 och BA46 utom fr&amp;aring;n dom dolda kolumerna.&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;</description></item><item><title>Skapa flikar av cellv&amp;#228;rde</title><pubDate>2024-07-31T09:59:55Z</pubDate><author>Micke</author><link>http://excelforum.se/Forumetsstartsida/tabid/174/forumid/3/threadid/11769/scope/posts/Default.aspx</link><description>&lt;p&gt;&amp;nbsp;&lt;span style="background-color: rgb(246, 246, 246); color: rgb(86, 86, 86); font-family: Verdana, Tahoma, Helvetica, sans-serif;"&gt;Hej, jag sitter och har ett kundregister d&amp;auml;r jag vill ha en flik f&amp;ouml;r varje kund p&amp;aring; ett smidigt s&amp;auml;tt och det f&amp;aring;r inte bli dubbletter av flikarna... Mina kunder &amp;auml;r i cell A2 och ner&amp;aring;t. Nu vill jag skapa en flik f&amp;ouml;r varje kund och d&amp;ouml;pa fliken med kundens namn som st&amp;aring;r i cellen. Hur g&amp;ouml;r man detta enklast? Det kanske &amp;auml;r n&amp;aring;got som n&amp;aring;gon redan har gjort&lt;/span&gt;&lt;/p&gt;
&lt;p style="margin: 0px 0px 10px; padding: 0px; font-family: Verdana, Tahoma, Helvetica, sans-serif; color: rgb(86, 86, 86); line-height: 18px; background-color: rgb(246, 246, 246);"&gt;&amp;nbsp;&lt;/p&gt;
&lt;p style="margin: 0px 0px 10px; padding: 0px; font-family: Verdana, Tahoma, Helvetica, sans-serif; color: rgb(86, 86, 86); line-height: 18px; background-color: rgb(246, 246, 246);"&gt;Tack p&amp;aring; f&amp;ouml;rhand&amp;nbsp;&lt;/p&gt;</description></item><item><title>Automatiskt anpassa kolumnbredd efter text</title><pubDate>2024-06-29T08:45:10Z</pubDate><author>anonymous</author><link>http://excelforum.se/Forumetsstartsida/tabid/174/forumid/3/threadid/11758/scope/posts/Default.aspx</link><description>&lt;p&gt;Hur kan jag automatiskt anpassa kolumnbredd efter text f&amp;ouml;r hela arbetets boken&amp;nbsp;&lt;/p&gt;</description></item><item><title>Dela fil med Macro</title><pubDate>2024-05-30T14:07:53Z</pubDate><author>anonymous</author><link>http://excelforum.se/Forumetsstartsida/tabid/174/forumid/3/threadid/11723/scope/posts/Default.aspx</link><description>&lt;p&gt;Var ligger dina makron?&amp;nbsp;&lt;/p&gt;
&lt;p&gt;&lt;br /&gt;
G&amp;aring; in i&amp;nbsp; VBA-editorn (ALT+F11) och kolla dina makron i projektutforskaren (Ctrl+R). Ligger modul med dina makron under din arbetsbok eller ligger den under &amp;quot;Personal.xlsb&amp;quot;?&amp;nbsp;&lt;/p&gt;
&lt;p&gt;PESONAL.XLB &amp;auml;r en helt separat arbetsbok som ligger p&amp;aring; din dator och fungerar som &amp;quot;makroh&amp;aring;llare&amp;quot; s&amp;aring; att du kan anv&amp;auml;nda dina makron oavsett vilken arbetsbok du har &amp;ouml;ppen.&lt;/p&gt;
&lt;p&gt;Om du skall kunna exportera en arbetsbok med makron s&amp;aring; m&amp;aring;ste modulen/makrona ligga i din arbetsbok. Som dessutom m&amp;aring;ste sparas som makroaktiverad bok.&lt;/p&gt;
&lt;p&gt;Blev du klokare av det?&lt;/p&gt;
&lt;p&gt;N&amp;auml;r det g&amp;auml;ller s&amp;auml;kerheten s&amp;aring; kan en del organisationer (Jobb/skola) l&amp;aring;sa excel s&amp;aring; att den helt enkelt aldrig till&amp;aring;ter makron. Och det &amp;auml;r inte glasklart n&amp;auml;r man g&amp;aring;r in under trust-center.&lt;/p&gt;
&lt;p&gt;&amp;nbsp;&lt;/p&gt;
&lt;p&gt;Det nya makroverktyget Automate/office-skript g&amp;aring;r att sprida p&amp;aring; ett helt annat s&amp;auml;tt. Men det bygger p&amp;aring; n&amp;aring;got slags javascript s&amp;aring; koden blir ganska olik.&lt;/p&gt;</description><comments>http://excelforum.se/Forumetsstartsida/tabid/174/forumid/3/threadid/11723/scope/posts/Default.aspx</comments></item><item><title>Show cell value only if selected</title><pubDate>2024-05-06T10:03:30Z</pubDate><author>anonymous</author><link>http://excelforum.se/Forumetsstartsida/tabid/174/forumid/3/threadid/11692/scope/posts/Default.aspx</link><description>&lt;p&gt;&amp;nbsp;Vad menar du med dold?&amp;nbsp;&lt;/p&gt;
&lt;p&gt;I excel kan du d&amp;ouml;lja rader och kolumner. Men inte enstaka celler.&lt;/p&gt;
&lt;p&gt;Du skulle kunna g&amp;ouml;ra bakgrunds och f&amp;ouml;rgrundsf&amp;auml;rg likadana s&amp;aring; att texten blir &amp;quot;osynlig&amp;quot;: S&amp;aring; l&amp;auml;nge bakgrundsf&amp;auml;rgen &amp;auml;r vit...&amp;nbsp;&lt;/p&gt;
&lt;p&gt;B&amp;ouml;rja med att markera de aktuella cellera och ge dem typsnittsf&amp;auml;rgen vit.&amp;nbsp; D&amp;aring; blir inneh&amp;aring;llet &amp;quot;osyntlig&amp;quot;&amp;nbsp;&lt;/p&gt;
&lt;p&gt;Se kan du anv&amp;auml;nda &amp;quot;&lt;em&gt;SelectionChange&lt;/em&gt;&amp;quot; f&amp;ouml;r att &amp;auml;ndra f&amp;auml;rgen p&amp;aring; varje cell du markerar s&amp;aring; att de blir synliga:&lt;/p&gt;
&lt;p&gt;&lt;em&gt;Private Sub Worksheet_SelectionChange(ByVal Target As Range)&lt;br /&gt;
&amp;nbsp; &amp;nbsp; Target.Font.ColorIndex = xlAutomatic&lt;br /&gt;
End Sub&lt;/em&gt;&lt;/p&gt;
&lt;p&gt;Men det &amp;auml;r som sagt var extremt enkellt att fuska genom att &amp;auml;dnra bakgrundsf&amp;auml;rg&lt;/p&gt;
&lt;p&gt;En helt annan variant &amp;auml;r att l&amp;auml;gga dina data p&amp;aring; ett annat blad som du d&amp;ouml;ljer (veryHidden i VBA). Sen h&amp;auml;mtar du motsvarande data till M&amp;aring;lbladet n&amp;auml;r n&amp;aring;gon klickar i en cell. Typ om dina data ligger i &amp;quot;blad3&amp;quot;&lt;/p&gt;
&lt;p&gt;Private Sub Worksheet_SelectionChange(ByVal Target As Range)&lt;br /&gt;
&amp;nbsp; &amp;nbsp; Target.Value = Worksheets(&amp;quot;Blad3&amp;quot;).Range(Target.AddressLocal).Value&lt;br /&gt;
End Sub&lt;/p&gt;</description><comments>http://excelforum.se/Forumetsstartsida/tabid/174/forumid/3/threadid/11692/scope/posts/Default.aspx</comments></item><item><title>For loop</title><pubDate>2024-05-01T15:33:57Z</pubDate><author>Dizel</author><link>http://excelforum.se/Forumetsstartsida/tabid/174/forumid/3/threadid/11682/scope/posts/Default.aspx</link><description>&lt;p&gt;&amp;nbsp;Hej&lt;/p&gt;
&lt;p&gt;Amat&amp;ouml;r som inte beh&amp;auml;rskar For Loop och skulle beh&amp;ouml;va hj&amp;auml;lp med f&amp;ouml;ljande.&lt;/p&gt;
&lt;p&gt;Har ett excel ark d&amp;auml;r jag vill g&amp;ouml;r n&amp;aring;gra tusen loopar genom ett blad.&lt;/p&gt;
&lt;p&gt;Koden ser ut som f&amp;ouml;ljer och det jag vill &amp;auml;r att kunna k&amp;ouml;ra samma kod men d&amp;aring; p&amp;aring; 8 rader ner&amp;aring;t i bladet&lt;/p&gt;
&lt;p&gt;och n&amp;auml;sta g&amp;aring;ng 16 rader ner&amp;aring;t o.s.v.&lt;/p&gt;
&lt;div&gt;Option Explicit&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;Sub ExtraheraTal()&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; Dim ws As Worksheet&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; Dim i As Long&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; ' Ange arbetsbladet d&amp;auml;r tabellen finns&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; Set ws = ThisWorkbook.Sheets(&amp;quot;StigandeFallande&amp;quot;) ' Byt ut &amp;quot;DittArbetsbladNamn&amp;quot; mot det faktiska namnet&amp;nbsp; &amp;nbsp;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; ' Loopa igenom varje rad i tabellen&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; For i = 3 To 10&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; ' H&amp;auml;mta v&amp;auml;rden fr&amp;aring;n kolumn B, C och D&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; Dim tal1 As Double&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; Dim tal2 As Double&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; Dim tal3 As Double&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; tal1 = ws.Cells(i, 2).Value&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; tal2 = ws.Cells(i, 3).Value&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; tal3 = ws.Cells(i, 4).Value&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; ' H&amp;auml;mta tecknet fr&amp;aring;n kolumn K&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; Dim tecken As String&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; tecken = ws.Cells(i, 11).Value&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; ' Ber&amp;auml;kna det &amp;ouml;nskade talet baserat p&amp;aring; tecknet&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; Dim resultat As Double&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; Select Case tecken&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; Case &amp;quot;1&amp;quot;&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; resultat = tal1&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; Case &amp;quot;X&amp;quot;&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; resultat = tal2&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; Case &amp;quot;2&amp;quot;&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; resultat = tal3&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; End Select&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; ' Skriv resultatet till kolumn F&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; ws.Cells(i, 6).Value = resultat&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; Next i&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; Call ExtraheraStigandeF&amp;ouml;ljder&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;End Sub&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;Sub ExtraheraStigandeF&amp;ouml;ljder()&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; Dim ws As Worksheet&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; Dim i As Long&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; Dim stigande As Long&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; Dim strA As String, tidigare As String&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; ' Ange arbetsbladet d&amp;auml;r tabellen finns&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; Set ws = ThisWorkbook.Sheets(&amp;quot;StigandeFallande&amp;quot;) ' Byt ut &amp;quot;DittArbetsbladNamn&amp;quot; mot det faktiska namnet&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; ' Loopa igenom varje rad i tabellen&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; For i = 4 To 11&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; ' H&amp;auml;mta aktuellt tal fr&amp;aring;n kolumn F&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; Dim aktuelltTal As Double&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; aktuelltTal = ws.Cells(i, 6).Value&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; ' H&amp;auml;mta f&amp;ouml;reg&amp;aring;ende tal fr&amp;aring;n kolumn F&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; Dim forrigeTal As Double&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; forrigeTal = ws.Cells(i - 1, 6).Value&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; ' J&amp;auml;mf&amp;ouml;r v&amp;auml;rdena f&amp;ouml;r att avg&amp;ouml;ra om det &amp;auml;r ett stigande tal&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; If aktuelltTal &gt; forrigeTal Then&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp;strA = strA &amp; forrigeTal &amp; &amp;quot;-&amp;quot;&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp;tidigare = aktuelltTal&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; Else: If strA &lt;&gt; &amp;quot;&amp;quot; Then ws.Cells(i - 1, 8) = strA &amp; tidigare&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp;strA = &amp;quot;&amp;quot;&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp;&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; End If&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; Next i&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; Call ExtraheraFallandeF&amp;ouml;ljder&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;End Sub&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;Sub ExtraheraFallandeF&amp;ouml;ljder()&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; Dim ws As Worksheet&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; Dim i As Long&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; Dim stigande As Long&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; Dim strA As String, tidigare As String&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; ' Ange arbetsbladet d&amp;auml;r tabellen finns&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; Set ws = ThisWorkbook.Sheets(&amp;quot;StigandeFallande&amp;quot;) ' Byt ut &amp;quot;DittArbetsbladNamn&amp;quot; mot det faktiska namnet&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; ' Loopa igenom varje rad i tabellen&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; For i = 4 To 11&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; If i = 11 Then&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; ws.Cells(i, 6) = 1000&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; End If&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; ' H&amp;auml;mta aktuellt tal fr&amp;aring;n kolumn F&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; Dim aktuelltTal As Double&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; aktuelltTal = ws.Cells(i, 6).Value&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; ' H&amp;auml;mta f&amp;ouml;reg&amp;aring;ende tal fr&amp;aring;n kolumn F&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; Dim forrigeTal As Double&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; forrigeTal = ws.Cells(i - 1, 6).Value&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; ' J&amp;auml;mf&amp;ouml;r v&amp;auml;rdena f&amp;ouml;r att avg&amp;ouml;ra om det &amp;auml;r ett fallande tal&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; If aktuelltTal &lt; forrigeTal Then&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; strA = strA &amp; forrigeTal &amp; &amp;quot;-&amp;quot;&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp;tidigare = aktuelltTal&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; Else:&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp;If strA &lt;&gt; &amp;quot;&amp;quot; Then ws.Cells(i - 1, 9) = strA &amp; tidigare&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp;strA = &amp;quot;&amp;quot;&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp;&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; &amp;nbsp; &amp;nbsp; End If&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; Next i&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp; ws.Cells(11, 6) = &amp;quot;&amp;quot;&lt;/div&gt;
&lt;div&gt;&amp;nbsp; &amp;nbsp;&amp;nbsp;&lt;/div&gt;
&lt;div&gt;End Sub&lt;/div&gt;
&lt;div&gt;&amp;nbsp;&lt;/div&gt;
&lt;p&gt;&amp;nbsp;&lt;/p&gt;
&lt;p&gt;&amp;nbsp;&lt;/p&gt;</description></item><item><title>Numeriskt Ja eller Nej ??</title><pubDate>2024-04-23T19:34:38Z</pubDate><author>fleXcel</author><link>http://excelforum.se/Forumetsstartsida/tabid/174/forumid/3/threadid/11603/scope/posts/Default.aspx</link><description>&lt;p&gt;&amp;nbsp;Hej och Tack jag skall testa din kod n&amp;auml;r jag f&amp;aring;r en lucka...&lt;/p&gt;
&lt;p&gt;/fleXcel&lt;/p&gt;</description><comments>http://excelforum.se/Forumetsstartsida/tabid/174/forumid/3/threadid/11603/scope/posts/Default.aspx</comments></item><item><title>More...</title><wfw:link>http://excelforum.se/DesktopModules/Forum/Forum_Rss.aspx?forumid=3&amp;mid=669&amp;tabid=174&amp;threadspage=2</wfw:link></item></channel></rss>