Re: $$Excel-Macros$$ Need Help on Formulas

Hi Try =LOOKUP(2,1/(({"High";"High";"High";"Medium";"Medium";"Medium";"Low";"Low";"Low"}=F5)*({"High";"Medium";"Low";"High";"Medium";"Low";"High";"Medium";"Low"}=G5)),{1;2;1;1;2;3;1;3;3}) replace F5 and G5 with Frequency and Probability respectively. Kris ExcelFox

Re: $$Excel-Macros$$ Macro To Transpose Selected Row Data To Column Format

Hi Try this Sub kTest() Dim ka, k(), i As Long, c As Long, n As Long, Hdr, x Dim wks As Worksheet, Flds Hdr = Array("NAME", "Specialty_name", "Office_name", "Address_1", "Address_2", _ "Address", "Phone_number_1", "Fax_number") ka = Sheets("Sheet1").Range("a1").

Re: $$Excel-Macros$$ Macro To Transpose Selected Row Data To Column Format

John You are welcome. Thanks for the feedback Kris ExcelFox -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and

Re: $$Excel-Macros$$ Macro To Transpose Selected Row Data To Column Format

Replace ReDim k(1 To UBound(ka, 1) * (UBound(Hdr) + 1) + UBound(Hdr) + 1, 1 To 1) with ReDim k(1 To 1, 1 To 1) Kris ExcelFox -- FORUM RULES (986+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles, l

Re: $$Excel-Macros$$ Split Large Excel file to multiple excel files and possible save the files

Hi Couple of links you may find useful http://www.excelfox.com/forum/f12/split-unique-data-into-multiple-workbooks-33/ http://www.excelfox.com/forum/f2/split-data-into-multiple-workbooks-3-conditions-393/ Kris ExcelFox -- FORUM RULES (986+ members al

Re: $$Excel-Macros$$ VLOOKUP HELP NEED

I hate loops :( Sub kTest() Dim r As Long With Range("b2:b" & Range("a" & Rows.Count).End(3).Row) r = .Rows.Count + .Row - 1 .FormulaR1C1 = "=index(r2c[3]:r" & r & "c[3],match(rc[-1],r2c[4]:r" & r & "c[4],0))" .Value = .Value End With End Sub Kris ExcelFox <

Re: $$Excel-Macros$$ Top Three

Hi In G1: 3 In H2 and copied down, =IF(ROWS(H$2:H2)<=$G$1,LARGE($E$2:$E$7,ROWS(H$2:H2)),"") In I2 and copied down, =IF(N(H2),INDEX($A$2:$A$7,SMALL(IF($E$2:$E$7=H2,ROW($E$2:$E$7)-ROW($E$2)+1),COUNTIF($H$2:H2,H2))),"") It's an array formula. Confirmed with CTRL + SHIFT + ENTER Kris ExcelFox

Re: $$Excel-Macros$$ Find duplicates in Column B based on Column A and write a note in Column C

Hi BTW, you said there is only two products. So how Z comes in the list ? Anyway, try =IF(COUNTIFS($A$1:$A$6,"x",$B$1:$B$6,B1)*COUNTIFS($A$1:$A$6,"y",$B$1:$B$6,B1),"Closed","Open") Kris ExcelFox -- FORUM RULES (986+ members already BANNED for violati

Re: $$Excel-Macros$$ Date format change by running the macro

Hi Select the range and run this macro Sub kTest() Dim x With Selection x = .Address .Value = Evaluate("if(isnumber(" & x & "),TEXT(" & x & ",""\-00\-00"")+0," & x & ")") .NumberFormat = "dd-mmm-" End With End Sub Kris ExcelFox

Re: $$Excel-Macros$$ Formula to Separate Company name and Email Address

Shorter one. In D2 =TRIM(RIGHT(SUBSTITUTE(SUBSTITUTE(LEFT(A2,FIND("@",A2)),CHAR(160)," ")," ",REPT(" ",99)),99))&LEFT(MID(A2,FIND("@",A2)+1,255)&" ",FIND(" ",MID(A2,FIND("@",A2)+1,255)&" ")-1) In E2 =TRIM(SUBSTITUTE(A2,D2,"")) Kris ExcelFox -- Join of

Re: $$Excel-Macros$$ Required help in Work Allocation VBA based excel file.

Provide a meaningful workbook. So that one could understand what's going on. Kris ExcelFox -- Join official facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES (1120+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor thread titles,

Re: $$Excel-Macros$$ Required help in Work Allocation VBA based excel file.

Hi Put this code in Userform module. Dim wbkActive As Workbook Private Sub CommandButton1_Click() Dim FilePathAs String Dim FileNameAs String Dim wbkOpen As Workbook Dim LastRow As Long If wbkActive Is Nothing Then Set wbkActive = ThisWorkbook FilePath =

Re: $$Excel-Macros$$ Required help in Work Allocation VBA based excel file.

se of the individual or entity to whom they are > addressed. If you are not the intended recipient you are hereby notified > that any disclosure, copying, distribution or taking any action in reliance > on the contents of this information is strictly prohibited and may be > unlawful. &g

Re: $$Excel-Macros$$ Required help in Work Allocation VBA based excel file.

Hi Replace the commandbutton1 code with this one. Private Sub CommandButton1_Click() Dim wbkActive As Workbook Dim FilePathAs String Dim FileNameAs String Dim wbkOpen As Workbook Dim LastRow As Long If wbkActive Is Nothing Then Set wbkActive = ThisWorkbo

Re: $$Excel-Macros$$ Required help in Work Allocation VBA based excel file.

quot; & Me.TextBox3.Value, > ",") > > Like if I want to put "Image No" in the Master file popup form, so that this > "Image No" value also get pasted in the Slave2 file. > Kindly assist me how to do this. > > Thanks & Regards, > Indraji

Re: $$Excel-Macros$$ Required help in Work Allocation VBA based excel file.

in this line it should be 3 .Range("b" & LastRow).Resize(, 3) in your code it's 4 Kris Kris ExcelFox -- Join official facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES (1120+ members already BANNED for violation) 1) Use concise, accurate thread titles. Poor t

Re: $$Excel-Macros$$ Required help in Work Allocation VBA based excel file.

.Range("b" & LastRow).Resize(, 4) = Split(Me.TextBox2.Value & "|" & Me.TextBox1.Value & "|" & Me.TextBox3.Value & "|" & Me.TextBox4.Value, "|") Kris ExcelFox -- Join official facebook page of this forum @ https://www.facebook.com/discussexcel FORUM RULES (1120+ members already BANNED for viola