Creating an input sheet that works?
I am trying to create an input sheet so i can track some information.
I want the proper formula if there is one, to send all the information I enter on the first worksheet to one of 5 other worksheets in the same workbook. I need b1,b2,b3,b5,b6,b7,b8,b9
to look at b4 (which is a drop down box with the titles of the other worksheets) and send them to a1,b1,c1,d1,e1,f1,g1,h1,i1 in the work sheet specified in b4. Here is the part i dont know is possibe.
Can excel see that those cells have names, dates, ect...
in them and just move them down so i dont overwrite the information added previously.
For example if I enter "John Smith" on the input page and select "worksheet 2" from the drop down in b4, can i save that once it is done come back later or even in the same
setting and input "Mark Smith" selecting the same worksheet 2 and retain all the information from the first person. This way i can not only stream line this process but keep a running record of all this information. I have basic knowledge of the formulas
and how to use them, but this is outta my leauge.
Keys to the Problem Creating an input sheet that works?
Copy the code below, right-click the sheet tab, select "View Code" and paste the code into the window that appears.
When you select a value in cell B4, the cells of interest will be copied to the bottom of the list on the chosen sheet.
If you edit the
data, you must re-select B4 and select the sheet name from the drop down even if it is the same sheet as before - the selecting of the sheet name in B4 is what makes the code run.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim lngR As Long
Dim shtD As Worksheet
If Target.Address <> "$B$4" Then Exit Sub
Application.EnableEvents = False
Set shtD = Worksheets(Target.Value)
lngR = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(lngR, 1).Value = Range("b1").Value
.Cells(lngR, 2).Value = Range("b2").Value
.Cells(lngR, 3).Value = Range("b3").Value
.Cells(lngR, 4).Value = Range("b5").Value
.Cells(lngR, 5).Value = Range("b6").Value
.Cells(lngR, 6).Value = Range("b7").Value
.Cells(lngR, 7).Value = Range("b8").Value
.Cells(lngR, 8).Value = Range("b9").Value
Application.EnableEvents = True
To check for Windows updates
- Open Windows Update by clicking the Start button Picture of the Start button, clicking All Programs, and then clicking Windows Update.
- In the left pane, click Check for updates, and then wait while Windows looks for the latest updates for your computer.
- If any updates are found, click Install updates. Administrator permission required If you are prompted for an administrator password or confirmation, type the password or provide confirmation.
Recommended Method to Fix the Problem: Creating an input sheet that works?:
How to Fix Creating an input sheet that works? with SmartPCFixer?
1. Click the button to download SmartPCFixer . Install it on your computer. Open it, and it will perform a scan for your system. The junk files will be shown in the scan result.
2. After the scan is finished, you can see the errors and problems need to be repaired. Click Fix All.
3. The Repair part is done, the speed of your computer will be much higher than before and the errors have been fixed. You can also use other functions in SmartPCFixer. Like dll downloading, windows updating and print spooler error repair.
Related: How Can You Update & Download NVidia 6100, 6800 GS/XT Display Driver v.260.89 WHQL,Where to Download NVidia GeForce 8800 GT WHQL-certified driver v.196.21,How to Update & Download NVidia GeForce Go 7400 Display Driver v.260.19.12,[Solved] Download NVidia GeForce GTX 460M Driver v.331.82,Download NVidia Quadro Plex Model IV VGA Driver v.304.43 Certified,Way to Download RealTek RTL8100C(L) Driver v.5.01,Way to Download RealTek RTL8100E Drivers v.694,Way to Update & Download RealTek RTL8101L Auto Installation Program v.6.110 driver,Method to Update & Download RealTek RTL8111G PXE and RPL ROM code v.2.58 driver,How to Update & Download RealTek RTL8411B(N) Driver v.10.003,Best Way to Update & Download ASUS A53SV nVidia Graphics Driver v.188.8.131.5286,Method to Herunterladen ASUS K75VJ Intel Rapid Storage Technology Treiber v.184.108.40.2060,How Can You Update & Download ASUS CG8580 Intel Chipset Driver v.220.127.116.119,Method to Update & Download ASUS K41VD Intel INF Update Driver v.18.104.22.1685,Way to Update & Download ASUS Pro70T NB Probe v.3.0.0026 driver
Read More: Troubleshooting:Creation of recovery media,copying address book in outlook express [Solved],Copy and paste entire rows that contain values within a range in vba Tech Support,[Solved] Cumulative Security Update for Internet Explorer 8 for Windows 7 for x64-based Systems (KB980182),How to Fix - Could not start the IPSEC Services on Local Computer. Error 1747: The authentication service is unknown.?,Closing Internet Explorer causes error,Compare 2 Tables and Calculate the PROFIT Faster,Computer goes to Windows Boot Manager after Start,Connect to one of my network computer remotely when don't allow exception box Marked,computer locking up randomly