Add Stipulation That Specific Cell Must Not Be Blank To Existing Code

Oct 21, 2013

I have a code now that in excel, when the button is clicked, will put file into a new email and format the email.

What I have been trying to do, is make it so that if Cell C10 is blank, you get a prompt telling you it must be filled out before you can proceed with the submission.

Here is the code now:

Sub SendTimeCard()
On Error GoTo err_handler
Dim OutApp As Object
Dim OutMail As Object

Dim subject As String
Dim body As String
' Be sure the workbook is saved first
ThisWorkbook.Save

[Code] ........

View 2 Replies


ADVERTISEMENT

Making Existing Code Work For Specific Worksheet/s

May 30, 2013

I would like the following code to be run for all those sheet/s that has a name = "single" (Not case sensitive neither an exact match) of my active workbook.

Code:
Sub UIUIUI()
Dim LR As Long, i As Long
LR = Range("I" & Rows.Count).End(xlUp).Row
For i = 1 To LR
With Range("I" & i)
If .Offset(, -1).Value = 1 Then .Value = .Value & "-"
End With
Next i
End Sub

View 3 Replies View Related

Enhance Existing Code To Hide Rows Between Specific Text

Mar 24, 2014

I have a workbook which contains 8 worksheets. I want to able to run a macro that looks for specific words in column A of each worksheet and hides any rows in between the specified words. The following code works except if a worksheet does not contain the specified words. Is there a better way to accomplish this?

Attached is an example of the spreadsheet. The code below works just fine on the tabs highlighted in green, but halts on the tab highlighted in red. The tab highlighted in yellow is showing you the rows I need to hide.

Example.xlsx‎

View 5 Replies View Related

Ranking Two Columns Plus A Third (stipulation)

Jan 20, 2014

Running a NFL playoff pool and just actually used a previous post to finally correct my Rank formula which was great.

Basically I want to rank based on the POINTS column, and then based on the WINS column, and then based on two other things. The final tiebreakers are as follows.

1. Most points

2. Most wins

3. Picking the Super Bowl game correctly

4. Closest to the total points of the Super Bowl game (everyone has to pick what they think the total score of the game will be).

This is the formula used to Rank Points and Wins:

=RANK(M8,$M$8:$M$190)+SUMPRODUCT(--($M$8:$M$190=$M8),--(N8<$N$8:$N$190))

Can I add IF Statements to RANK formulas?

View 1 Replies View Related

VBA - Delete Row Where Specific Cell Is Blank

Aug 30, 2012

I have written such loop which I want to delete entire row when a given cell is empty:

Code:
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
For Counter = lastrow To 2 Step -1
If Cells(Counter, 6).Value = "" Then
Selection.Rows(Counter).EntireRow.Delete
End If
Next

It works not the way I want. It has ommited some blank rows and also removes 5th row everytime I run it.

View 3 Replies View Related

Populate First Blank Cell In Row With Specific Text Value?

May 28, 2014

I am trying to use VBA to populate the first blank cell in row 6 with the word "Short"

I keep getting sub or function not defined and I am sure its because I am trying to Frankenstein some code together to get it to work. So far everything works as I need but this last step.

View 1 Replies View Related

Entering Data In 1st Blank Cell In Specific Row

Mar 5, 2014

I have created a form where a date and remark is added every few days. I am using Phone Number as the base of VLookup. I want a code so that the date and remark which is entered in a Text Box, is stored in the first available blank cell pertaining to that employee. I want the first date and remark to be under "Date 1" and "Remark 1".

Thereafter, if another remark is subsequently added for that employee, the form would ask to enter his phone number to identify which employee the remark pertains to. Then the Text Box where remark is entered should be stored under "Remark 1" if there has been no remark before, "Remark 2" if "Remark 1" already exists, "Remark 3" if "Remark 2" already exists and so on.

I do not want to enter it in a new row. I want to enter the remark in the next blank cell of the row which matches the employee Phone Number.

Untitled.png

View 5 Replies View Related

How To Insert Blank Row Below A Cell Containing Specific Text

Oct 19, 2009

I was wondering if someone might be able to assist me with using VB to insert a new row below a cell containing specific text.

For example:


- All of my data is in column A

-I want to scan all of column A, and if there is a cell that contains "ACHCAMERIGROUP M", then I want a blank row inserted below it. If column A does NOT contain that text....do nothing.

View 5 Replies View Related

How To Merge Two Rows If Specific Cell Is Blank

Apr 4, 2012

I'm trying to figure out the if conditions for this relatively simple problem. Basically, this is an import from a word document where the table strays onto a new page. I want to try and repair this with a bit of VBA.

This is what it looks like:

1: cell 1 |the content should all be in this cell
2: |but the import sometimes splits it into two
3: cell 2 |

Basically if and only if cell Ax is blank (in this example A2), then I want the rows to merge each cell and repair the table.

View 1 Replies View Related

Hide Columns If Cell In Specific Row Is Blank

Jan 19, 2007

I have a row in a table from columns C to CZ. All the cells in the row contain a formula, between 1 and 204 cells in the row will have a value (i.e. will not be blank).

The cells with a value will start at column C and may or may not have a blank cell before no more values and blank cells to the end (Col GZ).

Example:

C D E F G H I J K >..........................GZ

23 34 67 74 2 34 6 2 56 all blank ("") to end

or:

C D E F G H I J K >..........................GZ

23 34 67 "" "" 34 6 all blank ("") to end

I need to hide the entire columns when the cells in this row are blank but NOT if the blank cell has valued cells after it (i.e. do not hide columns F and G in the second example.

I can do this by looping back from col GZ and hiding the columns one at a time, which is very slow. I am stuck on the code to select all the relavent columns and hide together.

View 4 Replies View Related

Excel Opens Existing Document Not Blank One

Mar 22, 2013

When I click the general Excel program icon that use to just open a blank excel workbook, it now always opens the same existing file (apples.xls) If I am clicking on a different existing file (pears.xls), excel opens pears.xls and apples.xls.

View 4 Replies View Related

Adding To Existing Formula If Cells Are Blank

Mar 21, 2013

I run the following formula down a column of records in row AR

=IF(COUNTIF(lookup!A:A,N2)>0, "Exclude", "Not In Lookup")

I want to add to this formula an additional function that if any cells in column A1 are blank, then do not perform the remainder of the equation.

View 1 Replies View Related

Putting Specific Value In Blank Cells In Same Row Based On Value In 1st Cell?

Jul 18, 2013

i am trying to Put a specific value i,e "NO Deliveries" in blank Cells in the same row based on value in 1st cell of the Row which has a fixed value . note:the columns and rows are dynamic for example: I want to put the value "no Deliveries" in cell C because its blank.

A B C D

% of Availability
0.00%

80.00%

View 9 Replies View Related

Excluding Rows Containing A Specific Blank Cell From Logic

May 1, 2006

how to exclude a blanck cell from logic?

I have tried what you see below but neither works as desired.

If Not vData(n, 9) = 0 Then

If Not vData(n, 9)Is null Then

have corrected code error

View 9 Replies View Related

Inserting Entire Blank Columns In Pre-existing Worksheets

Jul 7, 2007

firstly i am cross-posting this topic so here is the URL to the same thread in a different forum.

[url]

whats up everybody? i have to use two excel worksheets that someone else already created to make CSV (comma seperated value) files. these CSV files are to be dumped into a database. the problem is that the table has more fields than the spreadsheet does (the spreadsheet has 3 fields - network, mask, size - and the table has 10 fields). i can insert one entire column before (to the left of) network (for the ID field in the table) without a problem, but when i try to insert entire blank columns after size (to the right of the pre-existing columns) it only makes columns for the first 14 rows. i know this because when i save it as a CSV file there are only 6 extra commas for the first 14 rows. is there a way to insert an entire blank column for the entire spreadsheet (as in all the way to the bottom)? i dont want to have to manually type in all those commas. i am using excel 2002.

View 9 Replies View Related

Trying To Import Specific Data From A Separate Sheet To Add To An Existing Table

Apr 25, 2006

I'm trying to set up a macro which will import data from one worksheet to a master sheet. I need it to copy the information into specific columns but not overwrite any existing information which is already in the Master Sheet, but I don't even know where to begin.

Just so you're clear on exactly what it is I'm trying to do... I have a Master Sheet which lists all of our suppliers prices, margins etc etc... However, when we use a new supplier we send them a greatly condensed version of the Master Sheet - We call it the Supplier Sheet (no big surprises there)!

When the supplier sends it back to me I have to type it all out manually which is kinda time consuming. I'd really like to set up a "push button" system which allows me to simply drag the Supplier Sheet into the workbook, add the info into the Master Sheet, then be able to delete the now useless Supplier Sheet.

(I have attached a test copy of the file - all of the columns in blue are the ones which need the data adding to).

View 6 Replies View Related

Code To Go To The First Blank Cell In Column A

Jun 10, 2009

Here's what I tried using macro recorder...

View 4 Replies View Related

Vba Code For Ending A Sub When There Is A Blank Cell

Feb 17, 2007

I am working on code to detect whether a cell contains an even or an odd number in it. I can do this when I know that the numbers I want to evaluate are in cells A1 trough A10 but the next part of the code is for when we do not know how many entries there are and we have to evaluate until we come across an empty cell and then stop.

View 2 Replies View Related

Can I Change A Setting Somewhere To Make Close Its Default Blank Workbook When I Open An Existing One

Feb 9, 2007

I have Excel 2002. If I start the program it opens with a blank workbook, called "Book 1".

If I then open an existing workbook, I have two Excel buttons in the Windows taskbar: the one I just opened, and the blank one titled Book 1.

At work I have Excel 2003. The blank "Book 1" is also there when I start the program, but if I then open an existing workbook, the Book 1 goes away. I like this way better.

My question is: Is this just the way versions 2002 vs. 2003 work, or can I change a setting somewhere to make Excel 2002 close its default blank workbook when I open an existing one?

View 9 Replies View Related

Trying To Combine Existing Code

Mar 27, 2009

I am trying to combine the 'Mail Range' from this code http://www.rondebruin.nl/mail/folder2/mail4.htm with the 'Mail to address in A1' from this code http://www.rondebruin.nl/mail/folder2/mail5.htm and can't make it work. Maybe this is the wrong tactic to take but I have very little knowledge about writing my own code. The ideal solution would make a copy of a a specific range of cells from a specific sheet, mail it to a recipiant (could change based on what is entered in the field) and delete the copy. I will try to attach an example next week.

View 4 Replies View Related

Putting Input Box Into Existing Code

Jan 22, 2009

On the "If not Isempty" line, I am trying to input a box prompt. Instead of standardizing this macro, I want the user to be able to select a dollar amount to search and place on sheet3. Right now it works fine using 1.29 as the amount. However, I have other stores where this dollar amount is different, so I want the store managers to be able to choose an amount to search, for example 1.39, 2.99 etc...

View 2 Replies View Related

Adding Second Range To Existing VBA Code?

Nov 13, 2011

adding an second range (J1089:AI1147) to the follwing code.

Code:
Sub Clear_Range()
Application.EnableEvents = False
With Range("H3:AL1058")

[Code]....

View 2 Replies View Related

Add Date Last Modified To Existing VBA Code

Feb 10, 2014

I copied this snippet from the net and it has been working like a charm. I would like to add DateLastModified to it, but I can't get it to work, I'm still kind of new to more complex VBA codes. Here is the code...

Code:
Private Sub CommandButton1_Click()

Dim cell As Range
Dim selcell As Range
Dim Value As String
Dim Folder As Variant
Dim a As Long

ReDim Folders(0)

Set cell = Range("B8")

[Code] .........

View 7 Replies View Related

Inserting VLOOKUP CODE Into A SPECIFIC Cell

Jun 7, 2006

i have this super huge worksheet im working with and im trying to insert a vlookup forumla at the first blank cell at the end of each column. for some reason when i tried:

Range("B" & lastrowB + 1).FormulaR1C1 = "test"

it worked but.. when i tried

Range("B" & lastrowB + 1).FormulaR1C1 = "=VLOOKUP(A2435,[tmp.xls]vRptMOMarkToHedgeFacilities!$A:$BF,7,0)"

it didn't work. giving me an error on that line stating: Run-time error '1004': Application-defined or object-defined error.

View 6 Replies View Related

Condense Code To Make More Efficient And Run Until Blank Cell

Apr 10, 2014

Any way of shortening the attached code. The first part 'Sub Loop1()' works great but I can't figure out how to shorten the second part. As you can see the distance between columns is always consistent i.e. add 5 columns to find the next outcome to work out the next result. Ideally I wanted to somehow loop through the next 5 columns again and again until the cell is blank.

[Code] ......

View 2 Replies View Related

Macro Code To Find Blank Cell In Column

May 30, 2008

Short and simple. What is the quickest, easiest & most efficient way to find the first blank cell within a column using VBA?

View 9 Replies View Related

Code To Use Existing IE Tab To Pass Different Queries On Google

Jun 20, 2013

I need a code to use existing IE tab to pass different queries on google search.

For example:- If active cell contains "manoj Kumar" then macro will search "manoj Kumar" on google and if i select another cell then code will pass the another google search query on the same active IE window(It will not open new window or new tab).

View 4 Replies View Related

Debuggin The Existing Code To Copy/paste

Jul 11, 2007

I use for another template and it works fine. Only change I would like to make is the column headers starts in Row 4. Col B. Some how this is not working for me.

Sub ITD_REV()

Application.ScreenUpdating = False

With Sheets("Data").Rows("1:1")
Set c = .Find("CONTRACT #", LookIn:=xlValues)
If Not c Is Nothing Then
FirstAddress = c.Address
Do
c.EntireColumn.Copy
Sheets("Test1").Select
Range("B3").Insert shift:=xlRight
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address FirstAddress
End If
End With
End Sub

Again...incase what I said does not make sense: I want to copy certain columns with fixed header names, e.g. "CONTRACT #" into another sheet name "Test1" and paste starting into cell B3. Another column would be "Contract Name" and so on. Also, these col header names may not be in order. In "Data" sheet, col header names starts in row 4.

View 9 Replies View Related

Automatic Update In Other Sheets: Need Some Changes To The Existing Code

Aug 29, 2008

I have already got an anwer for this long back from this site. The code was writted by Mr. Krishnakumar
the thread is here :[url]

i need some changes to be made in this code. The existing code creates and updates the details in the sheets automatically from the master data. I just need the sum of Column I in all the sheets after the last row of Column I.

selecting all the sheets and typing the formula in I column is not possible because, the last row in Column I is different in all the sheets.
In sheet 1, the last row of Column I is Row 15, in sheet 2 Row150 is the last row.
I guess something could be done in macros.

follwing is the existing
Sub TestIt()
Dim sWS As Worksheet
Dim Sellers As Range, Seller As Range
Dim lRow As Long, fRow As Integer
Dim CopyRng As Range, ws As Worksheet

View 9 Replies View Related

Macro Code To Add More Rows To Existing Chart

Jun 17, 2008

I have managed to create something similar to what i am working for using an example from Lacher and Gant Charts. i am now stuck as I can enter more than 40 status as it then gives me an error. The following is the code: Can any1 highlight where i need to make any changes to stop the error from occuring:

Option Explicit
Sub CreateTimeChartData()
Dim vTimeData As Variant
Dim i As Integer
Dim sRoom As String
Dim vLastEndTime As Variant
Dim oSeries As Series
' set up
Application. ScreenUpdating = False
Application.DisplayAlerts = False
' create chart data worksheet
With Worksheets("TimeData"). Range("TimeList"). CurrentRegion
.Sort Key1:="Room", Key2:="Start Time", Header:=xlYes
vTimeData = .Value
Worksheets.Add
On Error Resume Next
Worksheets("ChartData").Delete..........................

View 3 Replies View Related







Copyrights 2005-15 www.BigResource.com, All rights reserved