Send Data From Input Box To Another Worksheet

Aug 31, 2008

I have created a form for my work. And I have input boxes for users to add data that I would like to get stored in another worksheet. What is the vba code to send data for an input box to another worksheet at the bottommost empty row; first column.

Private Sub cmdAddData_Click()

' Collect user name, find the space between first and last names, and separate the names.
UserName = InputBox("Enter the Program Name.", "Program Name")
spaceLoc = InStr(1, UserName, " ")
firstName = Left(UserName, spaceLoc - 1)

View 9 Replies


Send Data From Userform To Worksheet AND Send Userform Fields In Email?

Jul 12, 2014

I have used a database template from this site and changed it to suit my needs but I have a bit of a problem with some of the code. I know how to update the worksheet with the relevant userform text fields and in another project I did I have successfully sent userform text fields in the body of an email.

For this project I want to update the worksheet AND send an email at the same time. However, using the two pieces of code together is causing an error that I can't seem to solve (using my very limited vba knowledge!). The code I am working on is below and I have highlighted the line that is getting the error message. C

Private Sub cmdSubmit_Click() 'Submit new record
Dim ws As Worksheet, lRow As Long, Str As String [code]....

View 1 Replies View Related

Code To Auto Input Worksheet Name From Data Copied From That Worksheet

Feb 23, 2014

I am copying data from worksheet "Microsoft" to another workbook and paste in sheet1, i want the cell G1 to auto input the worksheet name "Microsoft" where i copy the data from,

How to have G1 show the worksheet name after i copy and paste the data from worksheet name "Microsoft".

View 6 Replies View Related

Using A Cell On Another Worksheet As Input For Data Validation

Oct 13, 2008

Situation: I have an Excel file with multiple worksheets. Each of these worksheets contain the same rules for data validation in a certain column (G).

Problem: If I want to add an item to the data validation lists I have to edit every single worksheet. I've tried making a seperate worksheet containing data validation items and using that as the source for the data validation rule, but Excel doesn't allow me to switch worksheets while defining the source.

In other words, I want to manage my data validation rules of multiple columns in multiple worksheets in one central location.

View 4 Replies View Related

Convert The Data By Input And Categorize Into Month In Another Worksheet

Nov 16, 2008

am currently a QE using the following data for my report generation:
Date - Week - #Inspected - #Failed
Want to pull data into ANOTHER WORKSHEET from this one wherein the format will be :

Month - #Inspected - #Failed

Indirectly want Excel to directly convert the data by input and categorize into Month in another worksheet (will be linked and would be great if according to the date it could calculate the week as well) if somebody inputs defects by date it should automatically cumulate into respective month.

View 7 Replies View Related

VBA Code To Copy Data From Text Box And Input Into A Cell In Another Worksheet

Mar 24, 2009

This is probably far easier then I am making it but I need to take the information that is in a textbox created through the control toolbox and copy and paste that information into a cell on different tab in the workbook. I have tried the infamous google and haven't been able to find much. The excel books that I have don't really touch on the control toolbox functions.

View 2 Replies View Related

Return Cell Data From List When Variable Input In Second Worksheet

Nov 25, 2013

I want to return the data from a list in a cell on worksheet1 if I input a variable on worksheet2. I need to avoid VBA and pivot tables.

Example, if I put "Expense" in the input cell on worksheet2, I want to return a list of each row that has "Expense" in it on worksheet1:

Worksheet 1 (ColumnA/ColumnB):


Worksheet 2 required output (no row gaps or spaces):

Input cell "Expense" - in A1

List required (A3:B5):


View 9 Replies View Related

Send Worksheet As Attachment

Mar 30, 2009

I have a macro which copies worksheets from the current workbook and pastes into different csv files. I want to add into this macro after copying and pasting into the csv a popup box/form which asks the user "Would you like to e-mail to shops/teletext?". This box/form would have a Yes and No button.

If they press yes then the macro will continue and select worksheet 'selections' and send to recipients as attachment. If possible i would also like to automatically fill in the 'to' box in the new e-mail as these addresses will be the same three addresses each time. If they press 'No' then the macro would just carry on to the next point.

View 4 Replies View Related

Send A .PDF Of 1 Worksheet Via Outlook

Aug 14, 2009

Im searching for a way to send a .PDF of 1 worksheet via outlook. I have seached the forum, and have tried to follow Ron De Bruin's web page on how to do this but fall short. Im currently using his code to send the excel sheet.

View 3 Replies View Related

Send Message On Worksheet Opening

Dec 12, 2007

I wish to send a message when a worksheet is manually opened, but not when it is activated from within VBA.

The following code does not work, and I am open to suggestions

Private Sub Worksheet_Open() ....

View 9 Replies View Related

Send Userform Entries To Separate Worksheet?

Jul 1, 2013

I need the information that is entered in a userform to be sent to a separate worksheet. Each time a user fills out the form, I would like the information to be documented on the next completely open row (ex. first form goes in row 2 (column headings are in row 1), second form goes in row 3, etc.). I don't know a ton when it comes to VBA, but I believe I have the code figured out to search for the next open row. Column A will always have data in it.:

dim currentrow as range
set currentrow=Range("A1").end(xldown).offset(1,0).entirerow)

What I can't figure out is how to insert the information to the correct columns. Each column has a header to it, and I would like the data from the userform to be put in the relevant column each time it is filled out.

For example, if column A's header was "First Name" and columm B's header was "Last Name", each time the form is filled out, I would like the first and last name (which was entered in the form) to be inserted into those columns (with each form entry on a separate row).

I think there might be a way to use the intersect method to find the row/column combination I'm looking for, but I'm not exactly sure how to do it. Using the first name example from above, it would basically look for the intersection of "currentrow" and column A, and insert the value that is entered into the userform.

View 2 Replies View Related

Extension And Version: Send Each Worksheet To An Individual For Review

Jul 23, 2009

The other day, someone sent me a spreadsheet with multiple worksheets. I needed to be able to send each worksheet to an individual for review, and each recipient did not need to see everyone else's sheet. So I found a tip on-line that included the following VBA code to save the sheets to separate Excel files. Life was good until those who didn't have Office 2007 could not open their sheets, even though the original file had been saved with the Excel 97-2003 option. They had first received the message, "The file you are trying to open, "<filename>" is in a different format than specified by the file extension. Verify that the file is not corrupted and is from a trusted source before opening the file. Do you want to open the file now?" When they said yes, all they saw was a scramble of machine code. I thought that maybe there was a special extension for Excel 97-2003 files, but when I looked it up in a book I have, it just said the extension was .xls, which is what the code used. Is there other formating that needed to be saved?

Sub Copy_Sheets_to_Separate_Workbooks()
Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
If ws.Visible = True Then
With ActiveWorkbook
.SaveAs "C:Documents and Settingsruce.vanbibberMy DocumentsTITLE I - M A I NTitle I BudgetsAllocation Budgets - Schoolwide - FY 10" & _
InputBox("Please enter the Save As Name...", "Worksheet Save As") & ".xls"
End With
End If
Next ws
End Sub

View 5 Replies View Related

Send WorkSHEET As Email Attachment - LOTUS Notes

Mar 2, 2009

putting a macro button on an individual worksheet so the user can click a big easy button and a new email will pop up in Lotus notes with the worksheet attached for them to input the address and then send the worksheet..

I prefer to:

Send individual worksheets only

The ability to input the email address is the new composition email in LOTUS Notes

View 9 Replies View Related

VBA Send Mail With Lotus Notes Attach ONLY With Worksheet Not Workbook

Apr 22, 2013

I am using a version of the following code that sends a mail using Lotus notes and attaches the Workbook - I am wondering if there is anyway I can make it attach the WORKSHEET instead ?

'The procedure for executing the main task:
Sub SendWithLotus()
Dim noSession As Object, noDatabase As Object, noDocument As Object
Dim obAttachment As Object, EmbedObject As Object
Dim stSubject As Variant, stAttachment As String
Dim vaRecipient As Variant, vaMsg As Variant


View 1 Replies View Related

Enable Macro Automatically - Then Send Send Email

Sep 7, 2008

I used Scheduled Task to set up my spreadsheet to open daily. I have the code with assistance to pull out the due date items and place them into an email.

But cannot figure out the code that will automatically "enabling macro" once Scheduled Task opens the spreadsheet?

Then once the macro runs, the email with the due dates, how can this auto send without user interaction?
(currently I would have to hit send)

I am trying to make the process totally automated to open the spreadsheet at a certain time, send the email with due dates and close the spreadsheet.

Following code in ThisWorkbook--

Private Sub Workbook_Open()
End Sub
Code in Module1--

Option Explicit
Sub Check_Date_Send_Mail()
Dim wbBook As Workbook
Dim wsSheet As Worksheet
Dim rnDate As Range, rnValue As Range
Dim stAddress As String, stMsg As String
Dim stRecipient As String, stSubject As String
Dim stPost As String
Set wbBook = ThisWorkbook
Set wsSheet = wbBook.Worksheets("Sheet1")
With wsSheet
Set rnDate = .Range("d2:t23")
End With

View 9 Replies View Related

Send Keys Doesn't Send Command

May 16, 2007

We use proprietary software to connect to an oracle database. The proprietary software has its own login form. I connect to 4 or 5 different databases randomly throughout the day. I wrote a script that I thought would alleviate my login woes but it doesn't work. The login, password, and database info get sent to the form but they all end up on the login line. Instead of the tab character being sent, I get a Beep generated for each line of code that is supposed to send the tab key code. My code is below and is stored in a *.vbs file.

setwshShell =wScript.CreateObject("WScript.Shell")
wshShell.AppActivate "Title Of My Login Form"
wScript.Sleep 100
wshShell.SendKeys "My Login Name"
wScript.Sleep 500
wshShell.SendKeys "{TAB}"
wScript.Sleep 500
wshShell.SendKeys "My Password"
wScript.Sleep 500
wshShell.SendKeys "{TAB}"
wScript.Sleep 500
wshShell.SendKeys "Name of My Database"
wScript.Sleep 500
wshShell.SendKeys "{TAB}"
wScript.Sleep 500
wshShell.SendKeys "~"

View 8 Replies View Related

Press Button To Open Form For Data Entry And Then Send Matching Data To Another Sheet

May 5, 2009

Now that the calculations are working, with the press of a button, I need to be able to select a range of dates and copy all lines within the range to a seperate sheet with the desired name under the same headings they currently reside under. I have included some modified code that is being used in another spreadsheet that was created for me, but I do not pretent to understand all of it and I no longer work with the creator of the spreadsheet. How do I use a button to open the form for date selections and entering the name of the new sheet, and then use the start button on the form to begin the matching and copying to a new sheet? If there is an easier way I am all for that too.

View 14 Replies View Related

Send Data Between Other Office Programs

Jun 28, 2007

Is it possible to send the contents of a cell to outlook via VBA trigger?

View 14 Replies View Related

VBA Code To Send Data To Different Sheets

Jan 13, 2010

creating workbook with macros or vba code. I have a workbook that has several sheets.

The first sheet (All Students) has a table / range of student information. There are several other sheets one for each teacher, that would contain the student information from first sheet for that teacher. Teacher name is in one of the columns on the first sheet(All Students). What I'm looking to to do is create a workbook that would contain all Students in first tab/sheet, data will be entered into first sheet by teachers.

When I click on any of the teacher tabs excel should get data from (All Students) tab / sheet and populate teacher sheet with data for that teacher based on teacher column in All Students. Any suggestion on how to create this workbook. I've attached a sample workbook with data. I would like to make sure data refreshes when I click on teacher sheet.

View 12 Replies View Related

Send Data From Userform To Two Different Sheets

Jun 17, 2006

I have a userform that enters data into a hidden sheet, and it works fine so far, but now one of my bosses would like another sheet that contains some lookup data for the form to be updated every time the form is used. I'm thinking I can handle the data in the lookup sheet automatically deleting the older data but I can't figure out how to send the data to two different sheets when the form is completed.

Private Sub CmdOK_Click()
If MsgBox("Are You Sure This Form Is Complete?", vbYesNo) = vbNo Then Exit Sub
Unload Me
ActiveWorkbook.Sheets("Plant Production").Activate
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True
ActiveCell.Value = txtDate.Value
ActiveCell.Offset(0, 51) = txtTime.Value
ActiveCell.Offset(0, 1) = cmbPlant.Value..........................

View 5 Replies View Related

Cancel OR Loop Input On Worksheet Name

Jan 27, 2014

I am trying create a macro which asks for the Sheet name as an input for a Sub. I've gotten it to work but there is just one problem: The Cancel button does not work on the MsgBox. Everything else works just as I want to: it shows a dialog box to enter a name for the worksheet and if the worksheet does not exist, it loops and shows a message saying that it does not exist.

However, the cancel button does the same thing as entering nothing in the box and it does not end the process. I would want it so that the cancel button kills the process. Here is the code:

Option Explicit
Function WorksheetExists(WSName As String) As Boolean
On Error Resume Next
WorksheetExists = Worksheets(WSName).Name = WSName
On Error GoTo 0

[Code] .......

View 2 Replies View Related

Send Each Individual Person Their Own Data - Create A New Tab

Aug 7, 2014

I have a list of data which i need to send to individuals. I can sort the data by person's name.

I need to send each individual person their own data. Instead of copying and pasting each person's data into a new tab for everyone, is there a quick way in excel that for each change in person's name (Column A), that it creates a new tab with all the data?

View 5 Replies View Related

Command Button To Send Data To Another Workbook

Feb 22, 2014

The data in 4 specific cells in C:UsersOfficeDropboxWB1 needs to (upon clicking command button) be copied to the next available blank cell in 4 specefic rows in C:usersOfficeDropboxWB2.

WB1 Specific Cells List

Data from these cells are to be copied to the rows listed below respectively.

WB2 Destination Rows (Next available blank row)
Sheet1! Row B
Sheet1! Row D
Sheet1! Row F
Sheet1! Row J

I gather from reading other posts that sending this data within the same WB is fairly easy, is it easy to do between WB's though as i must have seperate WB's?

View 1 Replies View Related

If Multiple Criteria Match Send Data

Feb 22, 2014

I have two different workbooks. In workbook1 I have a table like below:



What I want to do is to create a drop down menu in workbook2 where I can select a name
and then see below what time that person is working each day of the week.

View 1 Replies View Related

Automatically Send Emails Using Excel Data

Sep 19, 2008

I have a spreadsheet showing MOT details of vehicles. The details include 'Customer', Vehicle Reg', 'MOT due date', 'email address'.

Basically.. I want a method that will check whether or not the MOT due date is in 28 days time (so exactly 28 days from now).. and if it is.. then I want to use the email address that is on the same row to send the person a standard notification.. and if possible.. include details of the Vehicle Reg.

View 9 Replies View Related

Send Mail On Last Day Of Every Month If Last Day Is Saturday / Sunday Send Mail On Thursday

Mar 11, 2014

I am trying to write a macro to send mail on every Friday and also on last day of every month. If the last day of the month falls on Saturday or Sunday then the macro should mail on Friday. I have written a separate macro to send a mail. I have also written to check day(ie Monday, Tuesday etc) of today. If today is Friday or month end i can send mail. I dont know how to tell the macro to send mail on friday if the month last date is saturday or sunday.

Sub done()
Dim Dat As Date, x As Integer, y As Date, sorry As String
Dim str As String
sorry = "Today is not friday or month end. So i cannot send mails"
str = WeekdayName(Weekday(Now()))

[Code] ........

View 1 Replies View Related

Stop Input Into Worksheet Based On Yes No Response

Mar 4, 2009

I am trying to work out how to stop input into a document if a certain response is selected from a form in excel 2007. Basically, i need some programming so if a question is answered a certain way - the user cannot continue completing the form as it becomes "locked" and an error box comes up saying this is the case - and what action needs to occur. As the list is a data validation list - i cant just separate it out - so that if one response is chosen over another then the error message appears.

For example the question might be "Will you use contractors". If the answer is Yes, the cell turns red and an auto response fills the cell (VBA has already been written into the document for this to occur). What i need additionally is an error box to come up saying "This audit cannot continue as a Minor Plan needs to be completed" and the rest of the questions responses say something to the same effect.

View 5 Replies View Related

Userform That Will Add Data To Specified Table And Send Email With Notification?

Feb 9, 2014

I need to make a userform that will add data to table placed (for example G12:H12), and if G13:H13 cells are written to next cells below (G14:H14). I would also want to receive auto email noticiation (or notofications by pressing another command_button) that someone add data with copied content of (G13:H13...G14:H14....) cells in email body.

View 1 Replies View Related

Execute A Data Download Every Ten Seconds Until There Is A Value In C11 And Then Send An Email And Close

Nov 13, 2008

All this macro is supposed to do is execute a data download every ten seconds until there is a value in C11 and then send an email and close.

What seems to be happening is that it downloads, emails, closes... but then in ten seconds the sheet reappears and does it all again.

View 13 Replies View Related

Send Data From UserForm Controls To Specific Cells/Ranges

Aug 30, 2006

I have been working on my spreadsheet for sometime now, so far when I run into a code problem I can figure it out using someone eles's post. However, I can't seem to figure this one out. I need to send data from a userform to specific cells on my spreadsheet based upon the users selection in combobox 1, and textbox 1.

Example: User selects customer name from Combobox1, and part number auto loads into textbox1 from the data sheet.

There are then 11 combobox's that can be clicked as the userform is updated. Once the user is finished, I need the answers from each combobox to transfer to the worksheet next to the referenced Combobox1 and textobox1.

I used the code that RoyUk posted to him, but have only been able to get the first combobox to copy to the sheet, the rest stay blank.

(Here is the code so far)

Private Sub CommandButton2_Click()
Dim ce As Range, srcRng As Range
Dim sYear As String, sMonth As String

sYear = UserForm3.ComboBox1.Text 'When combobox1 is loaded, use as reference#1
sMonth = UserForm3.TextBox1.Text 'When textbox1 is loades, use as reference #2
Set srcRng = Range("c2", Range("c65536").End(xlUp)) 'Search range on worksheet
For Each ce In srcRng

View 7 Replies View Related

Copyrights 2005-15, All rights reserved