http://itknowledgeexchange.techtarget.com/itanswers Thu, 20 Jun 2013 07:10:05 +0000 en-US hourly 1 http://itknowledgeexchange.techtarget.com/itanswers/macro-using-visual-basic/ http://itknowledgeexchange.techtarget.com/itanswers/macro-using-visual-basic/#comments Tue, 23 Oct 2012 16:28:52 +0000 JoyStrassacapa http://itknowledgeexchange.techtarget.com/itanswers/macro-using-visual-basic/ http://itknowledgeexchange.techtarget.com/itanswers/macro-using-visual-basic/feed/ 1 http://itknowledgeexchange.techtarget.com/itanswers/vlookup-2/ http://itknowledgeexchange.techtarget.com/itanswers/vlookup-2/#comments Thu, 24 Nov 2011 23:09:13 +0000 Jkg http://itknowledgeexchange.techtarget.com/itanswers/vlookup-2/feed/ 3 http://itknowledgeexchange.techtarget.com/itanswers/excel-xla-slow-to-save/ http://itknowledgeexchange.techtarget.com/itanswers/excel-xla-slow-to-save/#comments Wed, 18 May 2011 13:47:16 +0000 Smf I have a custom toolbar saved as an .xla.  Works great.  It has always taken about 1 – 2 min. to save the .xla.  But about two weeks ago the save time increased significantly. It now takes over 12 mins. to save.  Any ideas.  I haven’t added much in the last month.  Tried rebooting machine.  The .xlb is small(300k).  The size of the .xla approx 3200kb.  Anyone ever have this issue or ideas?

]]> http://itknowledgeexchange.techtarget.com/itanswers/excel-xla-slow-to-save/feed/ 0 http://itknowledgeexchange.techtarget.com/itanswers/oracle-forms-6i-export-to-excel/ http://itknowledgeexchange.techtarget.com/itanswers/oracle-forms-6i-export-to-excel/#comments Mon, 21 Feb 2011 12:34:38 +0000 Sachinjain Hi All, I have an application on Oracle forms 6i, which is having 1 form to download reports in excel format. It works fine with excel 2003 but when require to work with excel 2010, it doesn’t work. Please help me, please send your answer at – sachin81jain@yahoo.com

]]> http://itknowledgeexchange.techtarget.com/itanswers/oracle-forms-6i-export-to-excel/feed/ 2 http://itknowledgeexchange.techtarget.com/itanswers/one-formula-for-a-single-column/ http://itknowledgeexchange.techtarget.com/itanswers/one-formula-for-a-single-column/#comments Tue, 08 Feb 2011 16:54:43 +0000 Gosteelers I am using MS Excel 2003. I have a spreadsheet with the exactly the same formula in every cell of a given column (This is possible by using the row() and the indirect() funtions). The spreadsheet is using 6000 rows. Currently, I have copied the formula into each cell. This increases the calculation time of the spreadsheet.

Is it possible to designate a formula for a given column? If so, this would mean I would have only one formula for the whole column and possible speed up the calculation time.

 

]]> http://itknowledgeexchange.techtarget.com/itanswers/one-formula-for-a-single-column/feed/ 3 http://itknowledgeexchange.techtarget.com/itanswers/in-excel-how-to-autofill-a-cell-that-references-a-list/ http://itknowledgeexchange.techtarget.com/itanswers/in-excel-how-to-autofill-a-cell-that-references-a-list/#comments Fri, 04 Feb 2011 13:42:44 +0000 Rdn I have defined a list.

Now I am at the drop down on another sheet.  Instead of scrolling to the item in the list…  (a very long list), I would like to be able to start typing a few letters, and the lists shortens to just that initial input.  Much like a combo box can operate in VB.net.

Any help will be greatly appreciated

Rick D Norris, CPA

]]> http://itknowledgeexchange.techtarget.com/itanswers/in-excel-how-to-autofill-a-cell-that-references-a-list/feed/ 1 http://itknowledgeexchange.techtarget.com/itanswers/converting-report-6i-into-excel/ http://itknowledgeexchange.techtarget.com/itanswers/converting-report-6i-into-excel/#comments Thu, 20 Jan 2011 10:55:04 +0000 Programmerjan the problem is in report the data is correct but when i try to convert into excell the dupicate rows are beuing formesd..i also did a page protect variation but report changes but not the converted file. if i have 50 records on page 1 then in report it shws 50 rows only but in xcel it shows 55 rows 5 of the next page…and when i go to 2nd page and convert it into excel then it repeats those 5 rows twice that means extra rows are being displayed i am in fix please help me as soon as possible

]]> http://itknowledgeexchange.techtarget.com/itanswers/converting-report-6i-into-excel/feed/ 6 http://itknowledgeexchange.techtarget.com/itanswers/change-fonts-in-drop-down-box-created-with-autofilter/ http://itknowledgeexchange.techtarget.com/itanswers/change-fonts-in-drop-down-box-created-with-autofilter/#comments Tue, 21 Dec 2010 20:43:31 +0000 Mmppmm 1. Is there a way to change the font size of the an auto filter drop down box?

]]> http://itknowledgeexchange.techtarget.com/itanswers/change-fonts-in-drop-down-box-created-with-autofilter/feed/ 0 http://itknowledgeexchange.techtarget.com/itanswers/messgae-alert-box/ http://itknowledgeexchange.techtarget.com/itanswers/messgae-alert-box/#comments Mon, 20 Dec 2010 10:30:10 +0000 Eron09 I have a two files, one is the consolidated time monitoring and the other file is the individual time monitoring.

The individual time monitoring file has 30 sheets which is the name of each agent and in shared mode. On that file, agents are responsible to provide/indicate the things that they’ve done everyday…for the whole week. The total time should not be less that 40:00 hrs (8hrs x 5 days). Each sheet ha a formula in “B2″ that sums all time they entered in column J.

The Consolidated time monitoring, is a file wherein all data in Individual Time Monitoring is placed in 1 sheet. This file has a macro that I run to copypaste all data in each sheet of Individual Time Monitoring. My proble is, I am having a hard time with the total number of hours because I have to check each sheet if its already 40hrs or more. My question is, how can i add a macro where in a message alert will pop-up and show that a certain sheet/s’ total time is not yet 40hrs and if possible to give the name of the sheet where the total time in “B2″ is not yet 40 hrs.

Here is the macro that I run in the Consolidated Time Monitoring File.

    ChDir “P:MY REPORTDecemberDecember 20 – 25″     Workbooks.Open Filename:= _         “P:MY REPORTDecemberDecember 20 – 25December 20 – 25  Data Team Utilization Report.xls”     Sheets(“Mon”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25  Data Team Utilization Report.xls”).Activate     Sheets(“Alma”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25  Data Team Utilization Report.xls”).Activate     Sheets(“Ivan”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25  Data Team Utilization Report.xls”).Activate     Sheets(“RC”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25  Data Team Utilization Report.xls”).Activate     Sheets(“Tala”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25  Data Team Utilization Report.xls”).Activate     Sheets(“Peter”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25  Data Team Utilization Report.xls”).Activate     Sheets(“Gerry”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25  Data Team Utilization Report.xls”).Activate     Sheets(“Zhaque”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25  Data Team Utilization Report.xls”).Activate     Sheets(“Rona”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25  Data Team Utilization Report.xls”).Activate     Sheets(“Ize”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25  Data Team Utilization Report.xls”).Activate     Sheets(“Dana”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25  Data Team Utilization Report.xls”).Activate     Sheets(“Jojie”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25  Data Team Utilization Report.xls”).Activate     Sheets(“Erwin”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25  Data Team Utilization Report.xls”).Activate     Sheets(“Nino”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25  Data Team Utilization Report.xls”).Activate     Sheets(“Anne”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25  Data Team Utilization Report.xls”).Activate     Sheets(“Heizel”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25  Data Team Utilization Report.xls”).Activate     Sheets(“Aaron”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25  Data Team Utilization Report.xls”).Activate     Sheets(“Delia”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25  Data Team Utilization Report.xls”).Activate     Sheets(“Edsel”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25  Data Team Utilization Report.xls”).Activate     Sheets(“Bless”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25  Data Team Utilization Report.xls”).Activate     Sheets(“Jaz”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25  Data Team Utilization Report.xls”).Activate     Sheets(“PJ”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25  Data Team Utilization Report.xls”).Activate     Sheets(“Bran”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25  Data Team Utilization Report.xls”).Activate     Sheets(“Richmon”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25  Data Team Utilization Report.xls”).Activate     Sheets(“Billy”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25  Data Team Utilization Report.xls”).Activate     Sheets(“Ryan”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25  Data Team Utilization Report.xls”).Activate     Sheets(“Cris”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25  Data Team Utilization Report.xls”).Activate     Sheets(“Dean”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25  Data Team Utilization Report.xls”).Activate     Sheets(“Irish”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25  Data Team Utilization Report.xls”).Activate     Sheets(“Patrick”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25  Data Team Utilization Report.xls”).Activate     Sheets(“Gem”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25  Data Team Utilization Report.xls”).Activate     Sheets(“Aileen”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False     Windows(“December 20 – 25  Data Team Utilization Report.xls”).Activate     Sheets(“Carlo”).Select     Range(“A6:K1000″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“A65536″).End(xlUp).Select     ActiveCell.Offset(1, 0).Select     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _         :=False, Transpose:=False

    Windows(“December 20 – 25  Data Team Utilization Report.xls”).Activate     Range(“G6″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“G2:G6000″).Select     Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _         SkipBlanks:=False, Transpose:=False     Windows(“December 20 – 25  Data Team Utilization Report.xls”).Activate     Range(“I6″).Select     Application.CutCopyMode = False     Selection.Copy     Windows(“Consolidated – Utilization Report.xls”).Activate     Range(“I2:I2030″).Select     Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _         SkipBlanks:=False, Transpose:=False     Range(“A2″).Select

    End Sub

]]> http://itknowledgeexchange.techtarget.com/itanswers/messgae-alert-box/feed/ 2 http://itknowledgeexchange.techtarget.com/itanswers/unlocking-vba-project-using-vba-code/ http://itknowledgeexchange.techtarget.com/itanswers/unlocking-vba-project-using-vba-code/#comments Fri, 17 Dec 2010 15:29:13 +0000 Yves695 Can i use vba code to unlock my x-cel vba project protected by password?

I need to unprotect my project to add some code and then reprotect it.

]]> http://itknowledgeexchange.techtarget.com/itanswers/unlocking-vba-project-using-vba-code/feed/ 1