Open code in all ABAP's ?

Hi all,
This one's for the tecky chaps. I heard that from a certain SAP version onwards (maybe mysap ... whatever), all coding in standard programs (abaps) is open. That is, we no longer have to struggle to find an exit or a badi because all standard programs are open to insert coding without "repair".
Could you confirm whether that's true or not?
Thanks. Rewards as usual.

Hi Srinivasa,
Is that statement completely false then? or is it partially true?
Does it mean that the changes to standard programs work exactly in the same way as it used to be?
A few more words will do to close the topic. Thanks.
Bill

Similar Messages

Reg calling Transaction code in Webdynpro ABAP

Hi All,
Can I call Transaction code in Webdynpro ABAP Portal Application. If so, how can this be possible? Can anybody give me a lead?
Thanks.
Kumar Saurav.

Hi,
The most easy Way is here:
1) Test any Webdynpro Application from SE80 when the webdynpro Browser opens to display output
Copy its HTTP link, Suppose we get the below link
http://r3d01web1.Siemens.dk:8001/sap/bc/webdynpro/sap/z_dynamic_view?sap-client=002&sap-language=EN
2) Now replace some part of the above link ( webdynpro/sap/z_dynamic_view?sap-client=002&sap-language=EN ) with the new link part ( gui/sap/its/webgui?~transaction=PA30 )
So that the newly generated link is such that the below one:
http://r3d01web1.Siemens.dk:8001/sap/bc/gui/sap/its/webgui?~transaction=PA30
Note in place of PA30 you can put any of your desired tcode.
3) Now Just Make a webdynpro component and in its View layout put a LINK TO URL ui element
and in its property REFERENCE just past the http link ( http://r3d01web1.Siemens.dk:8001/sap/bc/gui/sap/its/webgui?~transaction=PA30 )
4) Activate and test your webdynpro Application.

Updated to iOS 7, when my phone came on for the first time I could see I had 2 new viber messages. When I went to open viber it asked me to register my number, which I did. Once the app was open I noticed all my message history was gone.

Hi,
I have only just upgraded to iOS 7 on my iPhone 4 and am having a problem with Viber. When my phone came on for the first time after the update I could see I had 2 new viber messages, when I went to open viber it asked me to register my number, which I did. Once the app was open I noticed all my message history was gone...
I still have an itunes backup of my phone just before the update, I restored it to this backup, followed the same process and now viber will not even work (the access code wont sms to me and the phone call option for recieving this code also come up with some error about not being able to do this at this time).
I have been able to access viber using another phone number (I have two sims which I use as I am currently overseas in south korea, my referenced australian sim has worked previously on viber overseas and I definently do have roaming on) but again I have no message history.
So to questions:
1) Why is my activation not working under my referenced australian number?
2) Can I recover all my message history which should be saved in my itunes backup? I am willing to revert to this backup state again if needed.
Please help.
Thanks.

Look iTunes>Preferences>Devices...is a backup listed for your iPhone 5 dated BEFORE you restored your iPhone 4 backup to your iPhone 5? If not, your data is gone. If there is a backup, on your iPhone 5: Settings>General>Reset>Erase All Content & Settings. You should now be able to restore that backup, if it exists, to your iPhone 5.

How to query opening balance for all customer or Vendor for an speci. date

Hi,
How to query opening balance for all customer or Vendor for an specific date?
Example:
put any date and query will show all customer/ Vendor that date opening/current balance.
Regards,
Mizan

Hi mizan700 ,
Try this
SELECT T0.[DocNum] As 'Doc No.', T0.[CardCode] As 'Customer Code',
T0.[CardName] As 'Customer Name',(T0.[DocTotal]-T0.[PaidSys]) As 'O/S Balance'
FROM OINV T0 INNER JOIN OCRD T1 ON T0.CardCode = T1.CardCode
INNER JOIN OCRG T2 on T1.GroupCode = T2.GroupCode
INNER JOIN INV1 T3 ON T0.DocEntry = T3.DocEntry
WHERE T0.[DocStatus] ='O'
AND
(T0.[DocDate] >='[%0]' AND T0.[DocDate] <='[%1]')
Regards:
Balaji.S

How to copy/download all ABAP programs in a text with a single report ?

How to copy/download all ABAP programs in a text format with a single report/TC ?
How to copy/download ABAP source code with all include programs ?....
we need to search & copy all include programs everytime....

Hi,
check this link
downloading programs
Regards

Unable to open any programs in ABAP editor

Hi folks i'm unable to open any programs in ABAP Editor.
When ever i try to open any program it goes to short dump.
Even when i try to open STO4 to view error log.
it shows following message
Short text
    Runtime error, short dump could not be written.
What happened?
    Error in the ABAP Application Program
    The current ABAP program " " had to be terminated because it has
    come across a statement that unfortunately cannot be executed.
    Unfortunately, the system cannot carry out a detailed analysis of the
    error, as the table SNAP (which gathers information at the time of
    termination) does not contain a suitable short dump.
Information About Termination Point in XSLT Prog.
    Termination occurred in the XSLT program " ".
    The call took place using CALL TRANSFORMATION from the ABAP
    program specified below.
    In the source code, the termination point is in line " "
    of the (Include) program " ".
Internal notes
    The termination was triggered in function " "
    of the SAP kernel, in line " " of the module " ".
    The internal operation just processed is " ".
    Internal mode was started at " ".

hi,
check whether any exit has been implemented for se38 and because of some statements in that it may goto dump.
also try to open ur program from SE80.if u have access to se80 then u can do it from there itself.
reward points if hlpful.

Code insert in ABAP program

Hi all,
How can i insert a single line of code in background? This needs to be done for thousands of objects. Also, we need to capture all the changes in a single TR. Is there is any automation program available to update these objects.
Thanks,
Stanley
Moderator warning - Please be aware of the potential danger such a solution can pose.
Message was edited by: Suhas Saha

There are a number of statements available for dynamic programming that permit you to read programs into an internal table, change the internal table and write the programs back. You only need to read the ABAP help to find them.
You must ensure safety and that you test on a sandbox system first. A program such as you suggest must never be available in production. It must be coded to prevent changes being made to any program outside the customer namespace.
There are various function modules, easily found, that will allow the changes to be stored in a transport.
A common requirement is to add code to all programs that gives information about their use. Such a requirement is easily met by the source code coverage analyser (SCOV) which has a counterpart (UPL or something, or SCOV-lite) that can be run in production without affecting performance.
If this isn't your requirement, then perhaps if you shared it, we'd be able to come up with a solution that doesn't require automatic code replacement and all the risk that entails.

Hi TO All ABAP Experts,

I am very new to ABAP Programming,I went through all of the posts related to BDC in sdn forum.I have got a clear understanding of BDC.I tried most of the example code and screen short,but none of them working fine.
Can anybody send the screen shorts from SHDB(recording ) from start to end with text file format used
for uploading corresponding information in bdc.If it is related toVA01 or migration of data from external file to sap r/3 on Material master using session method ,it will be great.
Other wise Please send me any bdc program you done in a real time environment.
my mail id is [email protected]
Thanks and Regards
Namratha

Hello Namratha,
Go through these steps for recording by using SHDB.
How to use recording
Go to SHDB
--> Click on New Recording
--> Provide any name in Recording , For ex: Z_CHAITU
--> Provide the Transaction name as MM01
--> Select the update mode as Synchrounous or Asynchrounus method
--> Click on Start Recording button.
--> It will display MM01 screen.type the appropriate
information in it.
--> Type the Material no as : 4567E (Any no, But there should b 1 Character in it)
--> Type Checmical Industry in INDUSTRY SECTOR
--> Type COUPONS in MATERIAL TYPE
--> Now click on Select Views button.
--> Select BASIC DATA 1
--> Click on Ok button
--> Under Basic data tab under Material, it will display the Material number.
--> Type the short description   and Provide EA as Base Unit Of Measure
--> CLICK ON BACK AND IT WILL ASK U TO SAVE THE DATA, CLICK ON YES
--> Again click on Back, it will ask if u wish to save the changes to record entries.
-> Click on Yes
--> Now, u will be in Initial screen
--> Select the record and Click on Program button
--> Now, provide any program name
--> Now, select Transfer from recording
--> Click on Tick mark
--> Give some short description
--> Type as Executable
--> Click on Source Code button
--> Automatically the code will appear in SE 38 program.
U can try these steps with any T-code by knowing the Mandatory fields in it.
Here is the sample code which I have done for MK01.
*& AUTHOR : Krishna Chaitanya
*& TITLE : BDC FOR MK01
*& DESCR : UPLOAD THE DATA THROUGH FLAT FILE
*& TRANSPORT : DOLK901203
*& VERSION : V1
*& DATE : 17th , JAN , 2008
report Z24_BDC_MK01
       no standard page heading line-size 255.
*& DECLARATIONS OF STRUCTURE FOR MK01
**U can create ur own flat file with the same structure
with tab' s Namratha
KTOKK, NAME1,SORTL, PSTLZ, LAND1
TYPES : BEGIN OF TY_MK01 ,
         KTOKK TYPE RF02K-KTOKK ,
         NAME1 TYPE LFA1-NAME1 ,
         SORTL TYPE LFA1-SORTL ,
         PSTLZ TYPE LFA1-PSTLZ ,
         LAND1 TYPE LFA1-LAND1 ,
         END OF TY_MK01 .
*& DECLARATION OF INTERNAL TABLE
DATA : T_MK01 TYPE STANDARD TABLE OF TY_MK01 INITIAL SIZE 0 ,
       T_BDCDATA TYPE STANDARD TABLE OF BDCDATA INITIAL SIZE 0 ,
       T_BDCMSGCOLL TYPE STANDARD TABLE OF BDCMSGCOLL INITIAL SIZE 0 ,
       T_ERROR TYPE STANDARD TABLE OF TY_MK01 INITIAL SIZE 0 ,
*& DECLARATION OF WORK AREA
       W_MK01 TYPE TY_MK01 ,
       W_BDCDATA TYPE BDCDATA ,
       W_BDCMSGCOLL TYPE BDCMSGCOLL .
*& DECLARATION OF SELECTION SCREEN
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME .
PARAMETERS : P_FILE TYPE FILENAME .
SELECTION-SCREEN END OF BLOCK B1 .
*& DECLARATION OF START-OF-SELECTION
START-OF-SELECTION .
PERFORM SUB_UPLOAD_DATA .
PERFORM SUB_POPULATE_BDC .
PERFORM SUB_ERROR_REC .
*include bdcrecx1.
*&      Form SUB_UPLOAD_DATA
      text
form SUB_UPLOAD_DATA .
DATA : L_FILE TYPE STRING .
     L_FILE = P_FILE .
CALL FUNCTION 'GUI_UPLOAD'
   EXPORTING
     filename                      = L_FILE
     HAS_FIELD_SEPARATOR           = 'X'
   tables
     data_tab                      = T_MK01 .
endform.                    " SUB_UPLOAD_DATA
*&      Form SUB_POPULATE_BDC
      text
form SUB_POPULATE_BDC .
LOOP AT T_MK01 INTO W_MK01 .
DATA : L_MSG TYPE STRING .
REFRESH T_BDCDATA .
perform bdc_dynpro      using 'SAPMF02K' '0107'.
perform bdc_field       using 'BDC_CURSOR'
                              'RF02K-KTOKK'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'RF02K-KTOKK'
                               W_MK01-KTOKK.
perform bdc_dynpro      using 'SAPMF02K' '0110'.
perform bdc_field       using 'BDC_CURSOR'
                              'LFA1-LAND1'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_field       using 'LFA1-NAME1'
                               W_MK01-NAME1.
perform bdc_field       using 'LFA1-SORTL'
                               W_MK01-SORTL.
perform bdc_field       using 'LFA1-PSTLZ'
                               W_MK01-PSTLZ.
perform bdc_field       using 'LFA1-LAND1'
                               W_MK01-LAND1.
perform bdc_dynpro      using 'SAPMF02K' '0120'.
perform bdc_field       using 'BDC_CURSOR'
                              'LFA1-KUNNR'.
perform bdc_field       using 'BDC_OKCODE'
                              '/00'.
perform bdc_dynpro      using 'SAPMF02K' '0130'.
perform bdc_field       using 'BDC_CURSOR'
                              'RF02K-LIFNR'.
perform bdc_field       using 'BDC_OKCODE'
                              '=ENTR'.
perform bdc_dynpro      using 'SAPLSPO1' '0300'.
perform bdc_field       using 'BDC_OKCODE'
                              '=YES'.
CALL TRANSACTION 'MK01' USING T_BDCDATA MODE 'N' MESSAGES INTO T_BDCMSGCOLL .
IF SY-SUBRC <> 0 .
APPEND W_MK01 TO T_ERROR .
ENDIF .
CLEAR W_BDCMSGCOLL .
READ TABLE T_BDCMSGCOLL INTO W_BDCMSGCOLL INDEX 1 .
CLEAR L_MSG .
CALL FUNCTION 'FORMAT_MESSAGE'
EXPORTING
   ID              = W_BDCMSGCOLL-MSGID
   LANG            = SY-LANGU
   NO              = W_BDCMSGCOLL-MSGNR
   V1              = W_BDCMSGCOLL-MSGV1
   V2              = W_BDCMSGCOLL-MSGV2
   V3              = W_BDCMSGCOLL-MSGV3
   V4              = W_BDCMSGCOLL-MSGV4
IMPORTING
   MSG             = L_MSG
EXCEPTIONS
   NOT_FOUND       = 1
   OTHERS          = 2
IF sy-subrc = 0.
WRITE : / 'MESSAGE FOR ' , W_MK01-KTOKK ,'-------' , L_MSG .
ENDIF.
ENDLOOP .
endform.                    " SUB_POPULATE_BDC
       Start new screen                                              *
FORM BDC_DYNPRO USING PROGRAM DYNPRO.
CLEAR W_BDCDATA.
W_BDCDATA-PROGRAM = PROGRAM.
W_BDCDATA-DYNPRO   = DYNPRO.
W_BDCDATA-DYNBEGIN = 'X'.
APPEND W_BDCDATA TO T_BDCDATA .
ENDFORM.
       Insert field                                                  *
FORM BDC_FIELD USING FNAM FVAL.
    CLEAR W_BDCDATA.
    W_BDCDATA-FNAM = FNAM.
    W_BDCDATA-FVAL = FVAL.
    APPEND W_BDCDATA TO T_BDCDATA .
ENDFORM.
*&      Form SUB_ERROR_REC
      text
--> p1        text
<-- p2        text
form SUB_ERROR_REC .
CALL FUNCTION 'GUI_DOWNLOAD'
EXPORTING
    filename                        = 'C:/ERRORS OF MK01.TXT'
   WRITE_FIELD_SEPARATOR           = 'X'
tables
    data_tab                        = T_ERROR .
endform.                    " SUB_ERROR_REC
Hey Namratha...I know there will be little confusion. But, trust me...try with this code and u will automatically able to work with any Transcation code.
All the best!
Edited by: Krishna Chaitanya on Mar 21, 2008 9:41 AM

In which Table all ABAP queries store?

Hi Guys,
In which Table all ABAP queries store?
Thanks,
Sa nkar

Hi..
ABAP Queries are also stored in the Table TADIR along with other Repository Objects.
the following fields must be checked to Find ABAP Queries in this Table:
PGMID = 'R3TR'
OBJECT = 'AQQU' "For ABAP Queries
This will help u to retrieve the ABAP queries from this table TADIR.
sample code:
data: itab type table of TADIR.
SELECT * FROM TADIR into table ITAB.
WHERE PGMID = 'R3TR'
and OBJECT = 'AQQU'
and (OBJ_NAME like 'Z%' or OBJ_NAME like 'Y%').
REWARD IF HELPFUL.

Code to use ABAP proxy

hi all,
can anybody please send me any sample code to call ABAP proxy.
the ABAP proxy is already being created and i have all the class and methods names.
i have to pick up some fields from a Z-table and have to send them as a message to XI.
thanks in advance,
shweta upadhyay.

data:
lo_clientproxy     type ref to <clinet proxy class name> ,
lo_sys_exception   type ref to cx_ai_system_fault,
Structures to set and get message content
   ls_request         type <type created in the clientn proxy generation>,
   ls_response        type <type created in the clientn proxy generation>,
create object lo_clientproxy.
try.
    call method lo_clientproxy-><method to call>
      exporting
        input = ls_request
      importing
        output = ls_response.
catch cx_ai_system_fault into lo_sys_exception.
Error handling
endtry.
commit work.
Regards
Raja

Disable every single web fonts in adobe muse and prevent it from loading open-sans:n3:all.js

I'm using Adobe Muse 2014.2 to build a Chinese site. The audience of the site is mainly people in mainland china, and I'm using a server from Hong Kong. Recently I just tested the site, however, it was loading extremely slow. In the end I found out that the cause of the slow loading was due to a file called "open-sans:n3:all.js" that was loaded from adobe webfonts.
Because a lot of sites are blocked in China, I think that Adobe Web Fonts (or typekit) is also blocked thus can't be loaded properly, causing the entire site to slow down.
Is there a way to disable all the webfonts in Muse and to prevent my site from loading this file?
Or is there a way I can host this file on my own server?
Thanks in advance.

This was a snapshot that my friend in China sent to me. You can see that the open-sans:n3:all.js is taking extremely long to load.
Yet the funny thing is that I did not use any web fonts in my site. However Muse is still adding it in the code for some reason.

A structured list with all ABAP events?

Hi SDN community,
has anyone of you a structured list with really ALL ABAP events like "INITIALIZATION" or "AT SELECTION-SCREEN OUTPUT" or "AT SELECTION SCREEN ON VALUE-REQUEST FOR xyz" and when they are triggered?
THAT WOULD BE REALLY AWESOME !!!
Thank you in advance,
Marius Klaus
Moderator message: please search for available information/ABAP documentation before asking.
Edited by: Thomas Zloch on Oct 19, 2010 3:52 PM

Hi Jan,
I went to My WAN----->View all devices----->and i can IP addresses , version , location etc. and no MAC. But if i click on "Export Table" and open the file in excel i can see the list of all devices and their MAC's. So that should be the way we can have list of all devices and their correspoding MAC's.
Or else i can click on individual device and see the same.
Regards,
Kanwal

"Open-code" statements / dynamic class-loading

Hi!
I am using reflection to dynamically load classes in an application where the classes are read dynamically from a text-box (or a file) in a running Java-session. When a class is loaded, instances can be made. All this works fine.
Now consider the following example:
1. First a class Sample1 is loaded:
public class Sample1 {
public int i;
Sample1() {
i=5;
2. I want to make an instance of Sample1 like:
Sample1 s1=new Sample1();
To use dynamic load, this "open-code" statement needs (?) to be put in a class Sample2. This works fine, and the method()-method can be invoked (using reflection):
public class Sample2 {
public Sample1 s1;
public void method(String args[]) {
s1=new Sample1();
System.out.println(s1.i);
3. At last I want to refer (print) to s1.i (and again the code is wrapped in a class), but this doesn't work:
public class Sample3 {
public void method(String args[]) {
System.out.println(s1.i);
The problem is how the statement:
Sample1 s1=new Sample1();
can be executed so that s1 can be referenced in the running Java-session.
Any suggestions how to solve this design-problem? What I want to do is make "open-code" statements that can be referenced in the running Java-session.
Regards,
Jesper

Typically, your 'open code statements' would be wrapped in a class that implements a suitable interface. If you wish to have state shared between your generated classes, then some form of common store (such as a Map) needs to be used to hold the state, and this made accessible to the implementations.
eg:interface PluginMethod { void apply (Map state) ;}
public class Sample2 implements PluginMethod {
public void apply (Map state) {
state.put("s1", new Sample1());
public class Sample3 implements PluginMethod {
public void apply (Map state) {
System.out.println(((Sample1)state.get("s1")).i);
}Alternatively, any of the normal methods of sharing state between objects can be used if closer coupling is desired. Dynamic class loading doen't really come into it- you use the same techniques as you normally do.
Pete

Applying Worksheet Code to All Worksheets

I have some rather lengthy code I tested on a single worksheet in a workbook with 110 sheets. here is the code:
Private Sub Worksheet_Change(ByVal target As Range)
If sysgroup = False Or syscater = False Or syscake = False Then
If Intersect(target, Range("A4:B39", "H4:I25")) Is Nothing Or target.Cells.Count > 1 Then Exit Sub
Application.EnableEvents = False
With target
If target.Column = 5 Or target.Column = 11 Then
If target.Column = 5 Then
target.HorizontalAlignment = xlCenter
If Columns("E").ColumnWidth <> 6 Then
Columns("E").ColumnWidth = 6
End If
Else
target.HorizontalAlignment = xlCenter
If Columns("K").ColumnWidth <> 6 Then
Columns("K").ColumnWidth = 6
End If
End If
End If
If target.Column = 6 Or target.Column = 12 Then
If target.Column = 6 Then
target.HorizontalAlignment = xlCenter
Columns("F").AutoFit
If Columns("F").ColumnWidth <> 6.75 Then
Columns("F").ColumnWidth = 6.75
End If
Else
target.HorizontalAlignment = xlCenter
Columns("L").AutoFit
If Columns("L").ColumnWidth <> 6.75 Then
Columns("L").ColumnWidth = 6.75
End If
End If
target.Value = UCase(target.Value)
Else
target.Value = WorksheetFunction.Proper(target.Value)
End If
With .Interior
.Pattern = xlPatternLinearGradient
.Gradient.Degree = 90
.Gradient.ColorStops.Clear
End With
With .Interior.Gradient.ColorStops.Add(0)
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
With .Interior.Gradient.ColorStops.Add(0.5)
.ThemeColor = xlThemeColorAccent4
.TintAndShade = 0.599993896298105
End With
With .Interior.Gradient.ColorStops.Add(1)
.ThemeColor = xlThemeColorDark1
.TintAndShade = 0
End With
End With
If target.Column = 1 Or target.Column = 8 Then
If target.Column = 1 Then
Columns("A").AutoFit
If Columns("A").ColumnWidth < 39 Then
Columns("A").ColumnWidth = 39
End If
Else
Columns("H").AutoFit
If Columns("H").ColumnWidth < 39 Then
Columns("H").ColumnWidth = 39
End If
End If
End If
If target.Column = 5 Or target.Column = 6 Then
If target.Column = 5 Then
groupshed = target.Value
strGrpName = target.Offset(0, -4).Value
Else
grouprows = target.Value
strGrpName = target.Offset(0, -5).Value
End If
If groupshed <> "" And grouprows <> "" Then
Application.ScreenUpdating = False
Application.DisplayStatusBar = True
Application.StatusBar = "Please Wait While Data is Updated..."
Set objGroupConn = New ADODB.Connection
Set objGUpdateCmd = New ADODB.Command
objGroupConn.ConnectionString = "Driver={SQL Server};Server=POSSERVER\GAMPOS;Database=GAM001;User ID=sa;Password=superior2u;"
objGroupConn.Open
Set objGUpdateCmd.ActiveConnection = objGroupConn
objGUpdateCmd.CommandText = "UPDATE dbo.tblgroups SET ShedAssignment = '" & groupshed & "', ShedRow = '" & grouprows & "'" _
& " WHERE((dbo.tblgroups.Visitdate)= '" & vdate & "' AND InCalendar = 1 And Catered = 0 AND GroupName = '" & strGrpName & "' )"
objGUpdateCmd.CommandType = adCmdText
objGUpdateCmd.Execute
objGroupConn.Close
groupshed = ""
grouprows = ""
strGrpName = ""
Application.StatusBar = False
End If
End If
If target.Column = 11 Or target.Column = 12 Then
If target.Column = 11 Then
catershed = target.Value
strGrpName = target.Offset(0, -3).Value
Else
caterrows = target.Value
strGrpName = target.Offset(0, -4).Value
End If
If catershed <> "" And caterrows <> "" Then
Application.ScreenUpdating = False
Application.DisplayStatusBar = True
Application.StatusBar = "Please Wait While Data is Updated..."
Set objGroupConn = New ADODB.Connection
Set objGUpdateCmd = New ADODB.Command
objGroupConn.ConnectionString = "Driver={SQL Server};Server=POSSERVER\GAMPOS;Database=GAM001;User ID=sa;Password=superior2u;"
objGroupConn.Open
Set objGUpdateCmd.ActiveConnection = objGroupConn
objGUpdateCmd.CommandText = "UPDATE dbo.tblgroups SET ShedAssignment = '" & catershed & "', ShedRow = '" & caterrows & "'" _
& " WHERE((dbo.tblgroups.Visitdate)= '" & vdate & "' AND InCalendar = 1 AND Catered = 1 AND GroupName = '" & strGrpName & "' )"
objGUpdateCmd.CommandType = adCmdText
objGUpdateCmd.Execute
objGroupConn.Close
catershed = ""
caterrows = ""
strGrpName = ""
Application.StatusBar = False
End If
End If
Application.EnableEvents = True
End If
End Sub
The issue now is using this same code for all 100 sheets in the workbook. I tried creating a method in ThisWorkbook...
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
End Sub
...with the code from the first block pasted in. I am getting a variable not defined error at my SET statements.
I would rather not have to copy all this code to each worksheet if at all possible. Any thoughts?

Prefix all occurrences of Range and Columns with Sh. to specify that the range and columns belong to the sheet that caused the event. For example:
If Intersect(target, Sh.Range("A4:B39",
"H4:I25")) Is
Nothing Or target.Cells.Count
> 1 Then
Exit Sub
and
If Sh.Columns("E").ColumnWidth
<> 6 Then
Regards, Hans Vogelaar (http://www.eileenslounge.com)

O2 open code

Hello all, Took my o2 open code into store at the weekend to buy new iphone and was told (following a transfer of my number to o2) that I would have to then text the code through to o2. I was given a pre printed note with instructions on etc. My query is that there seems to be quite a lot of conflicting information on the web about these codes, with various people having problems etc. When I signed up for the code at www.o2open.co.uk they say to take the code in store and the staff would apply the discount. I guess I am pre-empting potential problems, but has anyone else applied their codes via text and had success? Some reassurance would be greatly appreciated as I'm not feeling confident at the moment!

Hello and Welcome to the Forum,
Indeed their has been some confusion.
In this thread http://community.o2.co.uk/t5/Pay-Monthly-and-Pay-Go/02-Open-Codee/m-p/620666/highlight/true#M62940 and http://community.o2.co.uk/t5/Discussions-Feedback/Upgrade-and-tariff-transfer-problems/m-p/655265/highlight/true#M44176 a member called Wanty who is 02 staff confirms it's possible.
Take care.

Open code in all ABAP's ?

Similar Messages

Maybe you are looking for