t;
End Select
End Function
and use
=COLOUR(A1)
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
Worksheets.Add
ActiveSheet.Name = Target.Value
End If
End Sub
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
If Len(x(i)) Then
.Item(Trim$(x(i))) = Empty
End If
Next
x = .keys
FINALDEST = x(.Count - 1)
End With
End Function
and use like
=FINALDEST(A6)
Kris
--
FORUM RULES (934+ members already BANNED for violation)
1) Use conc
Hi,
Use wildcard.
=VLOOKUP("*"&B3,B9:C14,2,FALSE)
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
quic
Hi,
I'm not sure you found a solution for this. This link
http://www.excelfox.com/forum/showthread.php?31-Data-Validation-Dependent-Dropdownsmight
be a useful one.
Kris
--
--
Some important links for excel
Hi Kunal,
See this thread. Adopt the code to suit you.
http://groups.google.com/group/excel-macros/browse_thread/thread/61b820c5df194b14#
Kris
On Sep 26, 4:09 pm, kunal wrote:
> Hi,
>
> I am stuck at this point. I need to add a range from a particular column
> from all excel shee
ws.Count).End(xlUp).Offset(1)
End With
End If
.AutoFilter
Next
End With
End Sub
Private Function UNIQUE(v)
Dim e
With CreateObject("scripting.dictionary")
.comparemode = 1
For Each e In v
If Not .exists(e) Then .Add e, Nothing
Next
If .Count
WB.Sheets(2).Cells(i, 1).Resize(5, UBound(b, 2)).Value = b
i = i + 5
wb.Close False
Set wb = Nothing
fn = Dir()
Loop
With Application
.ScreenUpdating = 1
.DisplayAlerts = 1
.EnableEvents = 1
.StatusBar = False
End With
End Sub
Kris
On Sep 26, 2:16 pm, Hemant wrote:
1").Range("j18:j35")
n = n + 1: aWB.Sheets(1).Cells(1, n).Resize(UBound(a, 1)).Value =
a
wb.Close False
Set wb = Nothing
fn = Dir()
Loop
With Application
.ScreenUpdating = 1
.DisplayAlerts = 1
.EnableEvents = 1
.StatusBar = False
End With
End Sub
Kris
On
Hi All,
I have a requirement to work with internet and to enter some text,
need to select option buttons, need work with check boxes and to click
the buttons and all.
Could you please send me how to do it taking Google.com as an example.
Waiting for your reply.
Thanks & Regards,
Krishna.
--~-
please unsubscribe me too.
thanks in advance.
On Wed, Jan 7, 2009 at 7:06 PM, Bhaskar Sharma wrote:
> Please unsubscribe me
>
> --
> Bhaskar S.
>
> >
>
--
__
The woods are lovely,dark and deep
But i have promises to keep..
Miles to go before i sleep..
Miles to go before i slee
101 - 111 of 111 matches
Mail list logo