Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
selecting values
hi.. I have to select a value from one sheet and find this value in another sheet. The problem is ... there are some 800 such values. I am selecting a value from sheet and then activating the other sheet again. off course this is not a correct way...as the sheets keep blinking! I think i need to use arrays....but still i am unable to figure out the exact methood... here is my code: i = 2 While i <= lastCellNum fam = check_fam(Cells(i, 3)) 'RETRIEVE FINAL PACKAGE FAMILY FROM "PackageMasterFile.xls" Workbooks("PackageMasterFile").Worksheets("Package ").Activate Set Ofind = Columns("A:A").Find(fam) If Ofind Is Nothing Then 'MsgBox (fam) MsgBox "The particular Family not found in PackageMasterFile.xls" Exit Sub Else 'MsgBox (Ofind.Address) extractValue = Ofind.Offset(0, 1) Workbooks("best").Worksheets("raw_data").Activate Cells(i, 4) = extractValue End If i = i + 1 Wend any help? thanks monika |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
selecting values
Does this speed things up ?
Dim pmf As Worksheet Dim brd As Worksheet Set pmf = Workbooks("PackageMasterFile").Worksheets("Package ") Set brd = Workbooks("best").Worksheets("raw_data") Application.ScreenUpdating = False i = 2 While i <= lastCellNum fam = check_fam(Cells(i, 3)) 'RETRIEVE FINAL PACKAGE FAMILY FROM "PackageMasterFile.xls" Set Ofind = mf.Columns("A:A").Find(fam) If Ofind Is Nothing Then 'MsgBox (fam) MsgBox "The particular Family not found in" PackageMasterFile.xls "" Exit Sub Else 'MsgBox (Ofind.Address) extractValue = Ofind.Offset(0, 1) brd.Cells(i, 4) = extractValue End If i = i + 1 Wend Application.ScreenUpdating = Tru -- Message posted from http://www.ExcelForum.com |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
selecting values
Hi Kieran
thanks for the response. Yes my blinking problem resolved with screenupdating ... i never realized its usage clearly..though i had been using it previously ..thanks...! but still the whole process is taking time... because i am activating both files one by one for 800 such values. thanks Monika "Kieran " wrote in message ... Does this speed things up ? Dim pmf As Worksheet Dim brd As Worksheet Set pmf = Workbooks("PackageMasterFile").Worksheets("Package ") Set brd = Workbooks("best").Worksheets("raw_data") Application.ScreenUpdating = False i = 2 While i <= lastCellNum fam = check_fam(Cells(i, 3)) 'RETRIEVE FINAL PACKAGE FAMILY FROM "PackageMasterFile.xls" Set Ofind = mf.Columns("A:A").Find(fam) If Ofind Is Nothing Then 'MsgBox (fam) MsgBox "The particular Family not found in" PackageMasterFile.xls "" Exit Sub Else 'MsgBox (Ofind.Address) extractValue = Ofind.Offset(0, 1) brd.Cells(i, 4) = extractValue End If i = i + 1 Wend Application.ScreenUpdating = True --- Message posted from http://www.ExcelForum.com/ |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
selecting 20 closest values from a list of 200 values | New Users to Excel | |||
Selecting values... | Excel Discussion (Misc queries) | |||
Selecting Various Values for One Source | Excel Discussion (Misc queries) | |||
Selecting more than one filter values | Excel Discussion (Misc queries) | |||
selecting values from raw data | Excel Worksheet Functions |