Assuming that you are using Excel, you can "link" cells with a simple formula. Let's say you have $100 in Sheet1!A1. If you enter this is in any cell on Sheet2, it will display $100: =Sheet1!A1 If you enter this, you will see $500: =5*Sheet1!A1
Assuming that you are using Excel, you can “link” cells with a simple formula.
Let’s say you have $100 in Sheet1!A1.
If you enter this is in any cell on Sheet2, it will display $100:
Try installing OpenOffice.org. It supports Microsoft Office files, including Microsoft Word, Excel, Powerpoint, etc. I recommend using it because it is easy to use and it is free.
Try installing OpenOffice.org. It supports Microsoft Office files, including Microsoft Word, Excel, Powerpoint, etc. I recommend using it because it is easy to use and it is free.
Thank you for reposting the code with the pre tags. That really helps.As far as your example data, your column letters don't appear to line up correctly, but based on your earlier posts, I'll assume that Column K contains the 443, 18, etc.Another posting tip:Since we can't see your workbook from wheRead more
Thank you for reposting the code with the pre tags. That really helps.
As far as your example data, your column letters don’t appear to line up correctly, but based on your earlier posts, I’ll assume that Column K contains the 443, 18, etc.
Another posting tip:
Since we can’t see your workbook from where we’re sitting, telling us that the VBA code is “coming up with an error” doesn’t give us a lot to work with. VBA can present all sorts of errors, including syntax errors, compile errors, run time errors, application errors and even the dreaded Fatal Error. (Ouch!)
It would help us help you if you told us what the error says and, if possible, which instruction caused the error.
Allow me to offer you this before I address your question:
If you are going to be using VBA, either writing your own code or just trying to figure out how code that you find on the web works, it helps to have some debugging techniques in your toolbox. I suggest that you practice the techniques found in the following tutorial. Not only can these techniques help you find errors in your own code, but they can be used to reverse engineer code that you find elsewhere. I am essentially self taught in VBA and much of what I have learned came from my application of these debugging techniques on working code, which helps me understand how and why the code does what it does.
OK, as for your current problem, let’s take a look at what you said:
“I cut and replaced “My Limit = 200″ in my code & pasted your If function there”
In the original code that you posted, the author has a created a variable and named it MyLimit. (S)he then sets that variable equal to 200. Once that is done, VBA will use the value 200 whenever it encounters the MyLimit variable in an instruction.
Further down in the code we see the instruction:
If .Value > MyLimit Then
What that instruction is doing is simply checking the cell currently referenced in the For-Next loop to see if it is greater than 200 (or whatever value the author chooses to assign to the MyLimit variable).
In your case, you don’t want the email to be triggered based a single value because you have multiple conditions that must be checked. Therefore, the “If” instruction that decides on whether the email is sent or not has to check for all of those conditions.
What this boils down to is that you put my suggested “If” instruction in the wrong place. What you should have tried is to replace this instruction:
If .Value > MyLimit Then
with
If .Value > 42 And FormulaCell.Offset(0, -4) = "Y" Or _
.Value > 14 And FormulaCell.Offset(0, -4) = "N" Then
You should also clean up the code by deleting any instructions and comments that include the MyValue variable since it is no longer being used.
Try this:Sub FormatTextBox() ActiveSheet.Shapes.Range(Array("TextBox1")).Select CharCount = Selection.Characters.Count With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, CharCount).Font.Fill .Visible = msoTrue .ForeColor.RGB = RGB(255, 0, 0) .Transparency = 0 .Solid End With End SubThisRead more
Try this:
Sub FormatTextBox()
ActiveSheet.Shapes.Range(Array("TextBox1")).Select
CharCount = Selection.Characters.Count
With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, CharCount).Font.Fill
.Visible = msoTrue
.ForeColor.RGB = RGB(255, 0, 0)
.Transparency = 0
.Solid
End With
End Sub
This code can probably be cleaned up to eliminate the “Selection” but since this is just a snippet of a longer macro, I’m not going to make any other changes.
Did you perhaps write the formula in Word? It's your smart quotes that Excel does not like. and why all the parenthesis, this works just as well =IF(ISBLANK(I6),"blank",((I6-I5)*2.3)+((J6-J5)*0.26))
Did you perhaps write the formula in Word?
It’s your smart quotes that Excel does not like.
and why all the parenthesis, this works just as well
word opened it but with some gobbledigook at top and bottom.That is probably the formatting instructions that ClarisWorks used,font type, line spacing, paragraph marks, etc. etc.If you need to actually convert the file, then it is my understanding that AbiWord (Freeware) has a plugin that will conveRead more
word opened it but with some gobbledigook at top and bottom.
That is probably the formatting instructions that ClarisWorks used, font type, line spacing, paragraph marks, etc. etc.
If you need to actually convert the file, then it is my understanding that AbiWord (Freeware) has a plugin that will convert.
Ugg. Without them saying so that link was for a later Operating System.Whatever, for XP it is "Control Panel > Add-Remove Programs" but it looks like you've already been there. The next step is uninstalling your profile. I think it is pretty well the same as the link I gave you but perhaps you'dRead more
Ugg. Without them saying so that link was for a later Operating System.
Whatever, for XP it is “Control Panel > Add-Remove Programs” but it looks like you’ve already been there. The next step is uninstalling your profile. I think it is pretty well the same as the link I gave you but perhaps you’d be best work with this one (which definitely states XP): http://kb.mozillazine.org/Profile_f…
In case that looks confusing, all you are really trying to do is follow this path down as far as opening the Application Data folder: C:\Documents and Settings\<your Windows user name>\Application Data\Thunderbird\Profiles\<Profile name> You will have to unhide files and folders to see to the Application Data folder (as given in the link). When you are in there look for a folder named Thunderbird and delete it. That should remove all the associated profile stuff that follows and do the trick.
Always pop back and let us know the outcome – thanks
Here is a VBA solution, you can paste this code into any sheets or module in Excel and run the code from Sub Start.What this does is, ask you for the folder in which all your files are, it will them rename then all in uppsercasenote that as you specified that you only want to rename the pdf documentRead more
Here is a VBA solution, you can paste this code into any sheets or module in Excel and run the code from Sub Start.
What this does is, ask you for the folder in which all your files are, it will them rename then all in uppsercase
note that as you specified that you only want to rename the pdf documents, this will only rename the pdf files.
Private Sub Start()
Dim RootFolder
RootFolder = BrowseForFolder
Dim MyObj As Object, MySource As Object, file As Variant
file = Dir(RootFolder & "")
While (file <> "")
If Right(file, 4) = ".pdf" Then
Name RootFolder & "" & file As UCase(RootFolder & "" & file)
End If
file = Dir()
Wend
End Sub
Function BrowseForFolder(Optional OpenAt As Variant) As Variant
'Function purpose: To Browser for a user selected folder.
'If the "OpenAt" path is provided, open the browser at that directory
'NOTE: If invalid, it will open at the Desktop level
Dim ShellApp As Object
'Create a file browser window at the default folder
Set ShellApp = CreateObject("Shell.Application"). _
BrowseForFolder(0, "Please choose a folder", 0, OpenAt)
'Set the folder to that selected. (On error in case cancelled)
On Error Resume Next
BrowseForFolder = ShellApp.self.Path
On Error GoTo 0
'Destroy the Shell Application
Set ShellApp = Nothing
'Check for invalid or non-entries and send to the Invalid error
'handler if found
'Valid selections can begin L: (where L is a letter) or
'\\ (as in \\servername\sharename. All others are invalid
Select Case Mid(BrowseForFolder, 2, 1)
Case Is = ":"
If Left(BrowseForFolder, 1) = ":" Then GoTo Invalid
Case Is = ""
If Not Left(BrowseForFolder, 1) = "" Then GoTo Invalid
Case Else
GoTo Invalid
End Select
Exit Function
Invalid:
'If it was determined that the selection was invalid, set to False
BrowseForFolder = False
End Function
Palm OS 4.1 Download
Buy it. Downloading it would be illegal unless you paid for it.
Buy it. Downloading it would be illegal unless you paid for it.
See lessTools To Repair A Corrupt Exchange Mailbox
Has the user tried opening Outlook to see if it might push the repair change to the Mailbox?Or look here: https://technet.microsoft.com/en-us...
Or look here: https://technet.microsoft.com/en-us…
Payroll Sheet How To Link To Payslip
Assuming that you are using Excel, you can "link" cells with a simple formula. Let's say you have $100 in Sheet1!A1. If you enter this is in any cell on Sheet2, it will display $100: =Sheet1!A1 If you enter this, you will see $500: =5*Sheet1!A1
Assuming that you are using Excel, you can “link” cells with a simple formula.
Let’s say you have $100 in Sheet1!A1.
If you enter this is in any cell on Sheet2, it will display $100:
=Sheet1!A1
If you enter this, you will see $500:
=5*Sheet1!A1
See lessMy Excel Says Fatal Error During Installation
Try installing OpenOffice.org. It supports Microsoft Office files, including Microsoft Word, Excel, Powerpoint, etc. I recommend using it because it is easy to use and it is free.
Try installing OpenOffice.org. It supports Microsoft Office files, including Microsoft Word, Excel, Powerpoint, etc. I recommend using it because it is easy to use and it is free.
See lessHow To Send An Email From Excel If Certain Conditions Are Me
Thank you for reposting the code with the pre tags. That really helps.As far as your example data, your column letters don't appear to line up correctly, but based on your earlier posts, I'll assume that Column K contains the 443, 18, etc.Another posting tip:Since we can't see your workbook from wheRead more
As far as your example data, your column letters don’t appear to line up correctly, but based on your earlier posts, I’ll assume that Column K contains the 443, 18, etc.
Another posting tip:
Since we can’t see your workbook from where we’re sitting, telling us that the VBA code is “coming up with an error” doesn’t give us a lot to work with. VBA can present all sorts of errors, including syntax errors, compile errors, run time errors, application errors and even the dreaded Fatal Error. (Ouch!)
It would help us help you if you told us what the error says and, if possible, which instruction caused the error.
Allow me to offer you this before I address your question:
If you are going to be using VBA, either writing your own code or just trying to figure out how code that you find on the web works, it helps to have some debugging techniques in your toolbox. I suggest that you practice the techniques found in the following tutorial. Not only can these techniques help you find errors in your own code, but they can be used to reverse engineer code that you find elsewhere. I am essentially self taught in VBA and much of what I have learned came from my application of these debugging techniques on working code, which helps me understand how and why the code does what it does.
https://www.computing.net/howtos/sh…
OK, as for your current problem, let’s take a look at what you said:
“I cut and replaced “My Limit = 200″ in my code & pasted your If function there”
In the original code that you posted, the author has a created a variable and named it MyLimit. (S)he then sets that variable equal to 200. Once that is done, VBA will use the value 200 whenever it encounters the MyLimit variable in an instruction.
Further down in the code we see the instruction:
What that instruction is doing is simply checking the cell currently referenced in the For-Next loop to see if it is greater than 200 (or whatever value the author chooses to assign to the MyLimit variable).
In your case, you don’t want the email to be triggered based a single value because you have multiple conditions that must be checked. Therefore, the “If” instruction that decides on whether the email is sent or not has to check for all of those conditions.
What this boils down to is that you put my suggested “If” instruction in the wrong place. What you should have tried is to replace this instruction:
with
If .Value > 42 And FormulaCell.Offset(0, -4) = "Y" Or _ .Value > 14 And FormulaCell.Offset(0, -4) = "N" ThenYou should also clean up the code by deleting any instructions and comments that include the MyValue variable since it is no longer being used.
Click Here Before Posting Data or VBA Code —> How To Post Data or Code.
Excel VBA To Format A Textbox
Try this:Sub FormatTextBox() ActiveSheet.Shapes.Range(Array("TextBox1")).Select CharCount = Selection.Characters.Count With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, CharCount).Font.Fill .Visible = msoTrue .ForeColor.RGB = RGB(255, 0, 0) .Transparency = 0 .Solid End With End SubThisRead more
Sub FormatTextBox() ActiveSheet.Shapes.Range(Array("TextBox1")).Select CharCount = Selection.Characters.Count With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, CharCount).Font.Fill .Visible = msoTrue .ForeColor.RGB = RGB(255, 0, 0) .Transparency = 0 .Solid End With End SubThis code can probably be cleaned up to eliminate the “Selection” but since this is just a snippet of a longer macro, I’m not going to make any other changes.
Click Here Before Posting Data or VBA Code —> How To Post Data or Code.
Excel Formula Parse Error
Did you perhaps write the formula in Word? It's your smart quotes that Excel does not like. and why all the parenthesis, this works just as well =IF(ISBLANK(I6),"blank",((I6-I5)*2.3)+((J6-J5)*0.26))
Did you perhaps write the formula in Word?
It’s your smart quotes that Excel does not like.
and why all the parenthesis, this works just as well
=IF(ISBLANK(I6),”blank”,((I6-I5)*2.3)+((J6-J5)*0.26))
See lessConvert Claris Works File .Cwk To Word For PC
word opened it but with some gobbledigook at top and bottom.That is probably the formatting instructions that ClarisWorks used,font type, line spacing, paragraph marks, etc. etc.If you need to actually convert the file, then it is my understanding that AbiWord (Freeware) has a plugin that will conveRead more
That is probably the formatting instructions that ClarisWorks used,
font type, line spacing, paragraph marks, etc. etc.
If you need to actually convert the file, then it is my understanding that
AbiWord (Freeware) has a plugin that will convert.
http://www.abisource.com/
http://www.abisource.com/wiki/Plugi…
MIKE
http://www.skeptic.com/
Completely Remove Thunderbird, All Its Components, And Email
Ugg. Without them saying so that link was for a later Operating System.Whatever, for XP it is "Control Panel > Add-Remove Programs" but it looks like you've already been there. The next step is uninstalling your profile. I think it is pretty well the same as the link I gave you but perhaps you'dRead more
Whatever, for XP it is “Control Panel > Add-Remove Programs” but it looks like you’ve already been there. The next step is uninstalling your profile. I think it is pretty well the same as the link I gave you but perhaps you’d be best work with this one (which definitely states XP):
http://kb.mozillazine.org/Profile_f…
In case that looks confusing, all you are really trying to do is follow this path down as far as opening the Application Data folder:
C:\Documents and Settings\<your Windows user name>\Application Data\Thunderbird\Profiles\<Profile name>
You will have to unhide files and folders to see to the Application Data folder (as given in the link). When you are in there look for a folder named Thunderbird and delete it. That should remove all the associated profile stuff that follows and do the trick.
Always pop back and let us know the outcome – thanks
message edited by Derek
Change All PDF Filename In Excel From Lowercase To UPPERCASE
Here is a VBA solution, you can paste this code into any sheets or module in Excel and run the code from Sub Start.What this does is, ask you for the folder in which all your files are, it will them rename then all in uppsercasenote that as you specified that you only want to rename the pdf documentRead more
What this does is, ask you for the folder in which all your files are, it will them rename then all in uppsercase
note that as you specified that you only want to rename the pdf documents, this will only rename the pdf files.
Private Sub Start() Dim RootFolder RootFolder = BrowseForFolder Dim MyObj As Object, MySource As Object, file As Variant file = Dir(RootFolder & "") While (file <> "") If Right(file, 4) = ".pdf" Then Name RootFolder & "" & file As UCase(RootFolder & "" & file) End If file = Dir() Wend End Sub Function BrowseForFolder(Optional OpenAt As Variant) As Variant 'Function purpose: To Browser for a user selected folder. 'If the "OpenAt" path is provided, open the browser at that directory 'NOTE: If invalid, it will open at the Desktop level Dim ShellApp As Object 'Create a file browser window at the default folder Set ShellApp = CreateObject("Shell.Application"). _ BrowseForFolder(0, "Please choose a folder", 0, OpenAt) 'Set the folder to that selected. (On error in case cancelled) On Error Resume Next BrowseForFolder = ShellApp.self.Path On Error GoTo 0 'Destroy the Shell Application Set ShellApp = Nothing 'Check for invalid or non-entries and send to the Invalid error 'handler if found 'Valid selections can begin L: (where L is a letter) or '\\ (as in \\servername\sharename. All others are invalid Select Case Mid(BrowseForFolder, 2, 1) Case Is = ":" If Left(BrowseForFolder, 1) = ":" Then GoTo Invalid Case Is = "" If Not Left(BrowseForFolder, 1) = "" Then GoTo Invalid Case Else GoTo Invalid End Select Exit Function Invalid: 'If it was determined that the selection was invalid, set to False BrowseForFolder = False End Functionmessage edited by AlwaysWillingToLearn