From jbartow at winhaven.net Tue Dec 8 18:08:22 2015 From: jbartow at winhaven.net (John R Bartow) Date: Tue, 8 Dec 2015 18:08:22 -0600 Subject: [Dba-office] Update KB3114409 causes problems with Outlook Message-ID: <03ec01d13215$b77dc4f0$26794ed0$@winhaven.net> Avoid installing KB3114409 if you use Outlook. Although listed as critical this patch does not appear to be a security patch. If you are having problems with Outlook check to see if this patch is installed and remove it. HTH John B From rockysmolin at bchacc.com Tue Dec 8 18:10:15 2015 From: rockysmolin at bchacc.com (Rocky Smolin) Date: Tue, 8 Dec 2015 16:10:15 -0800 Subject: [Dba-office] Update KB3114409 causes problems with Outlook In-Reply-To: <03ec01d13215$b77dc4f0$26794ed0$@winhaven.net> References: <03ec01d13215$b77dc4f0$26794ed0$@winhaven.net> Message-ID: <894F3153E98043AE9496FD8AD2287712@HAL9007> What version of Outlook? What symptoms? Tks. r -----Original Message----- From: Dba-office [mailto:dba-office-bounces at databaseadvisors.com] On Behalf Of John R Bartow Sent: Tuesday, December 08, 2015 4:08 PM To: DBA Office Subject: [Dba-office] Update KB3114409 causes problems with Outlook Importance: High Avoid installing KB3114409 if you use Outlook. Although listed as critical this patch does not appear to be a security patch. If you are having problems with Outlook check to see if this patch is installed and remove it. HTH John B _______________________________________________ Dba-office mailing list Dba-office at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/dba-office --- This email has been checked for viruses by Avast antivirus software. https://www.avast.com/antivirus From ssharkins at gmail.com Tue Dec 8 19:04:44 2015 From: ssharkins at gmail.com (Susan Harkins) Date: Tue, 8 Dec 2015 20:04:44 -0500 Subject: [Dba-office] Update KB3114409 causes problems with Outlook In-Reply-To: <03ec01d13215$b77dc4f0$26794ed0$@winhaven.net> References: <03ec01d13215$b77dc4f0$26794ed0$@winhaven.net> Message-ID: <00b901d1321d$982643e0$c872cba0$@gmail.com> Outlook 2016 was able to pull in one gmail account but not the second nor my yahoo account (Manning). I was able to set up Manning manually but still can't get the second gmail account. : ( I don't have this update. Susan H. Avoid installing KB3114409 if you use Outlook. Although listed as critical this patch does not appear to be a security patch. If you are having problems with Outlook check to see if this patch is installed and remove it. HTH John B _______________________________________________ Dba-office mailing list Dba-office at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/dba-office From ssharkins at gmail.com Tue Dec 8 19:45:47 2015 From: ssharkins at gmail.com (Susan Harkins) Date: Tue, 8 Dec 2015 20:45:47 -0500 Subject: [Dba-office] free resources Message-ID: <000b01d13223$53f4eea0$fbdecbe0$@gmail.com> I'll be writing a second free resources for Office article this week. http://www.techrepublic.com/article/take-advantage-of-these-free-online-offi ce-resources/ If you have a favorite Office-specific site that you'd like to share, please let me know. I can credit you, your company. whatever, with a quick mention and even an email or web page link if you want to do that, but you don't have to - up to you. Thanks! Susan H. From jbartow at winhaven.net Wed Dec 9 13:36:30 2015 From: jbartow at winhaven.net (John R Bartow) Date: Wed, 9 Dec 2015 13:36:30 -0600 Subject: [Dba-office] Update KB3114409 causes problems with Outlook In-Reply-To: <894F3153E98043AE9496FD8AD2287712@HAL9007> References: <03ec01d13215$b77dc4f0$26794ed0$@winhaven.net> <894F3153E98043AE9496FD8AD2287712@HAL9007> Message-ID: <001301d132b8$e726dc70$b5749550$@winhaven.net> 2010+ crashing and locking up. Eventually will only start in safe mode - if that. -----Original Message----- From: Dba-office [mailto:dba-office-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: Tuesday, December 08, 2015 6:10 PM To: dba-office at databaseadvisors.com Subject: Re: [Dba-office] Update KB3114409 causes problems with Outlook What version of Outlook? What symptoms? Tks. r -----Original Message----- From: Dba-office [mailto:dba-office-bounces at databaseadvisors.com] On Behalf Of John R Bartow Sent: Tuesday, December 08, 2015 4:08 PM To: DBA Office Subject: [Dba-office] Update KB3114409 causes problems with Outlook Importance: High Avoid installing KB3114409 if you use Outlook. Although listed as critical this patch does not appear to be a security patch. If you are having problems with Outlook check to see if this patch is installed and remove it. HTH John B _______________________________________________ Dba-office mailing list Dba-office at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/dba-office --- This email has been checked for viruses by Avast antivirus software. https://www.avast.com/antivirus _______________________________________________ Dba-office mailing list Dba-office at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/dba-office From bradm at blackforestltd.com Wed Dec 9 14:49:38 2015 From: bradm at blackforestltd.com (Brad Marks) Date: Wed, 9 Dec 2015 20:49:38 +0000 Subject: [Dba-office] Update KB3114409 causes problems with Outlook In-Reply-To: <001301d132b8$e726dc70$b5749550$@winhaven.net> References: <03ec01d13215$b77dc4f0$26794ed0$@winhaven.net> <894F3153E98043AE9496FD8AD2287712@HAL9007> <001301d132b8$e726dc70$b5749550$@winhaven.net> Message-ID: We had several PCs with Outlook 2010 that were affected this morning. Brad http://www.infoworld.com/article/3013219/microsoft-windows/microsoft-pulls-botched-patch-kb-3114409-that-triggered-problems-with-outlook-2010.html ~~~~~~~~~~~~~~~~~~~~~~~~~~~ -----Original Message----- From: Dba-office [mailto:dba-office-bounces at databaseadvisors.com] On Behalf Of John R Bartow Sent: Wednesday, December 09, 2015 1:37 PM To: dba-office at databaseadvisors.com Subject: Re: [Dba-office] Update KB3114409 causes problems with Outlook Importance: High 2010+ crashing and locking up. Eventually will only start in safe mode - 2010+ if that. -----Original Message----- From: Dba-office [mailto:dba-office-bounces at databaseadvisors.com] On Behalf Of Rocky Smolin Sent: Tuesday, December 08, 2015 6:10 PM To: dba-office at databaseadvisors.com Subject: Re: [Dba-office] Update KB3114409 causes problems with Outlook What version of Outlook? What symptoms? Tks. r -----Original Message----- From: Dba-office [mailto:dba-office-bounces at databaseadvisors.com] On Behalf Of John R Bartow Sent: Tuesday, December 08, 2015 4:08 PM To: DBA Office Subject: [Dba-office] Update KB3114409 causes problems with Outlook Importance: High Avoid installing KB3114409 if you use Outlook. Although listed as critical this patch does not appear to be a security patch. If you are having problems with Outlook check to see if this patch is installed and remove it. HTH John B _______________________________________________ Dba-office mailing list Dba-office at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/dba-office --- This email has been checked for viruses by Avast antivirus software. https://www.avast.com/antivirus _______________________________________________ Dba-office mailing list Dba-office at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/dba-office _______________________________________________ Dba-office mailing list Dba-office at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/dba-office From kathryn at bassett.net Wed Dec 9 16:39:26 2015 From: kathryn at bassett.net (Kathryn Bassett) Date: Wed, 9 Dec 2015 14:39:26 -0800 Subject: [Dba-office] Update KB3114409 causes problems with Outlook In-Reply-To: <001301d132b8$e726dc70$b5749550$@winhaven.net> References: <03ec01d13215$b77dc4f0$26794ed0$@winhaven.net> <894F3153E98043AE9496FD8AD2287712@HAL9007> <001301d132b8$e726dc70$b5749550$@winhaven.net> Message-ID: Same problem. Found http://www.tenforums.com/general-discussion/33091-heads-up-outlook-2010-user s-dec-8ths-update-kb3114409.html before I saw the warning here. Only started in safe mode, but once I uninstalled it, it works fine. Now, to my own question. Usually, I get asked about updates. But this latest round of updates were done automatically. I don't like that - how do I tell my (Win7) computer to NOT install updates unless I say to? Kathryn > -----Original Message----- > From: Dba-office [mailto:dba-office-bounces at databaseadvisors.com] On > Behalf Of John R Bartow > Sent: 09 Dec 2015 11:36 AM > To: dba-office at databaseadvisors.com > Subject: Re: [Dba-office] Update KB3114409 causes problems with Outlook > Importance: High > > 2010+ crashing and locking up. Eventually will only start in safe mode - > 2010+ if that. From gustav at cactus.dk Thu Dec 10 07:47:24 2015 From: gustav at cactus.dk (Gustav Brock) Date: Thu, 10 Dec 2015 13:47:24 +0000 Subject: [Dba-office] Direct replacement for Nz in Word/Excel Message-ID: Hi all I had a need for this in Word, but couldn't find a decent solution, so here is - should you encounter the same situation: ' Replacement for Microsoft Access' function Application.Nz(). ' For use in Word/Excel to eliminate the need for a reference to: ' ' Microsoft Office 15.0 Access database engine Object Library. ' ' 2015-12-10. Gustav Brock, Cactus Data ApS, CPH. ' Public Function Nz( _ ByRef Value As Variant, _ Optional ByRef ValueIfNull As Variant = "") _ As Variant Dim ValueNz As Variant If Not IsEmpty(Value) Then If IsNull(Value) Then ValueNz = ValueIfNull Else ValueNz = Value End If End If Nz = ValueNz End Function /gustav From jbodin at sbor.com Thu Dec 10 08:04:57 2015 From: jbodin at sbor.com (John Bodin) Date: Thu, 10 Dec 2015 14:04:57 +0000 Subject: [Dba-office] Direct replacement for Nz in Word/Excel In-Reply-To: References: Message-ID: very handy gustav, thanks for sharing. I still remember when I found out about NZ() in Access - wondered how I ever got by without it and I certainly use it all the time now. ________________________________________ From: Dba-office on behalf of Gustav Brock Sent: Thursday, December 10, 2015 8:47 AM To: dba-office at databaseadvisors.com Subject: [Dba-office] Direct replacement for Nz in Word/Excel Hi all I had a need for this in Word, but couldn't find a decent solution, so here is - should you encounter the same situation: ' Replacement for Microsoft Access' function Application.Nz(). ' For use in Word/Excel to eliminate the need for a reference to: ' ' Microsoft Office 15.0 Access database engine Object Library. ' ' 2015-12-10. Gustav Brock, Cactus Data ApS, CPH. ' Public Function Nz( _ ByRef Value As Variant, _ Optional ByRef ValueIfNull As Variant = "") _ As Variant Dim ValueNz As Variant If Not IsEmpty(Value) Then If IsNull(Value) Then ValueNz = ValueIfNull Else ValueNz = Value End If End If Nz = ValueNz End Function /gustav _______________________________________________ Dba-office mailing list Dba-office at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/dba-office From jbartow at winhaven.net Thu Dec 10 10:00:32 2015 From: jbartow at winhaven.net (John R Bartow) Date: Thu, 10 Dec 2015 10:00:32 -0600 Subject: [Dba-office] Update KB3114409 causes problems with Outlook In-Reply-To: References: <03ec01d13215$b77dc4f0$26794ed0$@winhaven.net> <894F3153E98043AE9496FD8AD2287712@HAL9007> <001301d132b8$e726dc70$b5749550$@winhaven.net> Message-ID: <015b01d13363$e676f6b0$b364e410$@winhaven.net> Hi Kathryn, I'd set all products (MS, Adobe, Java) to "never check for updates". Then I manually check on Mondays. That gives MS an entire week to pull Tuesday updates that cause problems. Be aware, MS is no longer abiding by their update policies and categories. They will be much more aggressive towards forcing Windows 10 upgrades on Windows 7 (and especially 8/8.1 users.) If you have a stand alone machine (none enterprise you need to be very careful with updates now (if you do not want Windows 10). I recommend this simple little app as an assistant in this endeavor: http://ultimateoutsider.com/downloads/ If I run across Office patches that cause problems (like KB3114409) I'll try to post them here for everyone but if you want the scope on everything this is a patch specific list serve, and it get pretty technical but is a good source for patch problems: http://www.patchmanagement.org/ From kathryn at bassett.net Thu Dec 10 20:28:53 2015 From: kathryn at bassett.net (Kathryn Bassett) Date: Thu, 10 Dec 2015 18:28:53 -0800 Subject: [Dba-office] Update KB3114409 causes problems with Outlook In-Reply-To: <015b01d13363$e676f6b0$b364e410$@winhaven.net> References: <03ec01d13215$b77dc4f0$26794ed0$@winhaven.net> <894F3153E98043AE9496FD8AD2287712@HAL9007> <001301d132b8$e726dc70$b5749550$@winhaven.net> <015b01d13363$e676f6b0$b364e410$@winhaven.net> Message-ID: > I'd set all products (MS, Adobe, Java) to "never check for updates". But *where* do I tell MS to never check for updates? Kathryn From jbartow at winhaven.net Thu Dec 10 21:19:22 2015 From: jbartow at winhaven.net (John R Bartow) Date: Thu, 10 Dec 2015 21:19:22 -0600 Subject: [Dba-office] Update KB3114409 causes problems with Outlook In-Reply-To: References: <03ec01d13215$b77dc4f0$26794ed0$@winhaven.net> <894F3153E98043AE9496FD8AD2287712@HAL9007> <001301d132b8$e726dc70$b5749550$@winhaven.net> <015b01d13363$e676f6b0$b364e410$@winhaven.net> Message-ID: <029601d133c2$bb019490$3104bdb0$@winhaven.net> Copy and paste this into your Windows Explorer address bar: Control Panel\System and Security\Windows Update\Change settings -----Original Message----- From: Dba-office [mailto:dba-office-bounces at databaseadvisors.com] On Behalf Of Kathryn Bassett Sent: Thursday, December 10, 2015 8:29 PM To: dba-office at databaseadvisors.com Subject: Re: [Dba-office] Update KB3114409 causes problems with Outlook > I'd set all products (MS, Adobe, Java) to "never check for updates". But *where* do I tell MS to never check for updates? Kathryn _______________________________________________ Dba-office mailing list Dba-office at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/dba-office From kathryn at bassett.net Thu Dec 10 21:53:48 2015 From: kathryn at bassett.net (Kathryn Bassett) Date: Thu, 10 Dec 2015 19:53:48 -0800 Subject: [Dba-office] Update KB3114409 causes problems with Outlook In-Reply-To: <029601d133c2$bb019490$3104bdb0$@winhaven.net> References: <03ec01d13215$b77dc4f0$26794ed0$@winhaven.net> <894F3153E98043AE9496FD8AD2287712@HAL9007> <001301d132b8$e726dc70$b5749550$@winhaven.net> <015b01d13363$e676f6b0$b364e410$@winhaven.net> <029601d133c2$bb019490$3104bdb0$@winhaven.net> Message-ID: Thanks. It HAD gotten changed. > -----Original Message----- > From: Dba-office [mailto:dba-office-bounces at databaseadvisors.com] On > Behalf Of John R Bartow > Sent: 10 Dec 2015 7:19 PM > To: dba-office at databaseadvisors.com > Subject: Re: [Dba-office] Update KB3114409 causes problems with Outlook > Importance: High > > Copy and paste this into your Windows Explorer address bar: > Control Panel\System and Security\Windows Update\Change settings > > -----Original Message----- > From: Dba-office [mailto:dba-office-bounces at databaseadvisors.com] On > Behalf Of Kathryn Bassett > Sent: Thursday, December 10, 2015 8:29 PM > To: dba-office at databaseadvisors.com > Subject: Re: [Dba-office] Update KB3114409 causes problems with Outlook > > > I'd set all products (MS, Adobe, Java) to "never check for updates". > > But *where* do I tell MS to never check for updates? > > Kathryn > > _______________________________________________ > Dba-office mailing list > Dba-office at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/dba-office > > > _______________________________________________ > Dba-office mailing list > Dba-office at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/dba-office From jbartow at winhaven.net Fri Dec 11 00:02:46 2015 From: jbartow at winhaven.net (John R Bartow) Date: Fri, 11 Dec 2015 00:02:46 -0600 Subject: [Dba-office] Update KB3114409 causes problems with Outlook In-Reply-To: References: <03ec01d13215$b77dc4f0$26794ed0$@winhaven.net> <894F3153E98043AE9496FD8AD2287712@HAL9007> <001301d132b8$e726dc70$b5749550$@winhaven.net> <015b01d13363$e676f6b0$b364e410$@winhaven.net> <029601d133c2$bb019490$3104bdb0$@winhaven.net> Message-ID: <02bc01d133d9$8e97fc20$abc7f460$@winhaven.net> Whenever you do apply updates go back and check that the updates did not also turn it back to automatically install. -----Original Message----- From: Dba-office [mailto:dba-office-bounces at databaseadvisors.com] On Behalf Of Kathryn Bassett Sent: Thursday, December 10, 2015 9:54 PM To: dba-office at databaseadvisors.com Subject: Re: [Dba-office] Update KB3114409 causes problems with Outlook Thanks. It HAD gotten changed. > -----Original Message----- > From: Dba-office [mailto:dba-office-bounces at databaseadvisors.com] On > Behalf Of John R Bartow > Sent: 10 Dec 2015 7:19 PM > To: dba-office at databaseadvisors.com > Subject: Re: [Dba-office] Update KB3114409 causes problems with > Outlook > Importance: High > > Copy and paste this into your Windows Explorer address bar: > Control Panel\System and Security\Windows Update\Change settings > > -----Original Message----- > From: Dba-office [mailto:dba-office-bounces at databaseadvisors.com] On > Behalf Of Kathryn Bassett > Sent: Thursday, December 10, 2015 8:29 PM > To: dba-office at databaseadvisors.com > Subject: Re: [Dba-office] Update KB3114409 causes problems with > Outlook > > > I'd set all products (MS, Adobe, Java) to "never check for updates". > > But *where* do I tell MS to never check for updates? > > Kathryn > > _______________________________________________ > Dba-office mailing list > Dba-office at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/dba-office > > > _______________________________________________ > Dba-office mailing list > Dba-office at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/dba-office _______________________________________________ Dba-office mailing list Dba-office at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/dba-office From jbartow at winhaven.net Fri Dec 11 11:46:47 2015 From: jbartow at winhaven.net (John R Bartow) Date: Fri, 11 Dec 2015 11:46:47 -0600 Subject: [Dba-office] Update KB3114409 causes problems with Outlook In-Reply-To: <02bc01d133d9$8e97fc20$abc7f460$@winhaven.net> References: <03ec01d13215$b77dc4f0$26794ed0$@winhaven.net> <894F3153E98043AE9496FD8AD2287712@HAL9007> <001301d132b8$e726dc70$b5749550$@winhaven.net> <015b01d13363$e676f6b0$b364e410$@winhaven.net> <029601d133c2$bb019490$3104bdb0$@winhaven.net> <02bc01d133d9$8e97fc20$abc7f460$@winhaven.net> Message-ID: <03f901d1343b$e8be5e80$ba3b1b80$@winhaven.net> Same update also causes Project Professional 2010 installations to crash when printing to Adobe PDF From ssharkins at gmail.com Sun Dec 13 09:33:10 2015 From: ssharkins at gmail.com (Susan Harkins) Date: Sun, 13 Dec 2015 10:33:10 -0500 Subject: [Dba-office] Header/Footer Link to Message-ID: <000701d135bb$93a5fb20$baf1f160$@gmail.com> Anyone know off the top of their head if you can unlink one header/footer element without the other? For instance can you keep headers across multiple sections connected while disconnected one or more headers? I've tried looking this up but didn't quickly find an answer. I can test for it later but thought I'd ask just in case someone here knows. I should know, but can't recall ever needing to know and I just don't. A quick simple test turned up. inconclusive because I can't tell whether the link to option is linked or not after clicking and returning. I'm using 2016 and it looks the same, but I will take a closer look later - there's bound to be a difference. Thanks! Susan H. From tinanfields at torchlake.com Thu Dec 17 11:39:38 2015 From: tinanfields at torchlake.com (Tina Norris Fields) Date: Thu, 17 Dec 2015 12:39:38 -0500 Subject: [Dba-office] Header/Footer Link to In-Reply-To: <000701d135bb$93a5fb20$baf1f160$@gmail.com> References: <000701d135bb$93a5fb20$baf1f160$@gmail.com> Message-ID: <5672F35A.8030703@torchlake.com> Off the top of my head, I believe the answer is yes. You do set the connection to the previous one separately on header and footer. I will double-check, but, I'm pretty sure. TNF Tina Norris Fields tinanfields-at-torchlake-dot-com 231-322-2787 On 12/13/15 10:33 AM, Susan Harkins wrote: > Anyone know off the top of their head if you can unlink one header/footer > element without the other? For instance can you keep headers across multiple > sections connected while disconnected one or more headers? I've tried > looking this up but didn't quickly find an answer. I can test for it later > but thought I'd ask just in case someone here knows. I should know, but > can't recall ever needing to know and I just don't. A quick simple test > turned up. inconclusive because I can't tell whether the link to option is > linked or not after clicking and returning. I'm using 2016 and it looks the > same, but I will take a closer look later - there's bound to be a > difference. > > > > Thanks! > > Susan H. > > _______________________________________________ > Dba-office mailing list > Dba-office at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/dba-office > From ssharkins at gmail.com Thu Dec 17 14:12:49 2015 From: ssharkins at gmail.com (Susan Harkins) Date: Thu, 17 Dec 2015 15:12:49 -0500 Subject: [Dba-office] limit entry to existing values using userform control Message-ID: <008501d13907$4df9b5e0$e9ed21a0$@gmail.com> A reader is using an Excel UserForm for data entry and wants to limit input to unique values. So, if the value already exists in the underlying column, reject the entry. This idea intrigues me, but at the same time. sounds a bit . iffy. I can't help thinking a different strategy altogether might be a better idea, but the reader wants want the reader wants. :) I'm thinking about it, but thought I'd ask if anyone's done this? Susan H. From ssharkins at gmail.com Thu Dec 17 16:48:15 2015 From: ssharkins at gmail.com (Susan Harkins) Date: Thu, 17 Dec 2015 17:48:15 -0500 Subject: [Dba-office] Excet Table with VBA Message-ID: <011401d1391d$048a43a0$0d9ecae0$@gmail.com> I can add a new row to an Excel Table using the following line of code: ThisWorkbook.Worksheets("DataValidation").ListObjects("Table1").ListRows.Add AlwaysInsert:=True But for the life of me I can't figure out how to add a value to the new row! I've read all day and I can find all kind of articles on the above - but nothing on how to add a value to that new row. Susan H. From mcp2004 at mail.ru Fri Dec 18 07:38:13 2015 From: mcp2004 at mail.ru (=?UTF-8?B?U2FsYWtoZXRkaW5vdiBTaGFtaWw=?=) Date: Fri, 18 Dec 2015 16:38:13 +0300 Subject: [Dba-office] =?utf-8?q?Excet_Table_with_VBA?= In-Reply-To: <011401d1391d$048a43a0$0d9ecae0$@gmail.com> References: <011401d1391d$048a43a0$0d9ecae0$@gmail.com> Message-ID: <1450445893.929434022@f340.i.mail.ru> Hi Susan -- Here it's: Option Explicit Public Sub testAddXlTableRow() ' https://msdn.microsoft.com/en-us/library/office/ff196248(v=office.15).aspx Dim lst As ListObject Set lst = ThisWorkbook.Worksheets("DataValidation").ListObjects("Table1") ' add an empty row and seed its cells' values with ' this added row index Dim listRow As listRow Dim cellIndex As Integer Set listRow = lst.ListRows.Add(AlwaysInsert:=True) For cellIndex = 1 To listRow.Range.Cells.Count listRow.Range.Cells(cellIndex) = listRow.Index Next cellIndex End Sub -- Shamil >Thursday, December 17, 2015 5:48 PM -05:00 from "Susan Harkins" : > >I can add a new row to an Excel Table using the following line of code: > >? > >? >ThisWorkbook.Worksheets("DataValidation").ListObjects("Table1").ListRows.Add >AlwaysInsert:=True > >? > >But for the life of me I can't figure out how to add a value to the new row! >I've read all day and I can find all kind of articles on the above - but >nothing on how to add a value to that new row. > >? > >Susan H. > >_______________________________________________ >Dba-office mailing list >Dba-office at databaseadvisors.com >http://databaseadvisors.com/mailman/listinfo/dba-office From ssharkins at gmail.com Fri Dec 18 08:37:28 2015 From: ssharkins at gmail.com (Susan Harkins) Date: Fri, 18 Dec 2015 09:37:28 -0500 Subject: [Dba-office] Excet Table with VBA In-Reply-To: <1450445893.929434022@f340.i.mail.ru> References: <011401d1391d$048a43a0$0d9ecae0$@gmail.com> <1450445893.929434022@f340.i.mail.ru> Message-ID: Thanks Shamil -- it's similar to what I ended up with last night. Let's compare! I think the only real difference is selecting the newly inserted row. I knew going in that Tables are internally, a list object, but I had anticipated more Table properties and methods, but nope... :) There really should be an Add method that lets you specify (optional) new values for the new rows! I expected that, but didn't find it. I find Excel's object model confusing and I struggle to find the right data types and objects in VBA. Thank you for helping! -- Susan H. Private Sub CommandButton1_Click() 'Enter value into ListPerson column in Table1. Dim str As String Dim dbl As Double Dim rng As Range Dim oNewRow As ListRow str = TextBox1.Value Set rng = ThisWorkbook.Worksheets("DataValidation").Range("Table1[ListPeople]") 'Handle Match error when match not found. If Not IsError(Application.Match(str, rng, 0)) Then dbl = Application.Match(str, rng, 0) Else dbl = 0 End If 'If match is found, display duplicate error. 'If match not found, add new record to Table1. If dbl <> 0 Then MsgBox "You can't enter duplicate values.", vbOKOnly, "Error" Exit Sub Else 'Select Table1. rng.Select Set oNewRow = Selection.ListObject.ListRows.Add(AlwaysInsert:=True) oNewRow.Range.Cells().Value = str Set oNewRow = Nothing End If End Sub On Fri, Dec 18, 2015 at 8:38 AM, Salakhetdinov Shamil wrote: > Hi Susan -- > > Here it's: > > Option Explicit > Public Sub testAddXlTableRow() > ' > https://msdn.microsoft.com/en-us/library/office/ff196248(v=office.15).aspx > Dim lst As ListObject > Set lst = ThisWorkbook.Worksheets("DataValidation").ListObjects("Table1") > ' add an empty row and seed its cells' values with > ' this added row index > Dim listRow As listRow > Dim cellIndex As Integer > Set listRow = lst.ListRows.Add(AlwaysInsert:=True) > For cellIndex = 1 To listRow.Range.Cells.Count > listRow.Range.Cells(cellIndex) = listRow.Index > Next cellIndex > End Sub > -- Shamil > > >Thursday, December 17, 2015 5:48 PM -05:00 from "Susan Harkins" < > ssharkins at gmail.com>: > > > >I can add a new row to an Excel Table using the following line of code: > > > > > > > > > > >ThisWorkbook.Worksheets("DataValidation").ListObjects("Table1").ListRows.Add > >AlwaysInsert:=True > > > > > > > >But for the life of me I can't figure out how to add a value to the new > row! > >I've read all day and I can find all kind of articles on the above - but > >nothing on how to add a value to that new row. > > > > > > > >Susan H. > > > >_______________________________________________ > >Dba-office mailing list > >Dba-office at databaseadvisors.com > >http://databaseadvisors.com/mailman/listinfo/dba-office > > _______________________________________________ > Dba-office mailing list > Dba-office at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/dba-office > From RockySmolin at bchacc.com Fri Dec 18 08:54:11 2015 From: RockySmolin at bchacc.com (RockySmolin at bchacc.com) Date: Fri, 18 Dec 2015 07:54:11 -0700 Subject: [Dba-office] Excet Table with VBA Message-ID: <20151218075411.86c3debdd1c3983866efe200e2feb95f.aa098ad21a.wbe@email04.secureserver.net> I've done a of of VBA behind Excel spreadsheets but none of it of my own invention - I've always used the macro recorder, recorded my keystrokes for whatever I wanted, then cribbed the resulting code out of the macro editor. But I always had a row count so when I wanted to add a line I just used Cells(Row,Col) method. I'm not sure how I would have recorded an 'add new row' in a macro. r -------- Original Message -------- Subject: Re: [Dba-office] Excet Table with VBA From: Susan Harkins Date: Fri, December 18, 2015 7:37 am To: Salakhetdinov Shamil , dba-office at databaseadvisors.com Thanks Shamil -- it's similar to what I ended up with last night. Let's compare! I think the only real difference is selecting the newly inserted row. I knew going in that Tables are internally, a list object, but I had anticipated more Table properties and methods, but nope... :) There really should be an Add method that lets you specify (optional) new values for the new rows! I expected that, but didn't find it. I find Excel's object model confusing and I struggle to find the right data types and objects in VBA. Thank you for helping! -- Susan H. Private Sub CommandButton1_Click() 'Enter value into ListPerson column in Table1. Dim str As String Dim dbl As Double Dim rng As Range Dim oNewRow As ListRow str = TextBox1.Value Set rng = ThisWorkbook.Worksheets("DataValidation").Range("Table1[ListPeople]") 'Handle Match error when match not found. If Not IsError(Application.Match(str, rng, 0)) Then dbl = Application.Match(str, rng, 0) Else dbl = 0 End If 'If match is found, display duplicate error. 'If match not found, add new record to Table1. If dbl <> 0 Then MsgBox "You can't enter duplicate values.", vbOKOnly, "Error" Exit Sub Else 'Select Table1. rng.Select Set oNewRow = Selection.ListObject.ListRows.Add(AlwaysInsert:=True) oNewRow.Range.Cells().Value = str Set oNewRow = Nothing End If End Sub On Fri, Dec 18, 2015 at 8:38 AM, Salakhetdinov Shamil wrote: > Hi Susan -- > > Here it's: > > Option Explicit > Public Sub testAddXlTableRow() > ' > https://msdn.microsoft.com/en-us/library/office/ff196248(v=office.15).aspx > Dim lst As ListObject > Set lst = ThisWorkbook.Worksheets("DataValidation").ListObjects("Table1") > ' add an empty row and seed its cells' values with > ' this added row index > Dim listRow As listRow > Dim cellIndex As Integer > Set listRow = lst.ListRows.Add(AlwaysInsert:=True) > For cellIndex = 1 To listRow.Range.Cells.Count > listRow.Range.Cells(cellIndex) = listRow.Index > Next cellIndex > End Sub > -- Shamil > > >Thursday, December 17, 2015 5:48 PM -05:00 from "Susan Harkins" < > ssharkins at gmail.com>: > > > >I can add a new row to an Excel Table using the following line of code: > > > > > > > > > > >ThisWorkbook.Worksheets("DataValidation").ListObjects("Table1").ListRows.Add > >AlwaysInsert:=True > > > > > > > >But for the life of me I can't figure out how to add a value to the new > row! > >I've read all day and I can find all kind of articles on the above - but > >nothing on how to add a value to that new row. > > > > > > > >Susan H. > > > >_______________________________________________ > >Dba-office mailing list > >Dba-office at databaseadvisors.com > >http://databaseadvisors.com/mailman/listinfo/dba-office > > _______________________________________________ > Dba-office mailing list > Dba-office at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/dba-office > _______________________________________________ Dba-office mailing list Dba-office at databaseadvisors.com http://databaseadvisors.com/mailman/listinfo/dba-office From mcp2004 at mail.ru Fri Dec 18 09:14:02 2015 From: mcp2004 at mail.ru (=?UTF-8?B?U2FsYWtoZXRkaW5vdiBTaGFtaWw=?=) Date: Fri, 18 Dec 2015 18:14:02 +0300 Subject: [Dba-office] =?utf-8?q?Excet_Table_with_VBA?= In-Reply-To: References: <011401d1391d$048a43a0$0d9ecae0$@gmail.com> <1450445893.929434022@f340.i.mail.ru> Message-ID: <1450451642.845432300@f392.i.mail.ru> Susan -- Here is how you can specify a variable set of values to be assigned for a newly added row's cells: Public Sub aTest() testAddXlTableRow2 "v1", "v2", "v3" End Sub Public Function testAddXlTableRow2(ParamArray values() As Variant) As listRow ' Key column index is assumed to be 1 Dim keyColumnIndex As Integer keyColumnIndex = 1 Dim lst As ListObject Set lst = ThisWorkbook.Worksheets("DataValidation").ListObjects("Table1") Dim rowIndex As Integer For rowIndex = 1 To lst.ListRows.Count If lst.ListRows(rowIndex).Range(keyColumnIndex) = values(0) Then lst.ListRows(rowIndex).Range.Select MsgBox "Duplicate value found at row # = " + CStr(rowIndex) Set testAddXlTableRow2 = Nothing Exit Function End If Next rowIndex Dim listRow As listRow Dim valueIndex As Integer Set listRow = lst.ListRows.Add(AlwaysInsert:=True) For valueIndex = 1 To UBound(values) + 1 listRow.Range.Cells(valueIndex) = values(valueIndex - 1) Next valueIndex Set testAddXlTableRow2 = listRow End Function -- Shamil >Friday, December 18, 2015 9:37 AM -05:00 from Susan Harkins : > >Thanks Shamil -- it's similar to what I ended up with last night. Let's compare! I think the only real difference is selecting the newly inserted row. I knew going in that Tables are internally, a list object, but I had anticipated more Table properties and methods, but nope... :) There really should be an Add method that lets you specify (optional) new values for the new rows! I expected that, but didn't find it.? > >I find Excel's object model confusing and I struggle to find the right data types and objects in VBA.? > >Thank you for helping! -- Susan H.? > >Private Sub CommandButton1_Click() >? ? 'Enter value into ListPerson column in Table1. >? ?? >? ? Dim str As String >? ? Dim dbl As Double >? ? Dim rng As Range >? ? Dim oNewRow As ListRow >? ?? >? ? str = TextBox1.Value >? ?? >? ? Set rng = ThisWorkbook.Worksheets("DataValidation").Range("Table1[ListPeople]") >? ?? >? ? 'Handle Match error when match not found. >? ?? >? ? If Not IsError(Application.Match(str, rng, 0)) Then >? ? ? ? dbl = Application.Match(str, rng, 0) >? ? Else >? ? ? ? dbl = 0 >? ? End If >? ?? >? ? 'If match is found, display duplicate error. >? ? 'If match not found, add new record to Table1. >? ? If dbl <> 0 Then >? ? ? ? MsgBox "You can't enter duplicate values.", vbOKOnly, "Error" >? ? ? ? Exit Sub >? ? Else >? ? ? ?'Select Table1. >? ? ? ? rng.Select >? ? ? ? Set oNewRow = Selection.ListObject.ListRows.Add(AlwaysInsert:=True) >? ? ? ? oNewRow.Range.Cells().Value = str >? ? ? ? Set oNewRow = Nothing >? ? End If >? ?? >End Sub > ><<< skipped >>> From ssharkins at gmail.com Fri Dec 18 09:27:33 2015 From: ssharkins at gmail.com (Susan Harkins) Date: Fri, 18 Dec 2015 10:27:33 -0500 Subject: [Dba-office] Excet Table with VBA In-Reply-To: <1450451642.845432300@f392.i.mail.ru> References: <011401d1391d$048a43a0$0d9ecae0$@gmail.com> <1450445893.929434022@f340.i.mail.ru> <1450451642.845432300@f392.i.mail.ru> Message-ID: How do you do that so fast? :) Susan H. On Fri, Dec 18, 2015 at 10:14 AM, Salakhetdinov Shamil wrote: > Susan -- > > Here is how you can specify a variable set of values to be assigned for a > newly added row's cells: > > Public Sub aTest() > testAddXlTableRow2 "v1", "v2", "v3" > End Sub > Public Function testAddXlTableRow2(ParamArray values() As Variant) As > listRow > ' Key column index is assumed to be 1 > Dim keyColumnIndex As Integer > keyColumnIndex = 1 > Dim lst As ListObject > Set lst = ThisWorkbook.Worksheets("DataValidation").ListObjects("Table1") > Dim rowIndex As Integer > For rowIndex = 1 To lst.ListRows.Count > If lst.ListRows(rowIndex).Range(keyColumnIndex) = values(0) Then > lst.ListRows(rowIndex).Range.Select > MsgBox "Duplicate value found at row # = " + CStr(rowIndex) > Set testAddXlTableRow2 = Nothing > Exit Function > End If > Next rowIndex > Dim listRow As listRow > Dim valueIndex As Integer > Set listRow = lst.ListRows.Add(AlwaysInsert:=True) > For valueIndex = 1 To UBound(values) + 1 > listRow.Range.Cells(valueIndex) = values(valueIndex - 1) > Next valueIndex > Set testAddXlTableRow2 = listRow > End Function > -- Shamil > > > >Friday, December 18, 2015 9:37 AM -05:00 from Susan Harkins < > ssharkins at gmail.com>: > > > >Thanks Shamil -- it's similar to what I ended up with last night. Let's > compare! I think the only real difference is selecting the newly inserted > row. I knew going in that Tables are internally, a list object, but I had > anticipated more Table properties and methods, but nope... :) There really > should be an Add method that lets you specify (optional) new values for the > new rows! I expected that, but didn't find it. > > > >I find Excel's object model confusing and I struggle to find the right > data types and objects in VBA. > > > >Thank you for helping! -- Susan H. > > > >Private Sub CommandButton1_Click() > > 'Enter value into ListPerson column in Table1. > > > > Dim str As String > > Dim dbl As Double > > Dim rng As Range > > Dim oNewRow As ListRow > > > > str = TextBox1.Value > > > > Set rng = > ThisWorkbook.Worksheets("DataValidation").Range("Table1[ListPeople]") > > > > 'Handle Match error when match not found. > > > > If Not IsError(Application.Match(str, rng, 0)) Then > > dbl = Application.Match(str, rng, 0) > > Else > > dbl = 0 > > End If > > > > 'If match is found, display duplicate error. > > 'If match not found, add new record to Table1. > > If dbl <> 0 Then > > MsgBox "You can't enter duplicate values.", vbOKOnly, "Error" > > Exit Sub > > Else > > 'Select Table1. > > rng.Select > > Set oNewRow = > Selection.ListObject.ListRows.Add(AlwaysInsert:=True) > > oNewRow.Range.Cells().Value = str > > Set oNewRow = Nothing > > End If > > > >End Sub > > > ><<< skipped >>> > _______________________________________________ > Dba-office mailing list > Dba-office at databaseadvisors.com > http://databaseadvisors.com/mailman/listinfo/dba-office > From jbartow at winhaven.net Fri Dec 18 12:00:40 2015 From: jbartow at winhaven.net (John R Bartow) Date: Fri, 18 Dec 2015 12:00:40 -0600 Subject: [Dba-office] Excet Table with VBA In-Reply-To: <011401d1391d$048a43a0$0d9ecae0$@gmail.com> References: <011401d1391d$048a43a0$0d9ecae0$@gmail.com> Message-ID: <000001d139be$0247bb80$06d73280$@winhaven.net> This is the only simple code I have that came to mind: Sub SetNewYear() ' This changes the year at the top row cell Dim intYear As Integer intYear = Range("N1").Value + 1 'set the new year Range("N1").Value = Year(Now()) 'change the cell value End Sub If you designate the start of the row as the range I suppose that might do it. From ssharkins at gmail.com Sun Dec 27 13:32:30 2015 From: ssharkins at gmail.com (Susan Harkins) Date: Sun, 27 Dec 2015 14:32:30 -0500 Subject: [Dba-office] Missing add-ins group Message-ID: <004801d140dd$54966eb0$fdc34c10$@gmail.com> All of my Office 2016 have the Add-ins group on the Insert tab. This is the group that provides quick access to Office and SharePoint Add-ins via the Store. >From reading, I've been told that Office should have this group as well, on the Home tab, but Outlook isn't displaying it. I've checked the settings and this group is checked in the Customize Ribbon dialog. I can't find a thing about this missing group online. Thanks! Susan H.