Attachmate Extra Macro
Mar 29, 2008i am writing Attachmate Extra Macro from excel to Attachmate. I have problem with that macro . where can i post to get answer. it is like vba code .
View 4 Repliesi am writing Attachmate Extra Macro from excel to Attachmate. I have problem with that macro . where can i post to get answer. it is like vba code .
View 4 RepliesI'm trying to write a macro in Excel to interface with "Attachmate".
My problem is when I do a "CreateObject" I receive error for active x can not create object.
I looked in the Excel Ref Lib for either "Attachmate" or "Extra". and could not find them.
Does any one know for sure if Excel can work with "AttachMate" if so can you provide directions.
I'm using Office 2003 Pro, Windows XP.
As a side note I've read of "AttachMate" can be coded to work with "Excel", but so far not the other way around.
I created a macro to save an active sheet as a CSV file. Two issues arise out of that effort. One is that I can't seem to get the environment variable right to allow any user to save the file to the root of their My Documents folder on their home directory in a domain environment. That way the template will work for everyone and requires no user intervention. Tried using the % with HOMEPATH, but I must somehow have the syntax off.
Secondly, the file being saved as a CSV file is creating a huge several megabyte file with empty lines of commas.
Sub Macro2()
Sheets("Results").Select
ActiveWorkbook.SaveAs Filename:= _
"\%HOMEPATH%My DocumentsTesting.csv", FileFormat:=xlCSVMSDOS, _
CreateBackup:=False
Application.WindowState = xlNormal
End Sub
Thought it should be CSV MS DOS file type, but that doesn't seem to work either. I only want to save the rows with data on the active sheet to a CSV file, which will not have all the extra lines of commas.
I have headings across the sheet "Inventory" in cells E5:AA5 with further headings down the sheet D6:D40.Data Validation drop down list is in cells E6:AA40.I want to be able to place a number 1 or number 2 in any cell in the range C6:C40 in the "inventory" sheet and with a macro create 2 new sheets.Sheet 1 will contain all the headings which had a 1 in any of the cells in the range C6:C40 and sheet 2 will have all the headings which had the number 2 from the range C6:40.Both sheets 1 & 2 will contain all the headings from "Inventory" sheet in cells E5:AA5.The data validation drop down list is not required in sheets 1 and 2 but if "inventory" sheet does get updated that it also updates sheet 1 and sheet 2.... Version i am using is Excel 2010
View 1 Replies View Relatedi've been scrolling through the Uerforms extra controls and just wondered if there is a comperhinsive list of them and what they actually do?
View 2 Replies View RelatedIn the below example each of the items listed in Row A have an extra space before the word, is there an easy way of taking that space out i've tried text to columns, paste special. Not sure what else can be done ...
View 9 Replies View RelatedHow do I trim an extra word. I downloaded a list with an address field and it has an extra city in the address. Ex. 908 Taylor St_Wake Forest_Wake Forest
How do I get rid of the duplicate state?
I have an excel spreadsheet with Extra columns that have no data in them. I want to delete this columns so that there is no horizontal scroll, but highlighting and right-clicking and choosing delete isn't working. Not sure why. How can I delete?
View 2 Replies View RelatedI have an excel sheet which contains the data in blue. In another sheet I have the same data but with an extra code (red). For my question I have put both in one sheet. My problem is that I need to combine the extra code info in the sheet with the blue data. Both the blue column and first red column are identical.
View 4 Replies View RelatedI'm using Excel for holding lots of numerical data. Another software program pulls the information from Excel and is used to evaluate the data. The problem I am having is that some of the worksheets in my workbook have extra rows, and by "extra" I mean over 1,000 extra, blank, empty, rows. This means that in the other software program, it pulls over thousands of blank cells that have to be deleted every time it is opened.
View 6 Replies View RelatedI finally got the perfect code that works for me, to list a folder with path name.
if I select any root like C:, D:, E:, an extra backslash is added. can this be fixed that, what ever folder or root drive I select only 1 backslash is added. here is the code
create a macro that will create csv files for each worksheet of a workbook. The Macro works great. But i do have a requirement where i do not need extra commas (,) in the CSV. When the CSV are created for each worksheet, it adds additional commas in the end and my shell script throws it away becuase of the additional commas.
I have attached 3 files -
csvtest.xls - this has the macro which creates individual csv files for EACH worksheet in the workbook........
I have values in cell like,
1,2,3 & 4
10,11
8,9,10,11,12
etc.
the formula to get min and max from this string
for the first value Min = 1 and max = 4,
for the 2nd value Min = 10, and max = 11
fo the 3rd one Min = 8 and max = 12
1) I work with dozen's of tabs within workbooks, adding rows (that are numbered) etc. When I'm done and want to save the file, I usually go through this routine to make sure I'm at the top of each page before closing the file:
Ctrl-Home, Ctrl-Page Up, Ctrl-Home, Ctrl-Page Up ...through all tabs.
2) I also have to "add" all the extra line numbers (by dragging the last number I had in "row A", and filling down). I need to add the newly added rows to the "print area". Any easy way to do that?
I am calling a procedure from a commandbar button using on action.
With oButton
.Caption = "&Progress Report"
.OnAction = 'this bit please
.BeginGroup = True
.FaceId = 576
End With
Private Sub ProcessingRequest(ByVal shtRequest As String)
End Sub
I've got the following code for the attached worksheet. My problem lies at the end of the code where I'm trying to determine the length of characters in column A. I get a zero value after the last row with an actual value.
aLen = Range("A1").End(xlDown).Row - 1
but that bypasses the problem, rather than fix it. By the way, if you run the code, make sure you only have the worksheet "1" in the workbook.
Sub Test()
Application. ScreenUpdating = False
Cells.EntireColumn.AutoFit
'Delete foot symbol from distances
Columns("E:E").Replace What:="'", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
'Sort & Copy Multipule pages
Cells.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Sheets("1").Copy After:=Sheets(1)
Sheets("1 (2)").Copy After:=Sheets(2)
Sheets("1 (3)").Copy After:=Sheets(3)....................
I've got this code that I use to open the active session of a program I use (EXTRA! 8.0). When I try to code it to open a specific new instance of the program, I get a run-time error 429. When I debug, it's stopping on the line where I get the new instance. I've searched on this issue, but I still don't understand what the problem is.
Sub log_in()
Dim Sys As Object
Dim Sess2 As Object
Dim lngOldSysTimeout As Long
Set Sys = CreateObject("EXTRA.System")
If Sys Is Nothing Then
MsgBox Prompt:="EXTRA! not properly installed on this PC." _
& " Terminating execution.", Buttons:=16, _
Title:="E!PC Not Properly Installed"
Exit Sub
End If
Set Sess2 = GetObject("C:Program FilesExtra!sessionsCCS2.edp")
If Sess2 Is Nothing Then
MsgBox Prompt:="DLC.edp not found. Terminating execution." _
, Buttons:=16, Title:="E!PC Not Properly Installed"
Exit Sub
End If
End Sub
the Ruler across the top that allows you to adjust the column widths (A B C D etc). Is it possible to insert another Ruler, further down the same page, to allow you to adjust the column width differently. if so how. On Excel 2007
View 2 Replies View RelatedI've created spreadsheet to look after scores & handicaps in a golf society. I'm trying to add extra spaces so that if new members join they can easily be added without me having to add all the extra rows,change formulas at the time.
However I'm getting stuck when trying to sort the table in 'Championship Leaderboard' sheet, basically I only want to sort actual playing members, not the ones marked 'Test'. I've only marked them as 'Test' whilst trying to do this, but they will be blank eventually.
Error values keep popping up, and as a result it won't sort. Trying to get rid of error values to equal 'zero' create problems elsewhere and I just seem to be going round in circles and getting nowhere.
Basically unless a new member is added i don't want anything to appear in the spreadsheet. But i don't want the formulas etc which are there in readiness to affect existing player entries and data
Is VBA the answer or can it be done with formulae etc,
I have some data in Cell A1 and B1, I want that data in combined in one cell but in diffetent lines.. For example if i have 123 in A1 and 456 in B1, I need it to show the result as below in C2
123
456
=IF(SUM(Q4)=0,"",MAX(0,G4-MAX(F4,Q4))/7) - to calculate number of days for year
=IF(SUM(TODAY()>G4),(G4-MAX(F4,Q4))/7,SUM(TODAY()-MAX(F4,Q4))/7) - to calculate number of days year to date
I am using this condition to calculate the length of a service which falls with in a specific review period, eg
Service starts 1 Feb 09 and finishes 30 April 09
The review period is 1 Mar 09 and finishes 31 May 09.
I would need to measure the number of days that fall within the review period, which would be 1 Mar 09 - 30 April 09
At the moment I am missing a condition which identifies whether to subtract from 'service end date' or 'review end date'.
using IF formula [ =IF(SUM(C3),LOOKUP(DATEDIF($C3,NOW(),"y"),(0,3,),(0,3,)),"")] holiday sheet after 5 years service employee get 3 days extra holiday trying to in E3 to add 3 days to holiday entitlement to take from 16 days to 19 days
View 2 Replies View RelatedMy production spreadsheet has thousands of unwanted columns and I am unsure as to how they appeared. I want to delete them. I have tried selecting all of them and deleting them, but nothing happens. I have tried go to > blanks, but it freezes because there are so many columns.
Also, I tried to copy paste to a new sheet, but the formulas get messed up.
For a mental picture, the spreadsheet is approx 225 rows by 25 columns.
1st Quarter Goal23306.67%
2nd Quarter Goal00.00%
3rd Quarter Goal00.00%
4th Quarter Goal00.00%
The 306% cell has (B2+B3+B4)/7.5 in it to get that value. I need to dump any access percentage above 100% into the next quarters goal. so 2nd should be 100 and 3rd should be 100 and 4th should be 6.67.
I just have a grid with a bunch of numbers listed and they all have one extra space at the end of the number. I have another tab with the same numbers but they do not have that extra space. I am using a vlookup formula and it is not recognizing the numbers because of the extra space. Is there some way to get rid of the extra space with a formula instead of going through job by job?
View 5 Replies View RelatedPlease refer to attached file.
Column A have data and i need VB Code (Not formula) to check each cell in column A and delete any spaces and make sure that there is no spaces after end of the text.
As an example you can see Cell cell A15 thru A22 have spaces after the text so need to delete those spaces
Book1.xlsx
I am looking for VBA code to remove extra commas from d column.
Missing
, , , 1617614,
, , , 1676652,
, , , , 1676664, 1676665, 1676666, , 1676668, , 1676670
, , 1591813,,,,
, , , 1591113,
How do I make this formula include searching for "ann" and "john" (in separate cells)?
View 2 Replies View RelatedI have in a range several numbers that contain extra spaces and therefore these are recognized as text.
This is how the numbers would look : " 123.234.567"
How to remove the extra spaces and the points (as otherwise this will also be recognized as text)?
I am trying to get rid of some extra spaces at the end of a word in a cell.
As shown in the following code I have tried different functions to get remove them, but they are not working. Are those not spaces?
The cell has this word : "LPPJ4K2**" ' in excel the * appear as a white space
Code:
Filler = "LPPJ4K2**" ' this word is actually is in a cell
Filler = Trim(Filler) ' Not working
Filler = Application.Trim(Filler) ' Not working
Filler = Replace(Filler, " ", "") ' Not working