case

Hi all, I am trying to write a case in OBIEE for the first time. It does not like what I am doing. Can you take a look? I am trying to write a case based on the customer name ( we have about 15 special names give or take) that need to be identified, the rest get assigned to a category called...

Hi, I have a worksheet which is sorted from old to new date in column A where A9 is 02/01/2017 & A978 is 07/10/2019 In column B are the customers names. A code collects all the names column B & sorts them into an A-Z order, this takes place in column L I have a userform where a field called...

Hi All, I built our weekly/daily time sheets some years ago in Excel using mostly formulas to do the calculations. This worked great, but since I started to learn more about vba and userforms I am busy streamlining it to use userform inputs and vba to send the information to the relevant...

Hi Why when I enter 66 as a number, this code print "Else"? it does not go the first case? any idea why? I used F8 but again jump to the last case. Thank you very much. Sub test3() Dim x As Integer x = InputBox("enter number") Select Case x Case x > 50 MsgBox...

This is the start of my select case statement and it has an error and I can't figure out why, can someone help me please? Dim printWorksheet As Worksheet, logoShape As Shape, tempImageFile As String Dim city As String Set city = ThisWorkbook.Worksheets("Start_here").Range("H9").Value...

Hi guys, Wondering if anybody a help with the following: I am currently using the following formula to return blanks when an error results from 'E25' being blank: =IFERROR(VLOOKUP(E25,'WORKSHEET'!$A$1:$S$1000,19,FALSE,"") However, when E25 is not blank but row '19' in '$A$1:$S$1000' has no...

Hi I know how and when to use substitute() and replace() function. But my question, I found that Replace tool is doing the same. Is there any case that Replace tool is not going to help then I will have to use substitute() or replace() functions. Thank you very much.

Hi I had this macro that compared data between sheets 1 and 2 and marked "OK" "MISSING" and "DUPLICATE" What im trying to amend it to do is to mark "OK" and "DUPLICATE" on sheet 1 still but when data is on sheet 2 but not on sheet 1 I need it marked "MISSING" on the row concerned on sheet 2...

Sub SortSelectedWorksheets() '--------------------- MTxt = MsgBox("- Sort Selected Worksheet(s) -" & vbNewLine & "---------------------" & vbNewLine & _ "Yes : Ascendingly" & vbNewLine & _ "No : Descendingly", vbYesNoCancel) '--------------------- SheetCount =...

Hello folks, I am getting a "run time error 1004 application defined or object defined" error. I am adding the code below. I would appreciate if someone could look the code over and let me know if they can find out why I am getting this. First things first: in the Range D2, I have that cell...

Hello, I have a userform with a label "txtRest" using the following code to get the total amount. (this code is in subroutine "txtTotal_Change") Me.txtRest = (IIf(Format(Me.txtTotal, "#,##0") = "", 0, (Format(Me.txtTotal, "#,##0"))) + 0) - (IIf(Format(Me.txtPaid, "#,##0") = "", 0...

Sub TestIndex() Dim arr, List$, i% List = "10,12,14,16,18" arr = Split(List, ",") For i = 10 To 18 Step 2 Select Case i Case LBound(arr) To UBound(arr) MsgBox arr 'Here, I want msgbox show say 0 to 4 End Select Next i End Sub So when...

Hello! :) I have a large main macro. I would like for the very first thing it does is to call a custom msg box that will ask the user whether or not they wish to exit the macro, or if they wish to continue. If they wish to exit, I need to exit out of the custom msgbox sub AND also out of the...

Good Evening, I have a Case code question. In having: Case "Tab Name" Now the represents just that, the name at the bottom of the tab of which is the actual name of the worksheet. Is there anyway to specify this in a generic fashion? For example...

So i have a dictionary of colors some vendors like to write in all caps, some like to write in proper, some like to write in lowercase, some have their own thing goin on? anyways my statement here ary2(i, 4) = dicFINISH.Item(ary2(i, 4)) takes their color description and replaces it with a...

I need query to scrape following website link data into excel spread sheet https://urlzs.com/11Wc9 There are 18,839 properties results appearing on above link. Fields I am looking to be exported into excel are price, location, telephone, square meters and the link of that property. 1st case...

Dear Guys Hi i am having the following problem with below vba codes when saving file to xls and pdf Error Run time Error 1004. Document not saved. The document may be open , or an error may have been encountered when saving. My vba codes are as follows :- Sub searches() Range("b2") =...

hi, I use the following code Dim Changed As Range, Cell As Range Dim Clr As Long Set Changed = Intersect(Target, Range("m2:k300")) If Not Changed Is Nothing Then For Each Cell In Changed Select Case LCase(Cell.Value) Case "win10": Clr = 35 Case "no"...

I have the following code that won't work. Ideally, I would like for any cell in column Q in the chart to toggle values from "" to "P" upon selection. Also I need Range("L5") to toggle 5 different values upon selection Please see code below. Private Sub Worksheet_SelectionChange(ByVal Target...

I have a simple worksheet to enter customer Info. I want to control the order of cell selection and reduce the users need to Tab Right. User enters First Name, press enter VBA to bounce right and enter Last Name (instead of Tab Right) After Last Name is entered, press enter VBA to drop down...