Code For Data Directly To Peachtree Using VBA Rather Than The Export/ Import Process
Sep 8, 2006write code to post Excel data directly to Peachtree using VBA rather than the export/ import process?
View 5 Replieswrite code to post Excel data directly to Peachtree using VBA rather than the export/ import process?
View 5 RepliesI have two macros one of which imports the data and the other processes the data. These macros were created at different times and need to be joined into a single macro that will combine their operations – with slight modification to the importing macro. Let me describe what each of the macros does:
PROCESS macro:
Cycles through the CONTROL CELL on the “1” tab using the VALUES TO TEST. For each value to test it copies the values form the output tabs and pastes them into the A+B tab. Then it removes the duplicate rows there.
Option Explicit
'======================================
Sub PROCESS() 'This subroutine is called when clicking on the first button
Dim i As Long, j As Long, k As Long 'Those are the variables that will browse through the whole sheets
Dim l As Integer 'this will be used to browse through the values to test
Dim TheSearch(1 To 2) As Object 'This is an array of objects that will be used for the search
Dim TheRange As Range 'This will be used to flag the range of duplicates in the output
'Searching for the Text string 'VALUES To TEST' in the sheet "1" in order to know where the array of values to be tested start
Set TheSearch(1) = Range(Cells(1, 1), Cells(ActiveSheet.UsedRange.Rows.Count + 10, ActiveSheet.UsedRange.Columns.Count)).Find(What:="VALUES TO TEST", LookIn:=xlValues, Lookat:=xlWhole)
I've been working with this script to import and paste a webpage to a worksheet. Once the webpage is on a worksheet I can pull it into VBA easily enough but I was wondering if there's a way to "paste" the webpage directly into an array in VBA and skip the paste to worksheet step?
Code:
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Navigate theURL
IE.Visible = False
End With
[Code]....
I have a two workbooks, one which is a daily schedule and the other is a yearly summary. The worksheet in the yearly summary uses a date in the first column and the daily sheets each have a date on them. I've isolated my data in the daily schedule and I've retrieved the date in its numerical equivilant. I have data that is 6 cells wide by "x" amount deep on any given day. Essentially, I schedule different things to be made and each row has that designation, process, dimensions, quantity, etc.
I want to test the contents of the first cell in the array, copy the pertinent data, switch to the proper worksheet, and paste it into the line where it goes. I believe I need to check a few cells to narrow down exactly which group of cells on which sheet they would be copied to.
I am not trained at all as far as programming goes, but I've been practicing for a few years now. What I am just going to start doing is testing the cells in the rows in the array of data and trying to divide it out that way. This just seems like the long way around.
The questions are shown on the attached spreadsheet. There are 2 questions one on each sheet. On the spreadsheet the yellow cells indicate data that I'd import ( on the left) and input by hand to get the process going. The green cells have the correct numbers in them but I've had to manipulate them by hand.
View 5 Replies View RelatedI have a rather large workbook with around 10 sheets. i want to setup a 'export' button on this workbook that will allow a user to save raw data from this workbook into another excel workbook and an ' import' button that will allow user to import raw data and use the existing formulas/links from this large workbook.
As in sample file, i want to be able to export/import all the cells that are orange in colour (in my actual file, all raw data cells are not actually orange, thought colour coding it would make my problem easier to understand)
I was thinking around these options:
1) Copy and then PasteValues from the large worksheet into another workbook for exporting and same idea for importing
2) For all raw data, copy out all the values and put their corresponding addresses in another excel sheet. e.g. column1: Sheet1!$A$1, column2: value
and import it in by reading the address n value.
I have found code by John Walkenback
I need to adapt it to allow several worksheets to be exported to a workbook .cvs .Then imported back into the original workbook including all blanks.
I have included the Walkenback workbook and a test workbook that I have been playing with.
Just about reached the brick wall with my abilities on this problem
I have been copying the work sheet ranges
"Consolidated Data" D4:K17
"Support Schedule" D5:W504
"Tangent Calx1" D4:F34 , J4:J34 and M4:M34
"Tangent Calx2" D4:F34 , J4:J34 and M4:M34
To a seperate worksheet for export to a txt file {for saving}
Then {when required} importing the txt file data into the worksheet ,copy the data back to the worksheet ranges and re-calculating the data. I have struggled to trying and butcher the code and delete the copy stage and write just the required ranges to the txtfile.(And reverse)
simply to say i want export and import all my "auto correct" words to other computer instead of typing manual...
Here some example am using daily ..
PLAN MISMATCH IN CPOS WITH CAFP 1
P2P NOT ELIGIBLE P 2
NEED CLARITY ON PLAN AND TOPPINGP 3
NEED CLARITY ON TOPPING P 4
NEED CLARITY ON RECEIPT AMOUNT AND RECEIPT NUMBERP 5
NEED PLAN APPROVAL P 6
if i type P1 in a cell it will show PLAN MISMATCH IN CPOS WITH CAF, i have like this many words. i want load it another one computer instead of adding manual typing. is it possible?
I am trying to add new worksheets at the end of the existing ones, with the name "Scenario " & i (i being an integer for the next scenario).
My idea is to parse the Worksheet names, counting how many times the string "Scenario " appears, and then add a new Worksheet with that name and index i+1. Here is the
Public Sub store_data_Click()
Dim NameWS, prev_sheet As String
Dim iprev, iws, iscenario As Integer
iscenario = 1
For iws = 1 To Worksheets.Count
If Find(Sheets(iws).Name, "Scenario ") = True Then
iscenario = iscenario + 1
End If
1.- Find (8th line) does not seem to be the right procedure to use; how could I do this in a clean/direct (i.e. not writing the names into a dummy worksheet and using the find function) way?
2.- How could I substitute the new Worksheet ("Scenario " & i) formulas for values without having to select all the cells and then use paste values (not so elegant).
3.- Connecting to a previous post: How could I define *exactly* the position to paste "Autoshape 1"?
I am trying to use a dynamic VBA code to import data into a xcel sheet from another sheet. I currently have it working but in the code I have the directory and the file name listed for the file to be imported. I would like to change this to a cell referance inside my sheet so that I can make changes to the name of the file or the directory location and the VBA code would use the cell reference as the source data.
I have an auto generated report that is exported into .csv, my dilemma is that it sorts both the account code and the date in the same column, like this:
9884A B Gerrish Ltd Å“ 577.270577.270
30/09/201231/10/20121865518655277.010277.01MAL/553260
30/09/201231/10/20121884218842264.260264.26MAL/553259
30/11/201231/12/2012195541955436036MEL/549200
so "9884" and "30/09/2012" are in the same column.
Some how i need to turn this information to say the below three invoices are for account 9884, into more of a usuable data like:
9884 A B Gerrish Ltd 30/09/2012 etc etc.
Obviously through out the document this repeats for each account, upto some 1000 accounts.
jas.xlsx‎
Macro to export and import a module and assigning different macro automatically ...
View 9 Replies View RelatedI have a spreadsheet that runs a macro resulting in a different number of rows everytime the macro is run. Columns H, I & J are the only columns with currency in them. I would like a macro to find the bottom-most row of currency data in these columns and insert the Auto-sum formula in the row directly below each of these 3 columns. Then bold this row and increase the font by 2 points (or 12).
View 13 Replies View Related Lets say we have prices in column (B) and in column (F) I want to insert a formula that says:
In the same row, look at cell in column (B). If price is between 1000 and 8000 then put 2.00 if price is between 500-999 then put 0.50 if price is between 1-499 then put 0.00
I need to achieve this using something like =OFFSET(INDIRECT(ADDRESS(ROW(), COLUMN())),0,-1) but I am not sure how its done.
I will be using this formula in a find and replace macro. So I can NOT make the typical drag and fill formula.
I have the following code working well. I'd like the pdf to be saved to the users local machine before it emails it. The user must be able to choose the path. How can I do this?
[Code].........
I would like vba code that will export a given group of cells, or a defined print page area to a jpg file (preferable, but other image format would work). I'm planning to create a program that will change some cell data and create a jpg file for various sets of data.
I suppose if that's not possible that another alternative would be ok, so i'm open to suggestions, but the export to jpg format would be great. I found a little program that will do it, but i wanted to include the code in my program to make it all automated.
Export ALL modules, forms, objects etc in one workbook to another and if that can't be done than at least all modules and/or objects. This is so I can change code but leave the formulas/values etc in the main excel sheets. Basically it would need to delete all VBA code and copy, I guess from a text file to insert the new code, at least for modules and objects. Forms, I don't know how that can be done?
I am new to VBA and i need to write a VBA code that should transfer or export any selected thing (whether it may be table, cell or chart ) in Excel Sheet to Powerpoint presentation. My excel Sheet consist of a table and a chart generated from this table.
View 9 Replies View RelatedI'm currently trying to automate the process of creating Data Validation.
PFA.
I have Grades and Names List.
" GradesList " Range has values "One, Two, Three, Four "
I'm trying to map Names List to GradesList using INDIRECT().
Debug the function DataValidation() to understand the issue better.
how to process this non-numerical. I tried to use formulas but it wasn't fruitful. refer the table and.
Name
English
G
Maths
G
Science
G
History
G
Aggregate
Result
Achievement
[Code] ......
****The aggregate derived from the grade of the subjects , where each grade will be given a pointer and the average pointer for all four subjects will be considered as aggregate :
Pointers for grades
A =1
B=2
C=3
D=4
E=5
This is how the aggregate for Alex should be counted:
English A = 1
Maths C = 3
Science B = 2
History A = 1
*****aggregate = (1+3+2+1)/4 =1.75
The result column be showing Pass/Fail. If the student fail one of the four subjects he is considered as Fail.
**Grade D and E =>Fail
The Achievement Column should be indicating the numbers of As, Bs and Cs
for example: O6= A(2),B(1),C(1)
I have a database which contain many rows and columns. I tried using Pivot Tables to pull out the data from sheet 1 to look like the format in sheet 2, but without success.
View 5 Replies View RelatedFrom a large set of process data, I would like to copy those instances where there is indeed a measurement available to a different sheet automatically.
The original data looks like this:
Time Temperature
02-Jan-2010 11:41:50 156.1
02-Jan-2010 11:42:50
02-Jan-2010 11:43:50
02-Jan-2010 11:44:50 157.3
02-Jan-2010 11:45:50
02-Jan-2010 11:46:50 156.8
02-Jan-2010 11:47:50 156.4
02-Jan-2010 11:49:50
02-Jan-2010 11:50:50 157.2
The resulting data shoot look like this (in a different sheet):
Time Temperature
02-Jan-2010 11:41:50 156.1
02-Jan-2010 11:44:50 157.3
02-Jan-2010 11:46:50 156.8
02-Jan-2010 11:47:50 156.4
02-Jan-2010 11:50:50 157.2
I have actually been learning quite a few tricks on my own since I started this data analysis project but I believe this requires some experience with macros, which I really don't have.
My problem is that data from previous applications are "bleeding" into new applications while running my macro.
I am utilizing the macro below to paste an application and then to convert the application to upper case in addition to some additional formating changes. After performing the macro I save the newly created document to a different folder. With new applications I repeat the above steps.
I tried to incorporate the clearing of the clipboard in my macro using: Edit=>office clipboard=>clear all. The keys strokes during the " record macro" process do not seem to record in the macro.
I am using Excel 2003, SP2
Sub Process_Application()
'
' Process_Application Macro
' Macro recorded 3/23/2009
'
'
ActiveSheet.Paste
Columns("A:A").Select
I don't know if this is possible, but is there a way to have a macro in Excel copy and paste charts into a Powerpoint file? I've got a program that creates all the material needed for a Powerpoint slide deck and I want to automate the copy/paste work.
View 2 Replies View RelatedI am trying to write a macro which creates a new worksheet with the name kenmerk (i) and then import five different textfiles in this worksheet.
I was wondering how to define the name of the textfiles in the code. The code I get with record macro is: ...
Is it possible to write a macro that can import VBA code in a text file then execute it? I need this functionality as I have produced a corporate spreadsheet template that goes out to many people and I will need to be able to update it as requirements change once it has been distributed. So my idea was to build a macro in the template that has the code in it to import the "update code" from a text file that I would send to all the folks that have the template. If the template was centralized, that would save me from this issue but it is however going to be distributed widely.
View 5 Replies View RelatedI am writing some code to open up a file and use the text import as the files are data files. i currently have
View 4 Replies View RelatedWhat I would like to do is create a userform where I can input a case reference number and click a command button which searches the CSV/TXT file for any notes for the specific reference number and then returns all notes (seperated by a blank line) in the textbox within the userform in the posted/saved format.
I can find lots about importing to excel but nothing about importing data to userforms.
CSV file added for format. The userform contains two text boxes, one blank for import and one for completing the case reference number (format on CSV file. Line item 1).
i.e. if I searched by SL-001-0155648 I would get the below (It's not code but I thought the best way of showing what I mean):
[Code] .....
Attached File : Notes Test CSV.txt‎
I have to match the name of colleuges with the birthdate, id number and A B C D category. Now I have to excel tables one with the names participated in company programs one with all the names in the company and the above listed information.
I want to know how can the excel automatically match these datas without copy pasting it from one to another. I mean to search for the name in the second table and if its matching to fill the birthdate id and ABCD category automatically.