Recent content by stefen054

Hi The is a requirement that sharepoint tables are to be linked to access db so it can be accessed globally. The issue is if the data size increases it becomes very slow. Is there any standard approach to it? Or Is it good to use offline/online toggling programmatically for making changes or...

Hi Check ur code follows the rule. NORMINV(p, mu, sigma) where p, mu, and sigma are numeric values. Because p corresponds to a probability (see note 1), it must be greater than 0 and less than 1. Because sigma represents standard deviation it must be greater than 0...

Hi Reinstalllig MS Office package may solve this problem. Stefen

Hi Code like below With appexcel.Workbooks(activeworkbook.Name) .Worksheets("Sheet1").Unprotect "sherman" .Worksheets("Sheet1").Range("D3:D12").Interior.ColorIndex = 41 .Worksheets("Sheet1").Protect "sherman" End With or pass...

Hi Thanks a lot for sharing the code. Stefen

Hi Poduska, Could you please post the code for reference. Stefen

Hi Please paste the full code. stefen

Hi you have to use advanced filter with criteria like below TL TM Andy blank blank Andy this holds for OR condition. Thanks stefen

Hi you have to use worksheet_selectionchange event Private Sub Worksheet_SelectionChange(ByVal Target As Range) Call Small_Group_supplement(Target.Parent) End Sub and the locking code could be as follows Sub Small_Group_supplement(ByRef sh As Worksheet) With sh .Unprotect "Password"...

hi You may have to move all your code and sheets to new excel file.I have seen an addin called CLEAN PROJECT which takes all the worksheet in a workbook to fresh xls file and then moves the code to the same fresh xls . I guess it should work in your case and it may be memory related problem...

Hi Try this Private Sub ComboBox1_Change() Dim lastrow As Long Dim i As Integer: i = 1 Me.ComboBox2.Clear With Sheet1 lastrow = .Range("a65536").End(xlUp).Row For i = 1 To lastrow 'column 1 has dept infor and column 2 has employee info If .Cells(i, 1)...

Hi You can either use xml DOM object to extract the information and put in excel as in link http://www.tek-tips.com/viewthread.cfm?qid=1214201 or use ADO object as in http://www.ozgrid.com/forum/showthread.php?t=27818 Regards, Stefen

Thanks Geoff.

Thanks Geoff.

hi use the below code Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo Err_Exit Application.EnableEvents = False If Target.Address = "$C$3" And Target.Cells.Count < 2 Then Sheet1.Cells(1, 1).Select rownum = Sheet1.Cells(4, 7) Sheet1.Cells(22, 8) =...