Tracking Forums, Newsgroups, Maling Lists
Home Scripts Tutorials Tracker Forums
  Advanced Search
  HOME    TRACKER    Excel


Advertisements:










Reading String Debug Kicking Out


I'm trying to create a macro that will send out emails to people based on an excel file that has 4 columns, nickname, purchased, owed, email address. I am able now to open the email, fill out to field, subject, body (mostly) and have it send if i change the code. The problem is kinda 2 part. I am trying to read in the amount owed cell (which is formatted to be $#.##) and then display that in the email, as well as reading in any other things and storing them to declared values. I am able to step through the code, but once it gets to the first part of reading in the nickname, it goes to the next line, you step through that, and then it immediately kicks out to the cleanup section. Below is the code... (Also, why is it that I need to set the row int to 1 insted of 2 (2 being where my data starts on the excel chart)).

Sub TestFile()

Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range
Dim row, purch, owed As Integer
Dim nick As String

row = 1
purch = 0
owed = 0


View Complete Thread with Replies

Sponsored Links:

Related Forum Messages:
Kicking User Out Of Document
I've created a folder and spreadsheet on a shared drive. Since I am the Author of the document, Can I kick a user out of the document if I wish.

View Replies!   View Related
Combobox Code Is Kicking In Unexpectedly
On my master screen I click a button that invokes my Housekeeping routine. This involves setting up RecordSets, populating 3 ComboBoxes and displaying my Housekeeping Form.

This is populated and displayed as follows :

Sub Load_KA_Housekeeping_Form()

'Load options into KA_Housekeeping_Form ComboBox

KA_Housekeeping_Form.KA_Housekeeping_ComboBox1.AddItem "Add New League"
KA_Housekeeping_Form.KA_Housekeeping_ComboBox1.AddItem "Delete League"
KA_Housekeeping_Form.KA_Housekeeping_ComboBox1.AddItem "Amend League"

Once displayed, the 3 ComboBoxes on the Housekeeping form all have _Change() code that kicks in depending upon which ComboBox I make a selection from … this works great and is what I have tried to use elsewhere … BUT …

When I select the relevant action from the ComboBox in question (in this case it is Rename Team), what WAS happening was that a ComboBox on my next form would be populated & the form would be displayed. I then made a selection from that ComboBox and clicked OK, where I have _OK_Click() & _Cancel_Click() code in place.

I thought it would be a good idea here, to do as above, and once I have made a selection from this ComboBox, the code would kick in automatically, rather than me having to click OK. However, this is where it gets weird … when the routine is called to populate the ComboBox, it initiates the _Change() code for the new userform, even though the form has not yet been displayed!

This is populated differently, as follows :

Case Is = "Rename Team"
EndOfLoop = NumberOfLeagues
FillTeam_Data = "Leagues"
Call Fill_Team_ComboBox(KA_Team_Rename_Form.KA_Team_Rename_ComboBox1)

Sub Fill_Team_ComboBox(MyComboBox As MSForms.ComboBox)

MyTeamSub = 0

Now, yes, I can see that I am updating and therefore "changing" the ComboBox, but I don't understand why it works using the first method but not the second, I don't understand why code for a form is being invoked before the form has been displayed !!!

I fully understand that it may well be me, I am a self-confessed beginner at VBA, but if somebody could please explain or put me straight I'd be grateful ...

View Replies!   View Related
If Then = Debug
Why does this give me a debug error?

View Replies!   View Related
Debug Error 13
I have a working Excel 2007 macro that accesses two worksheets. I then added a third worksheet and want to access it from the macro. I get a debug error 13 Type Mismatch when the macro tries to access the third worksheet. I know I need to add the third worksheet on a pop-up but I don't remember how to open it.

View Replies!   View Related
Two Different Passwords Without Debug
I have a problem with a HUGE macro project I'm working on. The macro itself isn't huge, but it's being applied to about 10,000 files. The macro is updating information on three spreadsheets in each workbook, but the problem is that the password protection (and Macro in general) fails to unlock when the password was entered in UPPERCASE. So the password is "king" and/or "KING" depending on the sheet. There is no way of predicting which sheets will be caps and which will not, but it's frustrating when my macro stops every 5 files with an error because of a wrong password (even though it's always one of those two).

Is there an IF THEN statement or something that I can do so that the macro doesn't stall every 30 seconds to 2 minutes... I have 10,000 files to crawl through.


View Replies!   View Related
Debug :: I Get: Division By Zero
When I debug this script I get: division by zero!

In 3 lines over the debugging line, the script are writing out the variable "prosentref" as 1. Whatt can be wrong?

(the value in cell T8769 is 1)

Option Explicit
Sub optimaliseringDrift()
Dim Pgm1 As Integer
Dim Pgm2 As Integer
Dim PL As Integer
Dim lamda_gm1 As Double
Dim lamda_gm2 As Double
Dim deriv1 As Double
Dim deriv2 As Double
Const Pgm1_max As Integer = 200
Const Pgm2_max As Integer = 300
Const Pgm1_min As Integer = 45
Const Pgm2_min As Integer = 40
Const deltaP As Integer = 5

View Replies!   View Related
Debug Statement
I am trying to put together an automation. I am having problem debuging the code. I am trying to have the automation autofilter with "Interior" and "Exterior" at column P. I am using a statement as follow to pick the cell that is showing at at second row each time after the autofilter ran. (the first row of Exterior and Interior are different) However, when i pick Exterior, the automation was able to locate the second cell after picking Exterior, but when I try Interior, then i will have a debug meesage.

Range("Q2:Q" & Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(12)(1).Select

The code that I used is as follow:

Sub Macro4()

Range("L1").Activate
Selection.AutoFilter
' Selection.AutoFilter
Selection.AutoFilter Field:=15, Criteria1:="=*Fixture*", Operator:=xlAnd
Selection.AutoFilter Field:=16, Criteria1:="="
Range("P2:P" & Cells(Rows.Count, 1).End(xlUp).Row).SpecialCells(12)(1).Select
ActiveCell.FormulaR1C1 = _

View Replies!   View Related
Debug: Subscript Out Of Range?
trying to copy some records across from once sheet to another?

butt it keeps debugging?

any idea why.

i'd like to keep the user defined type because it's neat and is good practice for myself?

View Replies!   View Related
Debug.Print Cause Crashes
Continuing with my goal to learn VBA and while playing with the following code, I encountered strange behavior of debug statements. In the code below I have put my comments to identify where the "funny behavior" is encountered.

Will appreciate if you can help me understand. I also have a simple request/question at the end of the code below: ....

View Replies!   View Related
Find Function Debug
What I'm doing in this script is taking a whole bunch of variables and pasting them into a seperate sheet "Checks" which will construct a cashiers check. The problem is where I've highlighted the code in red. At that point I have copied the Vendor name to the clipboard - I then go to the "Vendor Info" page and search for that Vendor name. If that name exists on the page it works perfectly...moving one column to the right, grabbing the Address Line 1 and dropping it into the check, then going back and grabbing the Address Line 2 and dropping it into the check. The problem is when that Vendor name doesn't exist in the "Vendor Info" page...I want it to just paste two blank cells into the check (because I obviously don't have the address info for that Vendor)...but instead it gives me an error:

Run-Time error '91':

Object variable or With block variable not set

Sub Checks()
'
' Checks Macro
' Macro recorded 2/14/2007 by Derek Minner
'
' Keyboard Shortcut: Ctrl+Shift+P
'
Selection.Copy
Sheets("Checks").Select
Range("I4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

View Replies!   View Related
Debug F8 Stopped Working
I recently got a new laptop. I now have excel 2007 and vista. The debug step key, F8, does not work. It toggles out of excel when pushed. If I start the procedure in the debug menu, the SHIFT - F8 will step through though. Is there a setting I am missing? It must have somehting to do with VISTA since in the debug section it says to use F8.

View Replies!   View Related
Crash When Debug Addin
I am having a strange error occur. I am trying to debug a function in an add-in I developed, but whenever I try to hover over a value or add a watch, the whole application crashes. It runs without crashing when I don't try to debug it.

View Replies!   View Related
Customizing Debug Pop Up Window
If a user decides to hit the esc key right in the middle of one of my procedures (bug free, etc), this will leave the file in an odd state. The file is set up so if the routine is re-run it cleans the file up and restores it to proper form.

But hitting esc exposes my code which is password protected when the file is idle. I employ a little trick that makes it hard to hack into my worksheet code, but one achilles heel is the esc button.

What I want is to have the file close if the routine is stopped in mid stream. This way the code is not exposed, and the user cannot monkey with the file.

I wanted to set the file up where i have a custom debug window that when a button is pressd the file closes OR when the user escapes out of the debug window the file closes as well.


View Replies!   View Related
Debug Function Called From Another File
I have a macro that calls functions from another workbook.

For example:

Private Sub Worksheet_Change(ByVal target As Range)
If ThisWorkbook.OpenCommon <> -1 Then _
Application.Run Workbooks("common.xls").name & "!Arkusz1.CellChange", target
End Sub

But when I get an error in CellChange function from "common.xls" workbook, debugger points only to the third line of the code above, not to the bad line in called function.
Is there any way to change this behaviour (maybe some tool etc.)?

View Replies!   View Related
Using Call Module1.Offset = Debug Error
I created a long macro as follows with 2 Select Case structures and the macro works fine.

View Replies!   View Related
Macro Runs Fine In Debug But Not From ComboBox
I have a workbook that contains 9 worksheets. Four of the worksheets have the same row lables in column B and must always be the same. Three of the worksheets are fed from the 4th sheet so that the integrity of the lables is maintained.

The user can change the lable value to meet their needs and they can insert or delete rows (within limits) as they see fit.

The attached macro "Sub Delete_Row_All_Sheets()" works fine when I run it from Debug (F8).

However, when I run it from Forms.ComboBox the macro returns to the "y = Application.InputBox("Enter The Row Number You Wish To Delete", _" screen. If I select cancel, the results I anticipated occur but I don't want the user to have to assume this will happen.

Why does the macro return to this screen when executed from the ComboBox but not when executed from Debug?

View Replies!   View Related
Macro Works In Debug Mode But Not In Runtime
I am trying to open a xls file and convert into csv. My macro works when I'm in debug mode. but If i run the macro (Not in debug) mode then After opening a file control is not going to next function. What is problem? Even I am not getting any error too

sub open file (FileName as string)

Dim xlx As Object, xlw As Object, xls As Object, xlc As Object
Dim RowNo As Integer
Set xlx = CreateObject("Excel.Application")
xlx.Visible = True
'Set xlw = xlx.Workbooks.Open(SourceFolder + "" + FileName)

Workbooks.Open FileName:=SourceFolder + "" + FileName
' Columns("F:G").Select
' Selection.Delete Shift:=xlToLeft
Save_in_WDrive (FileName)
Set xlx = Nothing
end sub

View Replies!   View Related
Debug Selection & Cash Register
I'm working on a sheet where I can specify sales by selection of month (Sheetname= ZoekenMaand).

Everything works fine for the months "januari" and "februari" (yes, it's in dutch ) but from "maart" it doesn't seem to work any more.

View Replies!   View Related
Cannot Work Out The Debug With Copying Static Date
I'm trying to create vehicle maintenance inspection program for a mechanic at work. The trouble is the he's not fond of computer and I'm trying to make it as simple as possible. There's a debug in the line

View Replies!   View Related
Debug Code & See Results As Stepping Through
When stepping through my macro it moves through each line of the code showing me the code as it steps through. Is there a way to step through and see the results of the code as it is going through. I have an "IF THEN" statement in the macro that is not giving me any results so I think I must have an incorrect reference in the code, but I can't see it. I think if I could watch what it is supposed to be doing as I step through I might be able to find the error.

View Replies!   View Related
Allow User To Enter Break Mode (Debug)
i want to do is throw a break in my vba code if the user selects yes through a msgbox vbYesNo prompt and proceed in debug mode. is it possible to code in a break point in this fashion? my desired pseudo

if user selects yes:
set break point (to send to debug mode at that point... i dont mean to end the code with a END statement.)
if user selects no:
proceed program normally

View Replies!   View Related
Debug Assistance - Auto Date Entry
i try to lock cells in the area the VBA code affects. My goal is to actually have affected cells by this VBA code lock immediately after anything is entered in the affected cells. Area needing Debugging is in the If - Else portion. My worksheet will be protected.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim LLoop As Integer
Dim LTargetRange1 As String
Dim LDestRange1 As String
LLoop = 10
While LLoop <= 1000
'Link column B to A
LTargetRange1 = "B" & CStr(LLoop)
LDestRange1 = "A" & CStr(LLoop)
If Not Intersect(Range(LTargetRange1), Target) Is Nothing Then
If Len(Range(LTargetRange1).Value) > 0 Then
Range(LDestRange1).Value = Date
Else
Range(LDestRange1).Value = Null
End If
End If
LLoop = LLoop + 1
Wend
End Sub

View Replies!   View Related
Pasting Data Debug Error On A Sheet With Borders
I have code that selects and copies data from one sheet onto another sheet. the sheet that is getting data copied too has borders defined. When i run the code i get a debug error. Here is the issue.... when i remove all the borders it works fine. I have tried everything i can think of to solve the problem but have had no luck. anybody have an idea what is causing this. i attached the workbook file so you can see what is going on.

View Replies!   View Related
Step Through & Debug VBA Macro Code
I don't understand the relationships that are happening and what the final value would be if for example the PT was Red. I'm confused and was curious how four lines could all equal different values(highlighted).

UpUserPaint = UCase(RegPaint.Value)
Dim icount As Integer
LenRegPaint = Len(RegPaint.Value)

For icount = 1 To LenRegPaint
ValPAint = ValPAint + Asc(Mid(UpUserPaint, icount, 1))
Next icount

If PTRed.Value Then
ColorCompare = Abs(Pallet * (ValPAint + PrdtSeed - LenRegPaint))
ColorCompare = Abs( Round(ColorCompare / PrdtSeed - 7227, 0))
ColorCompare = ColorCompare And 6215971
ColorCompare = ColorCompare Xor 6215971.............................

View Replies!   View Related
Remove References Programmatically & How To Prevent Debug Error
i m working on an excel 2007 workbook with ms project functionality. in order to be able to use ms project from within excel i m using early binding. for those who dont know what early binding is: http://www.dicks-clicks.com/excel/olBinding.htm

this works fine if the user has ms project installed on his/her pc.

if the user does not have ms project installed i remove the broken references. this works fine.

but my problem is that when i remove the reference to ms project, my vba project will not compile correctly. thus each time when a user opens the workbook the user gets a "compile error in hidden module" , since the functions of ms project are not available.

for example i get a compile error in the following source
Public Function getResID(ResName As String, ActiveProject As Project) As Integer
Dim res As Resource
For Each res In ActiveProject.Resources
If res.name = ResName Then
getResID = res.ID
Exit Function
End If
getResID = -1
Next
End Function
i just want to know what i can do to prevent the compile error? would the use of late binding remove the problem? actually i dont want to use late binding since my source code is already very complex and it would be a huge effort to change it.


View Replies!   View Related
OpenText Function In Macro Hangs Unless Stepping Through Code In Debug
We have had a macro running for a few years (Excel 2007 now, but started in 2003) that imports about 35 text files into separate sheets, creates a calculated SUM field for each sheet and copies that value to a title (or summary) sheet. We use this 2 to 4 times per year at inventory time, copying to a new file and deleting the old data before running the macro. The imported files initially create new workbooks, but the data is copied to the initial workbook into a distinct sheets for each file.

Recently (well, last August) this macro started hanging after importing (Workbooks.OpenText) a number of files, and not necessarily the same file every time (on repeated runs.) While trying to figure out the problem, I have now managed to get it to hang every time on the first file! However, if I am stepping through in the debugger it continues past the OpenText command and on F5:Run/Continue will then continue processing the rest of the files normally. If I delete the first file before running the macro, it then hangs on the second file instead.

Without debugging, the first file will import, display on-screen, and there it stops. If I put a break-point on the very next instruction after the import, that break-point is never reached. THINGS I'VE TRIED:.......

View Replies!   View Related
Function Macro Debug: Continue Onto The Do Loop At The Bottom That Does All The Work
I am having a problem with a custom funciton I am trying to create. It will exit after it is finished with the IF Then Else statement. I need it to continue onto the Do loop at the bottom that does all the work.

Function UPCECheck( num As String) As Long
Dim CheckNum As Long
Dim TempCheck As Long
Dim X As Long
Dim Holdtxt As Variant
UPCECheck = 0
CheckNum = 0
Debug.Print Len(num)
If Len(num) = 12 Then
Holdtxt = num
ElseIf Len(num) < 12 Then
Holdtxt = "000000000000" & num
Holdtxt = Val(Mid(Holdtxt, Len(holdtext) - 12, 12))
End If...................

View Replies!   View Related
One Cell Reading From Different Locations
the attached workbook, I am looking for M19, N19 & O19 to read from different locations depending on how many cells are called on when info is entered in P8.

View Replies!   View Related
Reading From Clipboard Before Pasting
Is it possible for VBA to read data from a clipboard so that it knows what sheet to paste the data to? Currently we run a financial tool and 2 reports are ran and I put in a bottom so users could easily just paste special values into the correct place. Sometimes the users forget if they copied the balance sheet data or income statement data and currently its not a big deal because there are no columns to the right of where it is pasting so it isn't screwing anything up and they just delete the data and paste it to the correct sheet.

I have thought of 2 approaches I am going to take, but started to wonder if one could read the data from the clipboard before the paste.

My 2 options would be:

Option 1. Paste data to newly created sheet and check if it is balance sheet or income statement and then move from newly created sheet to correct sheet and delete newly created sheet. The user wouldn't see any of this because I would disable screen updating.

Option 2. Learn how to use Undo within my VBA or keep the Undo cache with items in it as it typically clears when VBA is executed. That way if they paste it and it is wrong I can just undo the VBA paste.

Option 1 I am confident I can handle. Option 2 I can research and feel I could do, but if it comes a time when a sheet has data I do not want to paste over then this option is no good.

I would like to hear any comments or feedback on this and if it is possible to read data off the clipboard so it knows where to paste.


View Replies!   View Related
Reading Data In Each Row
I'm trying to write code that looks at the range W(rowid):Z(rowid) and lists each cell value in a listbox. The row id is coming from the listindex of combobox1. I know the rowid part is correct and working because other operations in my worksheet are using it fine. Here's what I've written so far:

With Worksheets("DATA")
For I = 0 To 4
ListBox3.AddItem .Range("W" + I & rowid)
Next I
End With


View Replies!   View Related
Reading Into Merged Cells
I have a table where sometimes cells are merged. To the right they are not merged, but I need to link to the value of the merged cell. How can I do it if I don't want to do it manually?

Example:
Say A1:A4 is merged, A5 is just normal. I want a formula using those values, say in B1:B5. Now just filling down the formula would reference A1, A2 and so forth. This is wrong.


View Replies!   View Related
Reading Text From Right To Left
I am using the find or search function but I need to read my text string from right to left (from the end of the string, instead of from the beggining). Is there a way to do this?


View Replies!   View Related
Reading From Drop Down Lists
I have a drop down list in my excel sheet that contains names of manufacturers. What i would like to do (using vba) is display some details of each manufacturer that will be copied from a different sheet.

So my question is, how can i read the string from the drop down list on one sheet and then copy a cell from another sheet.

View Replies!   View Related
Error When Reading Checkbox Value
I have a spreadsheet with about 200 lines or records and I have added a checkbox to the end of each record. I need to the code to check the checkbox on each line to make a decision on how to process the data, but I do not want to read in a True or False value for 200 check boxes in every step of the loop. I think I'm close but I can't get the following to work...

This is basically what I want:

For i = 1 to x Step 1

IF me.Shapes("Checkbox" & i).Value = True Then

'Perform Action

END IF

Next i
I get an error when I hit the IF me.Shapes..... line

"Object doesn't support this property or method."

View Replies!   View Related
Reading One Character Of Text
The following code reads text one character at a time, and each character is determined either to be a blank space or to be any other character. If it's determined to be any other character, then the character is added to the active cell. If it's determined to be a blank space, then the active cell becomes the cell one column over. The idea is to have different words written in columns next to each other.

The sample text file I'm reading from reads: "text file". The file has only those two words. One space between them. No space before the first word, and no space after the second word. The following code compiles and runs. BUT the result is that the word "text" is in column k, not A. And the word "file" is in column J, not b.

View Replies!   View Related
Reading In CSV Files
I'm using the following code to read in any number of CSV files into a single worksheet and concatenating them together

View Replies!   View Related
File Name Reading Through Macro
i am trying to read the file name in a specific folder through macro of my EXCEL application. i wondered that it is reading that file name in all Lower case.
Ex: the file name in the folder is "Ford of Pompano.xls" when i am reading that name from macro, it is giving me as "ford of pompano.xls". Do i need to change any default settings in EXCEL so that it can read the files names what ever is presend in the folder

View Replies!   View Related
Reading A Cells Value And As A Range
I'm trying to use the contents of a cell as a range in my code

Private Sub CommandButton3_Click()
Dim Target As Range
'the cell containing the contents i want
Range("P11").Select
Target = ActiveCell.Value
Range("P9").copy Target
End Sub

Does it read in the value as a string? If so how do i get around this?

View Replies!   View Related
Reading Consecutive Dates As One
how would you read consuctive dates as one

example

person is sick on 10/9/06 and on 10/10/06 . i want that to be read as one sick. now if the person is sick on 10/09/06 and then sick on 10/11/06 that would be read as 2 sicks.
what i need is the consective dates to read then one to read the dates that are not consectutive . giving a total for each one.

View Replies!   View Related
Reading Values Into An Array
I am have a 4x2 table and would like to use the values in the table in numerous procedures. i feel the best way do to this is to record the table as an array and be able to 'paste' or call the array anytime i need to. However, i am unable to read the table into an array.

1. how the array works,
2. how i can read values into an array and
3. how can i 'paste' or call the array at a later stage.

View Replies!   View Related
Time Format Not Reading Correctly
I have a time calculation in E2 that is a result of a number multiplied by at time the results are nearly always over 1,000 hrs
I have the below formula to display the results in the format of Hrs and Mins but it isn't displaying correctly ie the number in E2 is 1666:40 so it should read 1666 Hrs 40 Mins but its displaying as 10 Hrs 40 Mins

=HOUR(E2)&" Hr"&IF(HOUR(E2)1,"s "," ")&MINUTE(E2)&" Min"&IF(MINUTE(E2)1,"s "," ")

View Replies!   View Related
Lotus Notes Reading Stationery
I'm in the middle of creating an auto-mailer via Excel VBA (and got most of it working) but I've run across a small(ish) snag.

To save me about 3 hours work, I need to get the subject of the stationery, the "To" list, the "CC" list and the "BCC" list for every stationery (currently around 150).

Is there any way of getting VBA to read all the stationeries on our inbox (it's shared) and giving me the info I need?



View Replies!   View Related
Reading The Value Of The Option Button In The Frame
I have a sheet with some normal cells and then some MS Forms 2.0 frames with OptionButtons inside of them. If I have OptionButtons outside of the frame I know how to read their values, but how to do it when the control is in the frame?

I need to make a form on one sheet and then make as many copies of the sheet as needed, and finally I have a macro that copies the data from all forms to one sheet, so that each form represents one row. My main goal is to save that one sheet as a .csv-file and then import it to our CMR database.

I'm not very familiar with Excel forms. Should I take some other approach to this problem or should I continue like I'm doing? I would be almost ready with my workboot if I only could read the values of the optionbuttons inside the frame.

I have tried:
"If Sheets(i).FrameInstallationType.Controls.SL_STD_HD.Value = True Then"
and
"If Sheets(i).FrameInstallationType.SL_STD_HD.Value = True Then"
where "SL_STD_HD" is the name of the OptionButton, but apparently these both are wrong.


View Replies!   View Related
Reading A Column To Find More Than One Text
I have a spreadsheet and need column S to look in column J to find "AO" And "AI" once it finds this I need it to look at column P and post that data into column S. I have tried all sorts of IF's but I cannot seem to get it to work.

View Replies!   View Related
Formula Not Reading Date Format
I have a formula that reads the date in Colum B on 3 different sheets. The data on the seperate sheets is pulled from a SQL data base and formats the date wtih the time after it.

11-13-2006 10:47

My formula is looking at dates and subtracting them to give a total count of the occurance of the word "Yes" between dates.

My Formula:

=SUMPRODUCT(--('6200'!B2:B65000>=1/1/2006),--('6200'!B2:B65000

View Replies!   View Related
Reading Data From Workbooks Without Opening Them
I would like to read data from Worbooks through VBA code and UserForm without opening them. Is it possibe?

I know I can read data from Workbooks without opening them if I write this formula directly into a Worksheet cell:

='C:Documents and SettingsUserNameDocuments[FILE_NAME.xls]Sheet1'!$A$1

The problem is it won't work for my task. I just need to analyze with UserForm Controls and For Each loops through many cells and many big Workbooks.

If I try:

Private Sub UserForm_Initialize()
Dim aaa as String
aaa = 'C:Documents and SettingsUserNameDocuments[FILE_NAME.xls]Sheet1'!$A$1
End Sub

OR

Without opening the file if I try:

With Workbooks("C:Documents and SettingsjohnMy DocumentsmProjectfilename.xls").Worksheets("sheet1")
For Each thing ...
....
Next
End With

In both cases it gives me - Compile error: Syntax error, Expected expression.

I can also say that I definately don't mistake path, workbook's or worksheet's name
------------------------

If you're not quite sure that my explanations are clear I wrote some more below:

Reasons i want this:
It's just a lot of traffic/memory to Open/Activate/Close many Workbooks/Worksheets from 10MB files for just taking one or a few values to an UserForm :->

What I do:
I'm using several Workbooks to manage data. One of them consists of the Macro code (ThisWorkbook.) and the rest of the Workbooks are just tables with data I use. On UserForm with controls such as (ComboBoxes, CommandButtons, ListBoxes, Labels etc.) I find, visualize, compare and copy just the data I need from other Workbooks to ThisWorkbook(on a new worksheet) :->

The idea of my task is:
1. I have 10 files, each of them 10-20MB with data.
2. Now, I'm making 1 file with VBA code which analyse these 10 files and displays the information in it.

The general idea is that these 10 files are well structured but have many columns and rows and it's not convinient each time I need to find 3 numbers I need to open 10MB file, scroll 5 minutes, copy/paste the numbers, close the file...i just want an UserForm with several controls to do this job

Each of these 10MB files consist of let's say about 10000 rows and 100 columns. Between these rowns and columns there's data (or empty cell). Everytime I use one of these files I need different information. So, if I use the formula you gave me, I should copy exactly the same Workbooks in one file but with formulas.

With the macro code I just go through these rows and columns and find the specific data I need with For Each loops. Everytime I need different data. With 4 ComboBoxes I just select an year, a name, a code (by rows) and another code (by columns) and I get the needful info.

This info could be in one file, could be in many files, it could be in HZ45 cell (file 1), it could be in C5 cell (file 2), the next time I would need file1,2,3,4,5 with cells GF45, J7, KK88, DR8, Y90 etc. etc. etc. So, the problem is that every time I need different information from these 10MB files, each of them consist of 10000*100 cells*10 files = 10 0000 000 cells which I have to write the formula you gave me and it will become one 100mb excel file, which is no good.

View Replies!   View Related
Reading And Displaying Numbers From One Sheet To Another
I have a list of client names with their respective numbers on a sheet 1 and I have a list of jumbled client names with the names repeated in the next sheet 2. I would like to retrieve the client number from the data sheet and display the number for that respective client name in the second sheet

Sheet 1:

Client Number Client Name
1 David
2 Tom
3 Suzan
4 Richard

Sheet 2:
Client Name Client Number
Richard
Tom
David
Suzan
Richard
Tom
David

I want the program to retrieve the client number for the names from sheet 1 and display it accordingly in sheet 2. For eg:- it should retrieve Richard's client number as 4 from sheet 1 and display digit 4 next to richard's name in the client number column. I have attached the sample document.

View Replies!   View Related
Reading Non Numeric Text In A Cell
SUM(IF(FREQUENCY(E10:E29,E10:E29)>0,1)). this is the formula I currently use to read employee numbers and it works when we just use the number i.e. 011004. When we use the full employee number with alpha characters it does not work i.e. ASMO011004. I have used helper cells to do similar, but am not wanting to do this way for simplicity reasons.

View Replies!   View Related
Reading Binary File Bug
I am running into one of the strangest issues I have seen in a long time. I have a user defined type that I utilize in VB6 and write out to a binary file....

View Replies!   View Related
Reading A Cell To Copy Rows
1. Copy a certain amount of rows based on the number input at the top of the page.

i.e. you put in 12 and the macro will copy 12 rows to paste somewhere else.

2. Similarly, the same idea but instead of selecting rows i need it to drag a formula down to the relavent row number so all the copied data has a formula to match

View Replies!   View Related
Copyright © 2005-08 www.BigResource.com, All rights reserved