473,490 Members | 2,489 Online
Bytes | Software Development & Data Engineering Community
Create Post

Home Posts Topics Members FAQ

How do i fix "Compile Error: Expected End Sub"

3 New Member
Expand|Select|Wrap|Line Numbers
  1. Private Sub Yes_Click()
  2. Sub StandardSpecs()
  3. '
  4. ' StandardSpecs Macro
  5. '
  6.  
  7. '
  8.     Range("D11:E11").Select
  9.     ActiveCell.FormulaR1C1 = "5/12 (Std)"
  10.     Range("D12:E12").Select
  11.     ActiveCell.FormulaR1C1 = "8'"
  12.     Range("D13:E13").Select
  13.     ActiveCell.FormulaR1C1 = "2x10"
  14.     Range("D15").Select
  15.     ActiveCell.FormulaR1C1 = "Timberline HD"
  16.     Range("D16").Select
  17.     ActiveCell.FormulaR1C1 = "Double 4 Vinyl"
  18.     Range("D17").Select
  19.     ActiveCell.FormulaR1C1 = "EDCO"
  20.     Range("D18:E18").Select
  21.     ActiveCell.FormulaR1C1 = "N/A"
  22.     Range("D20:E20").Select
  23.     ActiveCell.FormulaR1C1 = "N/A"
  24.     Range("D22").Select
  25.     ActiveCell.FormulaR1C1 = "N/A"
  26.     Range("E22").Select
  27.     ActiveCell.FormulaR1C1 = "N/A"
  28.     Range("D23:E23").Select
  29.     ActiveCell.FormulaR1C1 = "Vector"
  30.     Range("D24").Select
  31.     ActiveCell.FormulaR1C1 = "Double Hung (Std)"
  32.     Range("E24").Select
  33.     ActiveCell.FormulaR1C1 = "N/A"
  34.     Range("D25:E25").Select
  35.     ActiveCell.FormulaR1C1 = "White"
  36.     Range("D26:E26").Select
  37.     ActiveCell.FormulaR1C1 = "White"
  38.     Range("D28").Select
  39.     ActiveCell.FormulaR1C1 = "Bayerbuilt Steel"
  40.     Range("E28").Select
  41.     ActiveCell.FormulaR1C1 = "HDG - 6 Panel (Std)"
  42.     Range("D29").Select
  43.     ActiveCell.FormulaR1C1 = "N/A"
  44.     Range("D30").Select
  45.     ActiveCell.FormulaR1C1 = "Prime"
  46.     Range("E30").Select
  47.     ActiveCell.FormulaR1C1 = "White"
  48.     Range("D31").Select
  49.     ActiveCell.FormulaR1C1 = "HTG-HDG 6 Panel FR (Std)"
  50.     Range("E31").Select
  51.     ActiveCell.FormulaR1C1 = "Primed White"
  52.     Range("D32").Select
  53.     ActiveCell.FormulaR1C1 = "Lands End (Std)"
  54.     Range("E32").Select
  55.     ActiveCell.FormulaR1C1 = "Satin Nickel (Std)"
  56.     Range("D33").Select
  57.     ActiveCell.FormulaR1C1 = "Lands End (Std)"
  58.     Range("E33").Select
  59.     ActiveCell.FormulaR1C1 = "Satin Nickel (Std)"
  60.     Range("D34").Select
  61.     ActiveCell.FormulaR1C1 = "Lands End (Std)"
  62.     Range("E34").Select
  63.     ActiveCell.FormulaR1C1 = "Satin Nickel (Std)"
  64.     Range("D35").Select
  65.     ActiveWindow.SmallScroll Down:=12
  66.     ActiveCell.FormulaR1C1 = "Hollow Core Flush"
  67.     Range("E35").Select
  68.     ActiveCell.FormulaR1C1 = "Oak"
  69.     Range("D37:E37").Select
  70.     ActiveCell.FormulaR1C1 = "Oak 219A & 115A (Std)"
  71.     Range("D43:E43").Select
  72.     ActiveCell.FormulaR1C1 = "Orange Peel (Std)"
  73.     Range("D44:E44").Select
  74.     ActiveCell.FormulaR1C1 = "Orange Peel (Std)"
  75.     Range("D46:E46").Select
  76.     ActiveCell.FormulaR1C1 = "N/A"
  77.     Range("D47").Select
  78.     ActiveCell.FormulaR1C1 = "N/A"
  79.     Range("E47").Select
  80.     ActiveCell.FormulaR1C1 = "N/A"
  81.     Range("D49").Select
  82.     ActiveWindow.SmallScroll Down:=21
  83.     ActiveCell.FormulaR1C1 = "Vinyl"
  84.     Range("D50").Select
  85.     ActiveCell.FormulaR1C1 = "Carpet"
  86.     Range("D51").Select
  87.     ActiveCell.FormulaR1C1 = "Vinyl"
  88.     Range("D52").Select
  89.     ActiveCell.FormulaR1C1 = "Vinyl"
  90.     Range("D54").Select
  91.     ActiveCell.FormulaR1C1 = "Carpet"
  92.     Range("D55").Select
  93.     ActiveCell.FormulaR1C1 = "Carpet"
  94.     Range("D59").Select
  95.     ActiveCell.FormulaR1C1 = "Vinyl"
  96.     Range("D60").Select
  97.     ActiveWindow.SmallScroll Down:=-36
  98.     Range("G11").Select
  99.     ActiveCell.FormulaR1C1 = "Hartford"
  100.     Range("H11").Select
  101.     ActiveCell.FormulaR1C1 = "Oak Std."
  102.     Range("G13").Select
  103.     ActiveCell.FormulaR1C1 = "Hartford"
  104.     Range("H13").Select
  105.     ActiveCell.FormulaR1C1 = "Oak Std."
  106.     Range("G15").Select
  107.     ActiveCell.FormulaR1C1 = "Hartford"
  108.     Range("H15").Select
  109.     ActiveCell.FormulaR1C1 = "Oak Std."
  110.     Range("G19").Select
  111.     ActiveCell.FormulaR1C1 = "Caprice"
  112.     Range("G20").Select
  113.     ActiveCell.FormulaR1C1 = "3"" Integrated Formica"
  114.     Range("G21").Select
  115.     ActiveCell.FormulaR1C1 = "Caprice"
  116.     Range("G22").Select
  117.     ActiveCell.FormulaR1C1 = "3"" Integrated Formica"
  118.     Range("G23").Select
  119.     ActiveCell.FormulaR1C1 = "Caprice"
  120.     Range("G24").Select
  121.     ActiveCell.FormulaR1C1 = "3"" Integrated Formica"
  122.     Range("G26:H26").Select
  123.     ActiveCell.FormulaR1C1 = "Chrome (Std)"
  124.     Range("G27:H27").Select
  125.     ActiveCell.FormulaR1C1 = "Stainless Steel (Std)"
  126.     Range("G28:H28").Select
  127.     ActiveCell.FormulaR1C1 = "Standard"
  128.     Range("G29:H29").Select
  129.     ActiveCell.FormulaR1C1 = "Fiberglass - White (Std)"
  130.     Range("G34:H34").Select
  131.     ActiveCell.FormulaR1C1 = "N/A"
  132.     Range("G35").Select
  133.     ActiveWindow.SmallScroll Down:=21
  134.     Range("G36:H36").Select
  135.     ActiveCell.FormulaR1C1 = "Satin Nickel (Std)"
  136.     Range("G37:H37").Select
  137.     ActiveCell.FormulaR1C1 = "8592-12 Black (Std)"
  138.     Range("G38:H38").Select
  139.     ActiveCell.FormulaR1C1 = "N/A"
  140.     Range("G41:H41").Select
  141.     ActiveCell.FormulaR1C1 = "N/A"
  142.     Range("G42:H42").Select
  143.     ActiveCell.FormulaR1C1 = "N/A"
  144.     Range("G43:H43").Select
  145.     ActiveCell.FormulaR1C1 = "N/A"
  146.     Range("G44:H44").Select
  147.     ActiveCell.FormulaR1C1 = "N/A"
  148.     Range("G47:H47").Select
  149.     ActiveCell.FormulaR1C1 = "JNM3151DFBB (Std)"
  150.     Range("G48:H48").Select
  151.     ActiveCell.FormulaR1C1 = "JB620DFBB (Std)"
  152.     Range("G49:H49").Select
  153.     ActiveCell.FormulaR1C1 = "GIEI8GTHBB (Std)"
  154.     Range("G50:H50").Select
  155.     ActiveCell.FormulaR1C1 = "GSD4000DBB (Std)"
  156.     Range("G51:H51").Select
  157.     ActiveCell.FormulaR1C1 = "N/A (Std)"
  158.     Range("G52:H52").Select
  159.     ActiveCell.FormulaR1C1 = "N/A (Std)"
  160.     Range("G53:H53").Select
  161.     ActiveCell.FormulaR1C1 = "N/A (Std)"
  162.     Range("G54:H54").Select
  163.     ActiveCell.FormulaR1C1 = "N/A (Std)"
  164.     Range("G55:H55").Select
  165.     ActiveCell.FormulaR1C1 = "N/A (Std)"
  166.     Range("G56").Select
  167.     ActiveWindow.SmallScroll Down:=-45
  168. End Sub
Jan 7 '16 #1
5 1323
Luk3r
300 Contributor
Expand|Select|Wrap|Line Numbers
  1. Private Sub Yes_Click()
  2.  'Your Data in here'
  3. End Sub
  4.  
  5. Private Sub StandardSpecs()
  6.  'Your Data in here'
  7. End Sub
Jan 7 '16 #2
lmpaskewitz
3 New Member
Ok, so I tried that and i get Compile Error: Ambiguous name detected: StandardSpecs
Jan 7 '16 #3
Luk3r
300 Contributor
That error is because you've declared a public sub in two modules whose names are the same, or you've declared the sub twice in the code of one form. This simply means, "Private Sub StandardSpecs()" exists twice.
Jan 7 '16 #4
lmpaskewitz
3 New Member
Ok, i got it - thanks so much!!
Jan 7 '16 #5
Luk3r
300 Contributor
You're welcome! Don't forget to mark the answer!
Jan 7 '16 #6

Sign in to post your reply or Sign up for a free account.

Similar topics
5
5190
Run Time Error. Expected ';'
by: andy.herrera | last post by:
I'm getting this Error Message. Expected ';' Please Select One: <form name="form1"> <<------------ Error is here. <select name="selectTrans" onChange="If (this.value == 'checkout')...
Javascript
6
5303
Dependent Template Issue? g++ gives the following ==> error: expected primary-expression before "int"
by: Lawrence Spector | last post by:
I ran into a problem using g++. Visual Studio 2005 never complained about this, but with g++ I ran into this error. I can't figure out if I've done something wrong or if this is a compiler bug. ...
C / C++
21
35475
error: expected ')' before '*' token -- What is this ?
by: Ram Prasad | last post by:
I am trying to write a simple libspf2 plugin code for my postfix ( milter) I am getting this unhelpful error message when I try to compile gcc -g1 -Wall -I/usr/local/include/spf2 -I. -c mfunc.c...
C / C++
5
7956
error: expected constructor, destructor, or type conversion before '<' token
by: amitmool | last post by:
hi, i have used the queue library file and try to use the template as template <class QueueItem> queue <QueueItem>::~queue() // line 25 { } template <class QueueItem> void...
C / C++
2
3517
c++ template function error, expected constructor, destructor, or type conversion
by: parvtb | last post by:
I have the following code: #include <list> using namespace std; template <typename T> list<T>::iterator doStuff( list<T>::iterator myIter ) //--error here
C / C++
1
10203
error: expected initializer before <type>
by: lovecreatesbea... | last post by:
In the following function `HardwareStatusDb()', If its arguments are declared as type of `string', I get: main.cpp:5: error: expected initializer before ‘int’. The error disappears when those...
C / C++
2
4976
Microsoft VBScript compilation error: Expected '
by: kevinr | last post by:
Hi, I am brand new to VB, and I am trying to deploy Office 2007 on my network here at work. We used part of this script to do another deployment, and I have taken pieces and tried to edit for this...
Visual Basic 4 / 5 / 6
2
3550
What is causing this error: expected constructor, destructor, or type conversi
by: prw8864 | last post by:
I can not see what is causing this error.... iterator has been defined properly, but the error seems to point to the interator type. Errors I get with g++ svector.c++ -o svector 2> ./err_txt...
C / C++
1
3290
error: expected `;' before iter ?
by: rameshjumgam | last post by:
i am having in my code like std::list<T*>::const_iterator iter=lst.begin(); and i am getting error error: expected `;' before âiterâ /root/INCLUDE/cw/gdlist.h:140: error: âiterâ was...
C / C++
2
4606
[Error] expected primary-expression before 'xor' token
by: gretakola | last post by:
hi can anyone help me?? is this code i dont know if is right or not, i am new in c++ #include <iostream> using namespace std; template < Typename T> bool T xor(const T& a, const T& b) {...
C / C++
0
7112
marktang
What is ONU?
by: marktang | last post by:
ONU (Optical Network Unit) is one of the key components for providing high-speed Internet services. Its primary function is to act as an endpoint device located at the user's premises. However,...
General
0
7183
jinu1996
Maximizing Business Potential: The Nexus of Website Design and Digital Marketing
by: jinu1996 | last post by:
In today's digital age, having a compelling online presence is paramount for businesses aiming to thrive in a competitive landscape. At the heart of this digital strategy lies an intricately woven...
Online Marketing
1
6852
The easy way to turn off automatic updates for Windows 10/11
by: Hystou | last post by:
Overview: Windows 11 and 10 have less user interface control over operating system update behaviour than previous versions of Windows. In Windows 11 and 10, there is no way to turn off the Windows...
Windows Server
1
4878
isladogs
Access Europe - Using VBA to create a class based on a table - Wed 1 May
by: isladogs | last post by:
The next Access Europe User Group meeting will be on Wednesday 1 May 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM). In this session, we are pleased to welcome a new...
Microsoft Access / VBA
0
4573
Couldn’t get equations in html when convert word .docx file to html file in C#.
by: conductexam | last post by:
I have .net C# application in which I am extracting data from word file and save it in database particularly. To store word all data as it is I am converting the whole word file firstly in HTML and...
C# / C Sharp
0
3084
Trying to create a lan-to-lan vpn between two differents networks
by: TSSRALBI | last post by:
Hello I'm a network technician in training and I need your help. I am currently learning how to create and manage the different types of VPNs and I have a question about LAN-to-LAN VPNs. The...
Networking - Hardware / Configuration
0
1389
transfer the data from one system to another through ip address
by: 6302768590 | last post by:
Hai team i want code for transfer the data from one system to another through IP address by using C# our system has to for every 5mins then we have to update the data what the data is updated ...
C# / C Sharp
1
628
muto222
How to add payments to a PHP MySQL app.
by: muto222 | last post by:
How can i add a mobile payment intergratation into php mysql website.
PHP
0
277
bsmnconsultancy
Comprehensive Guide to Website Development in Toronto: Expert Insights from BSMN Consultancy
by: bsmnconsultancy | last post by:
In today's digital era, a well-designed website is crucial for businesses looking to succeed. Whether you're a small business owner or a large corporation in Toronto, having a strong online presence...
General

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.

BYTES.COM © 2024
About Bytes
Terms Of Use
Privacy Policy
Sitemap
Advertise on Bytes
How to Post and Respond on Bytes
How to Promote and Link on Bytes
How to increase your Ranking on Bytes
Become a Recognized Expert on Bytes
Feedback Welcomed! Contact Us