Answer Questions

• nycoolguy60 Adding data in one column based on another column using VBA

  I have an Excel DB in which there are identical entries in some of the fileds. I need to identify those entries, delete one of them so I can keep the other one in the DB and sum their corresponding value in another column. EXAMPLE: A 23 B 12 A 10 C 20 I need to get the following result: A 33 B 12 C 20 This seemed easy, but I can't figure t out in VB. Thanks. Hi Below is not elegant, but it might give you an idea. The below assumes that data starts in A1. The arrays store the summary data then the data range is deleted and the array data written back. Try with some test data in a new sheet. Public Sub TEST() Dim X, lngLastRow, ...Show All

• mfsumption Unable to create .NET class in VBA

  I'm trying to use a .NET DLL from VBA, but i keep getting a error message in VBA: "Run-time error '-2147024894 (80070002)': "File or assambly name ClassLibrary1, or one of its dependincies, was not found." I'm running VS 2005 and I have selected "Register for COM interop" and "Make assembly COM visible" in the properties window for the project. The code is rather simple C#: namespace ClassLibrary1 { public interface IClass1 { bool getTrue();} [ ClassInterface ( ClassInterfaceType .AutoDual)] public class Class1 : IClass1 { public Class1 (){ } public bool getTrue() { return true ;} } } And the VBA code is also rather simple: Public Sub test()     Dim d As ClassLibrary1.Class1     ...Show All

• mike11d11 How to create a script for creation of dictionary in visual basic?

  I would like to create a small application in visual basic editor(ms word) for extracting wards and their explanation for craetion a small dictionary in Albanian language. For example when I type a or b letter I would like to have all words that starts with a or b or c etc. So, when I type (A) ALL THE WORDS that start with letter A will display. I wll select a word and in another window I want to display the explanation for this word. Like a small dictionary. Like object browser at visual basic editor My best regards Moved to VBA forum. ...Show All

• mkfl Copy text from textbox to clipboard?

  How to copy just the text from a textbox to the clipboard in VBA (MSO 2000 - Excel). I can copy the entire textbox but I only want the text (not the box). My brain has gone to sleep and I can't do it :( can in VB but do not want to reference VB components. Cheers. NM I have the same emergency. Could you post the code snippet you used please. I can't find any reference to " PutInClipboard" Graham, reference to PutInClipboard is here: http://msdn.microsoft.com/archive/default.asp url=/archive/en-us/office97/html/output/F1/D6/S5B40E.asp . I haven't used this function so I can't vouch for it. I suspect it's deprecated by now and you're probably safer using the API. Check http ...Show All

• DWPorter Excel Time Help

  Hi all, This is my first time posting here , hope i will be able to find the answer i am looking for. I'm very new to vba so please bear with me. Here goes, this is the problem i'm having at the moment with my formulas and vba. I am currently desinging a roster for my workplace and the problem i am having is to work out the night shifts. these night shift start at 23:00:00 and end at 06:00:00, now because there is a change in date between 23:00:00 and 00:00:00 im finding it very difficult to find the appropriate formula. Let say the shift worked is starting at: 22:00:00 and ending at 07:00:00, what i would like excel to do is to calculate how many hours are worked from 22:00:00 to 23:00:00 and from 06:00:00 until 07:00:00 in on ...Show All

• Sarath. combine 3 combo boxes values into one string

  Hi all, I have a table of data which can filter out my desired information after i selected a range of date, for example 1-Jan-2006 to 15-Jan-2006, in a combo box. I can only choose date being stated in the combo box, not much flexibility. Now, i want to change the format of the combo box. Instead of one combo box which show the date, i want three combo boxes which show "Year", "Month" and "Day". I can choose any year, any month and any day i want and it will filter out. I am thinking of a solution by combining the values of the three combo boxes into one string, one line "1-Jan-2006", and start to filtering. Is this the only way to do it or is there any better ways to do this Below is my existing VB ...Show All

• Kartit File open dialog in Outlook 2003

  Hello I need a dialog box for file selections. The problem is, that in outlook vba no dialog boxes exists to select files outside of outlook. I need the same dialog box as in excel "GetOpenFileName" that users are able to select a file. I have tried to do that with API functions. But I know only the API function SHBrowseForFolder. With that I can only select folders but not files. Is any body here who know how to do that Thanks for your efforts. You're right -- Outlook VBA doesn't support the FileDialog object. The easiest way around this (even though it's cheating), is to just spawn the FileDialog elsewhere. Code like this should work: Dim xlApp as New Excel.Application xlApp.Visible = False With xlApp.F ...Show All

• Simon Telling opc

  I am trying to develop an opc - da client using .net technology. Have gone through the documents on opc and opc client and all, but am still not sure how to implement it, can someone give me a direction on how to start with it When i try add an Opc group, i get te following error message: Opc Server add group failed with exception: Unable to cast object of type 'OpcAutomation.OpcServerClass' to type 'OPCAutomation.IOpcGroups' Does anyone help me The link you posted doesn't work. Post the code in this forum. Thanks Everyone, Right now, i am using Advasol http://www.advosol.com/ opc client components for my opc client development. It ...Show All

• Stéphane Beauchemin Show Full Menu in Access

  I have a access database that has startup options set to open my own form and menu. I have disabled all other menus. If an administrator logs on and chooses to edit the database. How would I show all menus except the one I have created Maybe there is a way to load them Here is the code I have tried and doesn't successfully work. ChangeProperty "AllowFullMenus", DB_BOOLEAN, True 'Show commandbars except "Time" Dim i As Integer For i = 1 To CommandBars.count CommandBars.Item(i).Enabled = Not (CommandBars.Item(i).Name = "Time") Next i 'Remove all forms i = 0 Do While Forms.count - 1 >= i DoCmd.Close acForm, Forms.Item(i).Name, acSaveNo Loop 'Show the DB Window DoCmd. ...Show All

• George2 Help with comma separated values in report

  Hi! A bit of a stuck-up. It’s no problem in creating a coma separated fields in .txt kind of file. But I have another problem which is probably simple to manage (not for me though - my brains work 24hrs/day and don’t come up with nothing). I want to show several different values from one field (in query) on the report - now check this - They have to be separated by a comma in one line. If anybody is familiar with the solution just show me the direction and I’ll try to solve it by myself. Thanks in advance I'll do my best. If I don't succeede - then I'd apreciate your further help. Thanks for all the help so far.. Hi Kdee, did u find the solution, me too have a same problem, can u post here the ...Show All

• Gaya_3 Generating Dialog Messages thru VBA over Excel

  Hi Guys and Girls, Thanks for the help so far. I'm on the last step. I need to generate fairly long dialogue messages dependant upon the data the user has entered. A sort of lok up using Inputbox which I understand and Dialogue boxes which I don't. I'm really stuck, I just need a little code that goes if data_entered = XX then .... open this dialogue box containing this text else if .... open another dialogue box else if .... another end. Is it possible to dynamically load texts to dialoge boxes rather than hard code them Again thanks for the help so far. Hamish Thanks but MsgBox is limted to what Excel offer. It ...Show All

• EricGeorge Macro to Delete Rows

  Hi, I am writing a macro that I want to do the following with: 1-Sort spreadsheet by column J. 2-Search for the first instance of the term "unbilled." 3-From that point and down, delete all rows below. 4-Delete specfic columns. I'm having trouble with steps 2 and 3 - the search works, but for the deleting of the rows, it's picking a specific row range. I want it to delete all rows from the first instance of the search term, down to the bottom of the spreadsheet. Each spreadsheet will have a different row range for this, so it can't be a specific range. Any help I can receive would be greatly appreciated. Here is the code: Sub () ' ' Macro ' Macro recorded 1/4/2007 by ___________' ' Keyboard Shortcut: ...Show All

• Terry Smith Code for end of month activity submission in an activity system

  Hi there - can anyone help with my syntax - when a user presses the submit command button i want the date that they have entered into an unbound drop down date field called 'dls' to be inserted into a field called 'datelastsubmitted' into 'tblusers' and it should enter it against the appropriate user who is logged in (this logged in users are stored in a global variable called 'loginname'). Her is my syntax: Private Sub submit_Click() Dim sql As String dls = Me!dls Dim rsdbase As Database Dim rstemp As Recordset Set rsdbase = CurrentDb Set rstemp = rsdbase.OpenRecordset("INSERT INTO tblusers[datelastsubmitted] VALUES dls WHERE tblusers[loginname] = '" & loginname & "'") DoCmd.RunSQL sql End Sub ...Show All

• michael447887 Sorry it may not have been clear as>>

  I have created a program that I plan on disbursing to other people, on this program, I have added a simple form with support info. I would like the text to be a hyperlink for a website and email. Any suggestions thanks   Private Sub LinkLabel1_LinkClicked( ByVal sender As System.Object, _ ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) _ Handles LinkLabel1.LinkClicked   The above is all one line of code as in>> Private Sub LinkLabel1_LinkClicked( ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles L inkLabel1.LinkClicked  I had split it using the line continuation technique as in>>  If this were a&nbs ...Show All

• FedericoC Problem with TableDef.RefershLink when changing from odbc back to fs

  Whne I change the "connect" property to point from a database in the file system to sql server it works fine: Sub execute() Dim tdf As TableDef, db As Database Set db = CurrentDb db.TableDefs.Refresh 'Debug.Print ("----------") For Each tdf In db.TableDefs With tdf If Left$(.Connect, Len(";DATABASE=")) = ";DATABASE=" Then 'checks if this table is linked to a file Debug.Print ("Old Connection:" & .Connect) .Connect = "ODBC;DRIVER=SQL Server;SERVER=MYCOMPUTER\SQLEXPRESS;APP=Microsoft Office XP;WSID=MYCOMPUTER;DATABASE=gendbSQL;Trusted_Connection=Yes" tdf.RefreshLink End If End With Next Set tdf = Nothing Set db = Noth ...Show All