2C5:RC[2],RC[2])>5,R[-1]C+1,IF(AND(RC[2]="""",MOD(COUNTBLANK(R1C5:R[-1]C[2]),5)=0),R[-1]C+1,R[-1]C)))"
.Value = .Value2
.Cells(1).Offset(-1) = s
End With
End Sub
Kris
--
FORUM RULES (986+ members already BANNED for violation)
1) Use co
Congrats Rajan !
--
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 Need Advice will not get
quick attention or may not be answered.
2) Don't post a que
Hi
In G1 on sheet1 and copied across upto I1
=MATCH($A1&"|"&B2,Data!$A$2:$A$770&"|"&Data!$B$2:$B$770,0)
In B3 and copied down and across,
=INDEX(Data!$D$1:$BH$1,MATCH(LARGE(INDEX(Data!$D$2:$BH$771,G$1,),ROWS(B$3:B3)),INDEX(Data!$D$2:$BH$771,G$1,),0
Have you tried my code ?
Kris
--
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 Need Advice will not get
quick attention or may not be answered.
2
xt
End If
Next
If n Then
With Sheets("REPORT-INDEX")
.Range("a8").Resize(1000, 8).ClearContents
.Range("a8").Resize(n, UBound(k, 2)) = k
End With
End If
End Sub
Kris
--
FORUM RULES (986+ members already BANN
rmal enter
Kris
--
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 Need Advice will not get
quick attention or may not be answered.
2) Don't post a
See: http://www.xcelfiles.com/VBA_InsertImgs.html
Kris
--
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 Need Advice will not get
quick attention or
Hi
In S2,
=SUM(IF(FREQUENCY(IF(S4:S17<>"",MATCH(S4:S17,S4:S17,0)),ROW(S4:S17)-ROW(S4)+1),1))
In E21 and copied across,
=IF(COLUMNS($E21:E21)<=$S$2,INDEX($S$4:$S$17,MATCH(0,COUNTIF($D21:D21,$S$4:$S$17),0)),"")
Both are array formulas. Confirmed with CTRL + SHIFT
The formula should be
=RANK(A2,$A$2:$A$9)+COUNTIF($A$2:A2,A2)-1
Kris
>
>
--
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 Need Advice will n
Hi
Try
=RANK(A2,$A$2:$A$20)+COUNTIF($A$2:A2,A2)-1
adjust the range.
Kris
--
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 Need Advice will not get
cros@googlegroups.com [mailto:
> excel-macros@googlegroups.com] *On Behalf Of *Kris
> *Sent:* Apr/Mon/2012 07:59
> *To:* excel-macros@googlegroups.com
> *Subject:* Re: $$Excel-Macros$$ Re: Formula to Extract Unique Values :
>
>
>
>
>
> PFA.
>
>
>
> Kris
&g
PFA.
Kris
On Monday, 2 April 2012 19:51:01 UTC+5:30, Rajan_Verma wrote:
>
> Hi Krishna,
>
> Can you share a scenario where its giving duplicates?
>
>
>
> Rajan.
>
>
>
> *From:* excel-macros@googlegroups.com [mailto:
> excel-macros@googlegroups.com] *On
Hi Rajan,
It gives duplicates as well.
You may try this shorter one.
In E2 and copied down,
=INDEX(Range,MATCH(0,COUNTIF($E$1:E1,Range),0))
Array formula.
Kris
On Monday, 2 April 2012 19:19:58 UTC+5:30, Rajan_Verma wrote:
>
>
>
> Hi group,
>
> I have just created formula
Hi
There are many examples available on the net. here is one of them.
http://www.excelfox.com/forum/f12/dependent-data-validation-using-only-formulas-111/
Kris
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please
LUMNS($A12:B12)<=$H$6+1,INDEX(INDIRECT("'"&INDEX(ShtName,ShtSelected)&"'!A5:i120"),ROWS(B$12:B12),MatchCol+COLUMNS($B12:B12)-1),""),"")
Kris
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titl
It does. Set your calculation to automatic.
Kris
On Saturday, 24 March 2012 12:43:42 UTC+5:30, hilary lomotey wrote:
>
> Thanks Kris for the quick reply
> A little bug in the formula
> If you include the named range matchcol in the formula. The figures don't
> update whe
;"&INDEX(ShtName,ShtSelected)&"'!A5:i120"),ROWS(B$12:B12),MatchCol+COLUMNS($B12:B12)-1),"")
Kris
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help,
OK. In B12 and copied down & across,
=IF(COLUMNS($A12:B12)<=$H$6+1,INDEX(INDIRECT("'"&INDEX(ShtName,ShtSelected)&"'!A5:i120"),ROWS(B$12:B12),MATCH($H$4,INDIRECT("'"&INDEX(ShtName,ShtSelected)&"'!A4:i4"),0)+C
Hi
on Sheet1
In D2:D5
FML SIC GCB GGBL
and define the range *'ShtName*'
Define B2 '*SheetSelected*'
In A12 and copied down & across on P&L(2)
=IF(COLUMNS($A12:A12)<=$H$6+1,INDEX(INDIRECT("'"&INDEX(ShtName,ShtSelected)&&q
Hi
Sub kTest()
On Error Resume Next
Columns(1).SpecialCells(4).FormulaR1C1 = "=r[-1]c"
Columns(1) = Columns(1).Value
On Error GoTo 0
End Sub
Kris
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread ti
That's not true.
MATCH("A",L6:L27,0) is not equal to MATCH("AA",L6:L27,0).
Can you attach the workbook ?
Kris
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need He
Hi
Replace
Flg = Evaluate("ISNUMBER(LOOKUP(9.999E+307,SEARCH(D18,L6:L27)))")
with
Flg = Evaluate("ISNUMBER(MATCH(D18,L6:L27,0))")
Kris
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please
End With
Application.ScreenUpdating = True
End Sub
Private Sub UserForm_Initialize()
Set Rng = Intersect(Range("c:c"), ActiveSheet.UsedRange)
Rng.Rows.Hidden = False
End Sub
Kris
On Tuesday, 20 March 2012 18:02:54 UTC+5:30, NOORAIN ANSARI wrote:
>
> Dear Shanka
Or a non-array formula
=LOOKUP(2,1/(C3:Z3<>0),$C$2:$Z$2)
Kris
--
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 Need Advice will not get
Hi,
1. Hit Ctrl + A -> Ctrl + 1 -> Protection -> Uncheck Locked -> OK.
2. Hit F5 -> Special -> Check Formulas -> OK.
Repeat the 1st step and check Locked as well as Hidden.
Now protect the sheet.
Kris
On Sunday, 11 March 2012 16:57:34 UTC+5:30, ashja...@yahoo.co.in
So what ?
On Saturday, 10 March 2012 19:10:11 UTC+5:30, Don Guillett wrote:
>
> > In cell D18 I have some text.
>
> Don Guillett
> Microsoft MVP Excel
> SalesAid Software
> dguille...@gmail.com
>
> *From:* Kris
> *Sent:* Saturday, March 10,
Hi,
It's an array formula. Confirmed with CTRL + SHIFT + ENTER
Kris
On Saturday, 10 March 2012 17:34:19 UTC+5:30, Ashish_Bhalara wrote:
>
>
> Dear sir,
>
> I write your condition but there are no result display in the cell, I
> don't know whats happen with this
Hi
Sub kTest()
Dim Flg As Boolean
Flg = Evaluate("ISNUMBER(LOOKUP(9.999E+307,SEARCH(D18,L6:L27)))")
If Not Flg Then
'do something
End If
End Sub
Kris
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurat
No need to use IFERROR twice. BTW, Sam's formula works fine for me.
You could use this as well.
=IFERROR(INDEX(Sheet2!C$3:C$15,SMALL(IF(INT(Sheet2!$A$3:$A$15)=$B$32,ROW(Sheet2!$A$3:$A$15)-ROW(Sheet2!$A$3)+1),ROWS(B$34:B34))),"")
Kris
--
FORUM RULES (986+ members already BANNE
o eCol Step 7
.Cells(8, i).Resize(RowsToCopy).Copy
Dest.PasteSpecial xlPasteValues, , , True
Set Dest = Dest.Offset(1)
Next
End With
Application.CutCopyMode = False
End Sub
Kris
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurat
Sheet.Range("a2:z223")
Set DestCell = ToSheet.Range("a1")
With DestCell
'unmege destination range
.Resize(CopyRange.Rows.Count, CopyRange.Columns.Count).UnMerge
'method 1
CopyRange.Copy
.PasteSpecial xlPasteValues
Application.CutCopyMode = False
Hi,
Arrange your table like this.
D18 E18 F18 G18 H18 D19 0 126 376 626 D20 0 1 2 3 4 D21 101 5 6 7 8
D22 301 9 10 11 12 D23 501 13 14 15 16
and the formula is
=INDEX(E20:H23,MATCH(B2,D20:D23),MATCH(A2,E19:H19))
Kris
--
FORUM RULES (986+ members already BANNED for violation
Hi,
Try this macro.
Sub kTest()
'Kris @ ExcelFox.com
Dim i As Long, j As Long
Dim n As Long, m As Long
Dim r As Range
Dim wbkAAs Workbook
Dim wbkNAs Workbook
Dim wksNAs Worksheet
Dim CopyRng As Range
Dim MTHs,
Hi
In C16 and copied down,
=INDEX($A$2:$A$12,MATCH(B16,INDEX($B$2:$F$12,,MATCH(A16,$B$1:$F$1,0)),0))
Kris
--
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
Rajan,
The formula you posted would give 1, if there is no word in the cell and
secondly if there is only one word, the result would be 1 + length of the
word, which is incorrect.
Kris
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor
Hi
Sub kTest()
Dim i As Long, r As Long, c As Long
c = Cells(1, Columns.Count).End(-4159).Column
For i = 1 To c
r = Cells(Rows.Count, i).End(3).Row
If r > 1 Then Cells(1, i).Resize(r).Name = Cells(1, i).Value
Next
End Sub
Kris
--
FO
=IF(ISNUMBER(FIND(" ",A2)),1+LEN(TRIM(RIGHT(SUBSTITUTE(A2," ",REPT("
",100)),100))),"")
Kris
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help,
t;)
strDTop = obWSShell.SpecialFolders("Desktop") & "\ABC\"
On Error Resume Next
For Each objFldr In objFSO.getfolder(strDTop).subfolders
Kill objFldr.Path & "\*Performance.xl*"
Next
End Sub
Kris
--
FORUM RULES (986+ members already BAN
Hi
Here is my take on this
In B2
=TRIM(SUBSTITUTE(SUBSTITUTE(A2,C2,""),CHAR(160),CHAR(32)))
In C2
=TRIM(RIGHT(SUBSTITUTE(TRIM(SUBSTITUTE(A2,CHAR(160),CHAR(32))),CHAR(32),REPT(CHAR(32),100)),100))
Kris
--
FORUM RULES (986+ members already BANNED for violation)
1) U
Hi
Have you tred mine ?
--
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 Need Advice will not get
quick attention or may not be answered.
2) Don'
ed down & across,
=IF(ROWS(E$5:E5)<='FINANCIAL ANALYSIS'!$AE$3,INDEX('FINANCIAL
ANALYSIS'!$A$4:$Z$38,MATCH(ROWS(E$5:E5),'FINANCIAL
ANALYSIS'!$AD$4:$AD$38,0),E$1),"")
Kris
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise,
Hi
I have created one UDF, which can be found at:
http://www.excelfox.com/forum/f12/number-into-words-rupees-45/
Kris
--
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
s (*.xls),*.xls")
MsgBox SFileName
End Sub
Public Sub StartButton_Click()
Workbooks.Open IFileName
Workbooks.Open SFileName
End Sub
Kris
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent
Hi
You are welcome !!
BTW, you could replace the P7 formula with
=INDEX(I4:I26,A1)
Kris
--
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 Need Advice
Hi,
In C2 and copied down,
=LOOKUP(B2,$I$3:$J$11)
and arrange your table like
RANGE GRADE 0 No Grade 3.2 D 4.1 C2 5.1 C1 6.1 B2 7.1 B1 8.1 A2 9.1
A1 10.1 No Grade
Kris
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread
Hi,
Replace your Col I formula. In I4 and copied down,
=IFERROR(C4/C3-1,"N/A")
custom format the cell as *0.00%;(0.00%)*
*
*
Kris
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent,
Hi
Replace these lines
Set rngRowData = rngRowData.SpecialCells(xlCellTypeVisible)
Set rngRowData = Intersect(rngRowData, rngRowData.Offset(1))
with
Set rngRowData = rngRowData.Offset(1).SpecialCells(xlCellTypeVisible)
Kris
--
FORUM RULES (986+ members already BANNED for violation)
1) Use
Hi
Please find attached.
Kris
--
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 Need Advice will not get
quick attention or may not be answered.
2
Hi
=LEFT(A2,FIND("_",A2&"_")-1)
Kris
--
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 Need Advice will not get
quick
Hi,
Arrange your table like this.
Mark Grade Ramarks 1 e Poor 41 d Average 51 c Good 61 b Very Good 71 a
Excelient
--
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
owing Sheet(s) are selected" & vbLf & Sht
End If
End With
End Sub
Kris
--
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, an
Hi
I can't attach the workbook here. In the meantime check the spelling of A2
value (any trailing or leading space).
Kris
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Fo
HI
In C2
=LOOKUP(2,1/(INDIRECT("'" &A2&"'!E3:E11")=B2),INDIRECT("'" &A2&"'!G3:G11"))
Kris
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, l
Hi,
There is no summary sheet in the attachment.
Kris
--
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 Need Advice will not get
quick attention
What does this return ?
=MAX(INDIRECT("'" &A2&"'!$D$2:$D$11"))
Kris
--
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
Replace the A2 with the sheet name.
Kris
--
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 Need Advice will not get
quick attention or may not be
Hi
=VLOOKUP(MAX(INDIRECT("'" &A2&"'!$D$2:$D$11")),INDIRECT("'"
&A2&"'!$D$1:$G$11"),4)
adjust A2 with appropriate cell
Kris
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thre
Hi
In D2 and copied down,
=IF(SUMPRODUCT(--($A$2:A2&"|"&$B$2:B2=A2&"|"&B2))=1,C2*0.1,D1)
Kris
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help
Congrats Noorain !!
--
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 Need Advice will not get
quick attention or may not be answered.
2) Don't post a q
One of the header is 'No' instead of 'No.'
Correct the headers, it should work
Kris
--
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 Prob
.Parent.UsedRange.ClearContents
.Range("a1").Resize(, j) = x
.Range("a2").Resize(n, j) = k
.Parent.UsedRange.Columns.AutoFit
End With
End If
End Sub
Kris
--
FORUM RULES (986+ members already BANNED for violation)
1) Use
Hi
Right click on Start > Explorer > Tools > Folder Options > File Types >
Select XLS and click on change > OK.
Kris
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Hel
Another one
=SUM(COUNTIF(B2:D5,{">=4000",">6000"})*{1,-1})
Kris
--
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 Need
Hi,
I assume you enter NOW() in Q3.
In R3:
=MOD(Q3,1)
In S3:
=INDEX(D4:O4,,MATCH(MIN(ABS(R3-INDEX(D5:O28,MATCH(INT(Q3),INT(C5:C27),0),0))),ABS(R3-INDEX(D5:O27,MATCH(INT(Q3),INT(C5:C27),0),0)),0))
Again Array formula.
Kris
--
FORUM RULES (986+ members already BANNED for violation)
1) Use
, 1).FormulaR1C1 = "=rc[-4]=""" & k(i, 1) & """"
Set wksNew = Worksheets.Add
.AdvancedFilter 2, c, wksNew.Range("a1"), 0
wksNew.UsedRange.Columns.AutoFit
wksNew.Name = k(i, 1)
Set
Hi Rajan,
Here you go.
--
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 Need Advice will not get
quick attention or may not be answered.
2) Don't post
Hi
Try this array formula.
=INDEX(D4:O4,,MATCH(MIN(ABS(R3-INDEX(D5:O28,MATCH(Q3,INT(C5:C27),0),0))),ABS(R3-INDEX(D5:O27,MATCH(Q3,INT(C5:C27),0),0)),0))
Kris
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help
Hi
Why VBA ??
In XL 2007, go to Formulas > Use in Formula > Paste Names
In Xl 2003, Insert > Names > Paste Names
Kris
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need H
Hi
Here is non-VBA method.
Kris
--
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 Need Advice will not get
quick attention or may not be answered.
2
Hi,
In K14 and copied down,
=SUM(IF(FREQUENCY(IF($B$2:$B$13=H14,IF($C$2:$C$13<>"",MATCH($B$2:$B$13&$C$2:$C$13,$B$2:$B$13&$C$2:$C$13,0))),ROW($B$2:$B$13)-ROW($B$2)+1),1))
It's an array formula. Confirmed with CTRL + SHIFT + ENTER.
Kris
--
FORUM RULES (986+ members
Hi
In B2 and copied down,
=IF(COUNTIF($A$2:A2,A2)=1,COUNTIF($A$2:$A$17,A2),"")
Kris
--
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 N
Hi
Your formula in N168 would be
=COUNTIFS(Attendance!$E$4:$E$98,'Summary
Sheet'!$M168,Attendance!$C$4:$C$98,'Summary
Sheet'!N$167,INDEX(Attendance!$G$4:$AK$98,,MATCH($N$166,Attendance!$G$3:$AK$3)),"P")
Kris
--
FORUM RULES (986+ members already BANNED
1),""0"")&MID(" & a & ",FIND("",""," & a & "&"",""),100),"
& a & ")")
.Sort .Cells(1), 1
.Value = Evaluate("=IF(ISNUMBER(--LEFT(" & a &
@ Noorain,
No need to CSE LOOKUP(2,1/ ) formula.
It is a non array formula, but it's expensive as much as an array formula
because of the division.
Kris
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like P
Hi Asa,
Thanks.
Cheers
Kris
--
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 Need Advice will not get
quick attention or may not be answered.
2
quot;Current", "Extra.", "Total", "Month", _
"Extra", "Total", "Year", "Extra", "Total")
.Range("a5").Resize(n, 17) = k
.Range("a5").Resize(, 17)
Value2 gives faster performance as it doesn't take formats in memory
Kris
--
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 Need Advice will no
Hi Guys,
Thanks for testing the code.
Can you please debug the code ? I want to know which command/keyword likes
XL 2007 but not XL 2010.
Thanks
Kris
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help
Hi,
Can anyone test this code on XL 2010? It works fine on XL2007. But I was
told it fails on XL 2010.
Appreciate any comments.
Kris
--
FORUM RULES (986+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help
Hi Paul,
Can you do a favour for me ?
ping me your mail ID at: excelfox at live.in
Kris
--
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 Need Advice
You are welcome !!
Kris
--
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 Need Advice will not get
quick attention or may not be answered.
2) Don
r.Range(Mid$(txt, 2)).ClearContents
End If
On Error Resume Next
r.SpecialCells(4).EntireRow.Delete
On Error GoTo 0
[j2].Resize(.Count, 2) = Application.Transpose(x)
End With
End Sub
Kris
--
FORUM RULES (986+ members already BANNED for violation)
1)
").ClearContents
[j2].Resize(.Count, 2) = Application.Transpose(x)
End With
End Sub
Kris
--
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 Proble
Hi
Have a look at this: http://www.mcgimpsey.com/excel/formulae/doubleneg.html
Kris
--
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 Need Advice
Keep EXCELling !!
--
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 Need Advice will not get
quick attention or may not be answered.
2) Don't post a
Another one.
http://www.excelfox.com/forum/f13/export-data-excel-access-table-ado-using-vba-182/
Kris
--
FORUM RULES (934+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need Help, Formula Problem, Code Problem
The second one for XL 2003
--
FORUM RULES (934+ 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 Need Advice will not get
quick attention or may not be answered.
2) Don't p
Hi
I can't give much help on this. But have a look Data > From Web (XL 2007).
Data > Import External Data > New web query.
Kris
--
FORUM RULES (934+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urgent, Need
Happy B'day Noorain !
--
FORUM RULES (934+ 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 Need Advice will not get
quick attention or may not be answered.
2) Don't post a
lls(1, i),
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False,
FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Next
End Sub
Kris
--
FORUM RULES (
Hi,
For Numbers,
Select each column on by one. Go to Data > TextToColumns > Next > Next
check on General > Finish.
For date, check Date Instead of General and select DMY > Finish.
Kris
--
FORUM RULES (934+ members already BANNED for violation)
1) Use concise, accurat
ys
FINALDEST = x(.Count - 1)
.RemoveAll
End With
End Function*
**
*Kris*
--
FORUM RULES (934+ 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
In the example Kumar Raje Gowda should be 1.
Another one
=COUNT(INDEX($A$2:$A$595,MATCH(J2,$A$2:$A$595,0)):INDEX($A$2:$A$595,MATCH(J2,$A$2:$A$595,0)+MIN(IFERROR(MATCH("*",INDEX($A$2:$A$595,MATCH(J2,$A$2:$A$595,0)+1):$A$595,0),
Kris
--
FORUM RULES (934+ members already
@ Noorain,
Is there any difference between yours and my UDF ?
--
FORUM RULES (934+ 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 Need Advice will not get
quick attentio
Hi Rajan,
The route are different. DMS-BAH and BAH-DMM
Kris
--
FORUM RULES (934+ 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 Need Advice will not get
quick attention
What's the logic of last destination DAM in DMS-BAH-DAM-BAH-DMM ?
--
FORUM RULES (934+ 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 Need Advice will not get
quick atten
End If
Next
If n Then
[c8].Resize(i, c - 1).ClearContents
[c8].Resize(n, UBound(k, 2)) = k
Else
MsgBox "No record(s) found", vbInformation
Exit Sub
End If
End Sub
Kris
--
FORUM RULES (934+ members already BANNED for violation)
1
Hi,
With the help of a helper column, a Pivot table would do the trick.
PFA.
Kris
--
FORUM RULES (934+ 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 Need Advice will
@ Haseeb,
Nice :)
--
FORUM RULES (934+ 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 Need Advice will not get
quick attention or may not be answered.
2) Don't post a
;(",")"},A1,FIND(")",A1)+1)*{-1,1})-1),MID(A1,FIND("(",A1)+1,SUM(FIND({"(",")"},A1)*{-1,1})-1))
Kris
--
FORUM RULES (934+ members already BANNED for violation)
1) Use concise, accurate thread titles. Poor thread titles, like Please Help,
Urge
1 - 100 of 111 matches
Mail list logo