New answers tagged

0

There are fuzzy lookup add-ins which can be hooked into Excel, as @Scott Craner mentions. Download the Fuzzy Lookup plugin from Microsoft: https://www.microsoft.com/en-us/download/details.aspx?id=15011 Tutorial for setting up and using fuzzy lookups in Excel: http://www.k2e.com/tech-update/tips/431-tip-fuzzy-lookups-in-excel Video tutorial showing how to ...


0

I wrote the following JavaScript for you: var ar = $('a.pdf-icon').each(function (a) {var ar = $(this).attr('onclick').split("'"); var url = "http://ebooks.cambridge.org/open_pdf/" + ar[3] + "?pubCode=CUP&urlPrefix=cambridge&productCode=cbo"; window.open(url);}); To execute it, open the page you linked in your question, open JavaScript console ...


0

Copy the sheet as usual. (right-click to tab and go to 'move or copy') This is for formatting. Copy all cells from original sheet (using Ctrl+A or top-left triangle and Ctrl+C) Paste as Values to the new workbook (over "step-1" sheet) (Paste Options>123)


0

You call the first procedure by passing a range as the argument. test(ThisWorkbook.Worksheet("Sheet1").Range("A1"))


1

Here's a way to do it in excel if you paste your lines in column A and change workingRange to your range. Then you can just copy column A back to notepad Open Excel Developer tab and choose Visual Basic [for applications], or press Alt + F11. Copy the code below into a new module: Option Explicit Public Sub notepadthing() Dim workingRange As ...


0

Seems like I'm able to copy if I switch to DatasheetView. You can just select the line with all the values and use Str+C and STR+V


0

The error is probably being thrown by the validation which is triggered "on change". Try: Application.EnableEvents = False Range("C5:D5").Select Selection.ClearContents [...] Application.EnableEvents = True End Sub


-1

If you don't want to make a macro and as long as you don't mind an additional column, then just create a new column alongside your column of URLs. In the new column type in the formula =HYPERLINK(A1) (replacing A1 with whatever cell you are interested in). Then copy the formula down the rest of the entries.


0

You have already claimed you've just copied other code and not done it yourself. If you continue down this route, you'll get lost, I recommend actually learning the little code you need. This function demos how you get the the number to increment every 3 times and how to add the leading zeros. I have assumed, as per your example (where you wrote (eg, 0001, ...


0

I received help from a friend and wanted to share the solution--below. On Any update to the workbook that happens in column 4 (which is the Client Answer), if they answer No to a "Tiered Question"...the subsequent rows with a "Follow-Up Q" will be hidden. You would have to update this macro if you moved the Business Criteria ("A") or Client Answer ...


-1

I had the same problem with all the gibberish. Go to the first tab 'keyboard' then delete what ever profile you have and make a new one, that will remove any of the OTF macros you have.


3

Personally, I would create a user defined function for this, that way you don't need a sub to output a worksheet function For this you would just enter in G6 =username(C6,D6,G6). The added benefit is the increased readability of the code for maintenance and reading your values into the macro immediately and not needing to reference any cells. Public ...


0

I'm not sure exactly what you mean by "manually updating every row" but if you put your code into a Worksheet_Change sub into your worksheet object (not a module) then it will run automatically every time cell D4 is updated in that worksheet Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$D$4" Then If Target.Value = ...


0

I thought I should update this with the closest I have come to an answer so far..... I have written a macro that changes the font of the selected text, and created a shortcut in the toolbar. Therefore I compose my email in the font I don't want to use, then select the entire reply and click the macro. I can provide the code (which is quite simple) if ...


0

Modify this code Set rng = ActiveSheet.Range(ActiveSheet.Range("B3"), _ ActiveSheet.Cells(Rows.Count, 1).End(xlUp)) because it is reading the first column, to this: Set rng = ActiveSheet.Range(ActiveSheet.Range("B3"), _ ActiveSheet.Cells(Rows.Count, 2).End(xlUp))


2

How about: Sub basic_messagebox() Dim CAT1 As Integer CAT1 = [COUNTIF(F2:F1000,"x")] MsgBox "The total number of possible Cat I: " & CAT1 End Sub


0

Ok I seem to have it figured out now. You can add a new trusted location via registry by creating a new Registry Key like this: HKCU:\Software\Microsoft\Office\16.0\Word\Security\Trusted Locations\Location99. This is the key that has to be created. Then it is needed to add a string Description with the value of the Location folder. In this case "99". ...


0

I managed to create this code with the help of contributions in this and in other similar forums. Since I'm a beginner with VBS this code sure looks complicated but it does what I needed. I created 4 sheets and 4 buttons. Each sheet includes 3 buttons. Each button allows to cut and paste and color a row that has been previously selected by a mouse click on ...



Top 50 recent answers are included