Data Report Balance Sheet
Have been working on an inventory system which has a POS and producing accounting reports. All the samples I have dont work at all to the point I discarded them all thus have no reports at the moment. Can any one out there help me ????? Its the only thing left to complete the system
View Complete Forum Thread with Replies
See Related Forum Messages: Follow the Links Below to View Complete Thread
Running Balance In Data Report
Hi,
I want to create a report using data report tool in which I require a running balance i.e. Can you the balance of previous record for calculation in the current record and same for others.
Thanks.
Saud
Balance Sheet And Income Statement
Hi all,
Any one help me, how make a balance sheet report and Income Statement report using active report (ARViewer).
any exemple for make this report?
thanks
Eko Budi
How To Export Data Report In Excel Sheet
Hi,
I am using datareports to generate the reports in VB. I want to transfer datareports to excel sheet. Please let me know the code to transfer datareports in excel sheet.
thanks
In Crystal Reports, How To Display Financial Reports (P & L, Balance Sheet Etc.) In Columnar Format
Dear All,
I am developing a Financial application using VB6, MS-Access & Crystal Reports 8.5. I am facing problems in certain reports. Some of the reports like Profit & Loss and Balance Sheet require the output to be printed in columnar format.
I have tried giving subreports for each section, i.e.; Assets & Liabilities, but then, the output is not coming in order as per the groups. The problem is even more where there are sub-sections in the right side column & left side column for example in Profit & Loss, where there are sub-sections for Gross Profit/Loss and Net Profit/Loss. In such cases, how to bring the total amount fields at the same horizontal level.
I hope someone can help me how to do the above.
Thanks in advance.
Best Regards
Mahesh
Customers Balance Age Periods Report
Hay,
I want make report that give me details of balance periods
like some one his balance 5000 since more than 1 year,
before 5 says he take 1000
so now his balance =6000
but the report give me bakance age periods
Ex.
Account Name !! less 60 Days !! 61 ~180 Days !! 181 ~ Days!!Balance
-----------------------------------------------------------------------------------------------------
Gorge ----------- !! 1000 !! 0000 !! 5000 !! 6000
Matrix Style Report From Vertical Data Sheet
I am writing some code that creates a horizontal matrix report in excel with categories across both the top and left-side based on an existing data sheet with the data presented vertically -- like this:
ORIGINAL:
Label 1
A Data
A Data
B Data
C Data
Label 2
A Data
B Data
Label 3
B Data
Label 4 ...
PROPOSED (the underline is just to show the correct spacing -- spaces weren't showing up in post):
Label 1_______A Data_______B Data______ C Data
_____________A Data
Label 2_______A Data_______B Data
Label 3____________________B Data
Label 4 ...
I hope that makes sense. Any suggestions on the most efficient way to do this and some sample code. I was planning on using a with statement that just "loops" through it. I understand the if statements required to place the data in the appropriate columns -- it's the row manipulation that is confusing me this evening.
Any suggestions would be greatly appreciated. Thanks!
How To Copy Data From One Sheet And Paste In A Sheet In Multiple Workbooks
I'm pretty new to excel vba and I have a macro that I'm working where the goal is to copy the date out of one sheet and past it in another sheet but in multiple workbooks in a folder. Any help would be appreciated. Thank you.
Sub Copy()
Application.EnableEvents = False
Application.DisplayAlerts = False
Dim i As Long
Dim sFolder As String
Dim fldr As Object
Dim FSO As Object
Dim Folder As Object
Dim file As Object
Dim Files As Object
Dim this As Workbook
Dim cnt As Long
Set FSO = CreateObject("Scripting.FileSystemObject")
Set this = ActiveWorkbook
sFolder = "My Folder"
If sFolder <> "" Then
Set Folder = FSO.GetFolder(sFolder)
Set Files = Folder.Files
cnt = 1
For Each file In Files
If file.Type = "Microsoft Excel Worksheet" Then
Workbooks.Open Filename:=file.Path
With ActiveWindow
Range("A1:T12005").Select
Selection.Copy
With ActiveWorksheet
Sheets("Sheet 1").Activate
Range("A1").Select
ActiveSheet.Paste
Selection.Interior.ColorIndex = xlNone
ActiveWorkbook.Close SaveChanges:=True
End With
cnt = cnt + 1
End If
Next file
End If ' sFolder <> ""
Application.EnableEvents = True
Application.DisplayAlerts = True
End Sub
Please post in the approriate sections of the site. This post has been moved to the VBA section from VBCity News
Edited by - vikramjb on 8/10/2006 10:01:31 PM
How To Retrieve Ms Excell Data (sheet Name) To Sql Table Using Vb (Data Conversion)
hi
i have problem to retrieve a ms excell data to sql table (i'am using sql 2000) using visual basic.
then another problem is after the conversion process, how to retrieve the certain sql field (example name field) and
make it into shortname (example robert joseph to robert) without adding the last name and update it into sql table.
my limitation for the shortname is 12 character.
plss help me
Preprinted Sheet Report
Hi!
I am doing a report for Delivery Challan. It is a preprinted sheet(80 colums). It has two challans in one page. The report will be taken one at a time, and it is a continous sheet.
The problem is after taking one challan the printer is auotmatically going to next paer neglecting the one in the same page.
Every time i have to manually adjust the paper. Any help plz.
Report Output To Excel Sheet
We are developing a small office application using VB with Access DB.
We need to create some reports that will export the data to certain Excel Templates.
Please let me know what is the best way? Or are there any ready made scripts available for this purpose?
Thanks
Creating Report In Excel Sheet
Hello Friends,
Nice to be inside VBWorld after a while.
I have created a recordset from two different tables and I need to export the data to an excel sheet in a predefined report format.
Any suggestion on this.
Multiple Data Report Title In Data Report Designer....?
hello there, I'm working on a project that is using the Data Environment and the Data Report Designer to create reports. I've stumbled my way through setting up some reports but I'm having trouble with report title.
How can I make 2 report title in the insert control in vb? Is there any other way I can make another one report title in the insert control......?
How Can Make A Dynamic Report Using Data Report And Data Environment???
what i know is binding certain records using select sql statements. but the problem is that what if i would like to filter and use some conditions to get necessary records to be diplayed on the report using data report and data environment..
what i did was a static report using the tools.. somebody help me to show how to make a dynamic report queries and output it through data report with the help of the data environment.
thank you..
Urgent Data Report Error "Report Sections Do Not Match Data Source"
hi this is my code when i try to run the report, the error message will come out saying that "Report section do not match data source" thanks
datefrom1 = Format(DTPicker3.Value, "mm/dd/yyyy")
dateto1 = Format(DTPicker4.Value, "mm/dd/yyyy")
z = 0
medicationreport.Sections("Section4").Controls.Item("lblfrom").Caption = DTPicker3.Value
medicationreport.Sections("Section4").Controls.Item("lblto").Caption = DTPicker4.Value
strConn = ("Driver={SQL Server};Server={.};database=ccmsEquine;Uid=;Pwd=;")
conn.Open strConn
Set rs1 = conn.Execute("SELECT count(*) FROM Drug D, Vdrug VD, Visit V WHERE V.visit_id = VD.visit_id AND D.drugid = VD.drug_id AND V.Time_in >= '" & datefrom1 & "' AND V.Time_in <= ('" & dateto1 & "')")
numf = rs1(0)
rs.Open "SELECT D.Druggroup,D.brand,SUM(VD.Qty)as qty,SUM(VD.UnitCost)as unitcost FROM Drug D, Vdrug VD, Visit V WHERE V.visit_id = VD.visit_id AND D.drugid = VD.drug_id AND V.Time_in >= '" & datefrom1 & "' AND V.Time_in <= ('" & dateto1 & "') GROUP BY D.DrugGroup,D.brand ORDER BY D.druggroup,D.brand", conn, adOpenStatic, adLockReadOnly
If numf > 1 Then
With medicationreport
Set .DataSource = Nothing
.DataMember = ""
Set medicationreport.DataSource = rs
With .Sections("Section6").Controls
For intCtrl = 1 To .Count
'Place one unbound text at the details
If TypeOf .Item(intCtrl) Is RptTextBox Then
.Item(intCtrl).DataMember = ""
.Item(intCtrl).DataField = rs(z).Name
z = z + 1
End If
Next intCtrl
End With
With .Sections("Section1").Controls
For i = 1 To .Count
'Place one unbound text at the details
If TypeOf .Item(i) Is RptTextBox Then
.Item(i).DataMember = ""
.Item(i).DataField = rs(z).Name
z = z + 1
End If
Next i
End With
.Show
End With
How To Get The Data From A Excel Sheet And Use The Data.
This is a multi-part message in MIME format.
--------------InterScan_NT_MIME_Boundary
Content-Type: multipart/alternative;
boundary="----=_NextPart_000_01AC_01C15D7E.BEC52C60 "
------=_NextPart_000_01AC_01C15D7E.BEC52C60
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Hi
I want some help , I'm new and it is many years since I haveprogramming.
And now I want to learn, and I know the best way is to try and fail.
So I have start on a project where I will read a EXCEL Sheet with 4colums
and I want to have a window with 4 text boks.And if I search for anumber or
a word in one of them it will take what is in the row and fill in theother 3.
Anyone that can help me ?
The sheet is like this
column 1 column 2 column 3 column 4
400000 This is a test L-12345 The test is goingwell
Thank you everyone
------=_NextPart_000_01AC_01C15D7E.BEC52C60
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=iso-8859-1"http-equiv=Content-Type>
<META content="MSHTML 5.00.2919.6307" name=GENERATOR>
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT face=Arial size=2>Hi</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2>I want some help , I'm new and it ismany years
since I have programming.</FONT></DIV>
<DIV><FONT face=Arial size=2>And now I want to learn, and I know thebest way is
to try and fail.</FONT></DIV>
<DIV><FONT face=Arial size=2>So I have start on a project where Iwill read a
EXCEL Sheet with 4 colums</FONT></DIV>
<DIV><FONT face=Arial size=2>and I want to have a window with 4 textboks.And if
I search for a number or </FONT></DIV>
<DIV><FONT face=Arial size=2>a word in one of them it will take whatis in the
row and fill in the other 3.</FONT></DIV>
<DIV><FONT face=Arial size=2>Anyone that can help me ?</FONT></DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2>The sheet is like this</FONT></DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2>column 1
column 2 column 3
column 4</FONT></DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2>400000 This is
a test L-12345
The test is going well</FONT></DIV>
<DIV> </DIV>
<DIV> </DIV>
<DIV><FONT face=Arial size=2>Thank youeveryone</FONT></DIV></BODY></HTML>
------=_NextPart_000_01AC_01C15D7E.BEC52C60--
--------------InterScan_NT_MIME_Boundary--
Data Sheet
Hi,
I know how to get data from access, SQL etc and using a recordset but
what is the best component in VB6 to put the data into?
I know you can use a Listbox but this is to limited because of the way columns in a listbox work and not what I need.
Thanks.
How Do You Put Data Into An Embeded Xl Sheet?
Hi, ive been looking though my vb book and could not find out how to do this, so
1. could anyone tell me what you do to put data into a Microsoft Excell Sheet ? (has to be excell).
Oh yeah this is another thing I had trouble with, not really important but when you doubble click on the sheet (at run time) so you can change it and stuff, the 1, 2, 3, 4, 5 and a ,b,c, d column labels appear and make the sheet bigger, so is there any way to hide the 1 ,2 ,3 and a, b, c d, things?
hmm that second question was confuzing
ill try to draw it.
Quote:
_________________________________________________
| | A | B | C | D | E | F | G | I | J | K | L | M |
____________________________________________
| 1 | | | | | | | | | | | |
____________________________________________
| 2 | | | | | | | | | | | |
Any help appreciated.
Transferring Certain Data To Another Sheet
The first table show the raw data. I need to extract some datas to another sheet which is shown on the second table. I will input the date and then thru the code, it will only extract the data (those highlighted in yellow which is on that date) into those designated cells. The raw data will keep changing and expanding so i need a vba code to generate this, need your help on this, thanks!
Data From An Excel Sheet To Vb
Hi! I 've made an excel sheet where some functions are calculated and I 'd like to know if there is a way to connect this data to a vb6 program that I also made. This means taking the relults from the sheet and using them in vb6 in order to draw some lines.
If it's too general and need more info please ask!
I 'm really really desperate ...... and I 've ran out of time!!!!
thanx in advance!
Move Data To New Sheet
hi all
i have set a list box with checkbox to display my records from sheet 1 of my database
once i have selected the records i want how do i tranfer them to another sheet
cheers
Doug uk
Sheet Hidden Data
Hi all,
I have a quiestion again, this time about Excel, I'm trying to made a template that trhe user will use to add data to my Datrabase, some fields in that excel sheet are important and if the user change them the Capturing method will fail or will does a wrong work, well, I need to hide these values into Hidden Cells or something, is this possible ?
Thanks in advance
P.S. Any idea will be well received !
Data Sheet Design
Hi! Is it possible to change the height of the first row in a data sheet in access? I have a lot of text and I donīt want my columns to be unecessery width. I mean the row with the names of the columns. I have not found any settings for this, If someone know, please answer,...
/veronica
Getting Data From An Excel Sheet
I haven't used VB 6 to open an excel sheet before. What I am looking for is some sample code that I can use to guide me through my code. I have already found some info for the Projects > References > Microsoft Excel 11.0 object library.
Here is what I am trying to do:
Open an excel spreadsheet (Vol1.xls)
Populate labels with cell data
Also, on a side note, should I populate an array with the cell data, or read the spreadsheet each time I need cell data?
Thanks for helping!
Data In To 2 Excel Sheet?
Hi all,
Im using an app someone send me on this forum.
Basically, it takes data from a table in access and moves it to a sheet in excel using VB.
I have two tables, I can take data from both tables: but how can you put them in two separate excel sheets?
Plz see attached tool
Thanks,
Danny
Added RESOLVED to thread title and green resolved checkmark - Hack
Printing A Data Sheet
Hi,
A simple question: What is the best way to print a data form on the printer? I just want to print a form with a two column table and a title on top, which will contain data from another form in my project, something like this
LOG SHEET
Branch NIC LIM MOS
Problem Bla bla bla
but with lines and everything.
I thought of creating another form and drawing everything there and then passing the data from the main form and printing it using PrintForm, but there should be a more efficient way right?
Another thought is to draw everything in the Printer object but that is gonna take too much time for such a simple thing.
Any suggestions? Thanks.
Need Help Creating A Data Sheet
I want to create a data sheet or data table or spreadsheet that will allow me to insert the following:
Cell 1Job name
Cell 2Cat name
Cell 3A numeric value
Cell 4A numeric value
Cell 5A numeric value
Cell 6Display the average of the 3 numeric values
I am totally new to VB and I am using VB 2005 express edition. I would be very grateful if someone could tell me in plain English how to complete this. I have done this before in excel but I want to create this as a standalone app that does not need excel to work.
Please help
Need Help Creating A Data Sheet
I want to create a data sheet or data table or spreadsheet that will allow me to insert the following:
Cell 1Job name
Cell 2Cat name
Cell 3A numeric value
Cell 4A numeric value
Cell 5A numeric value
Cell 6Display the average of the 3 numeric values
I am totally new to VB and I am using VB 2005 express edition. I would be very grateful if someone could tell me in plain English how to complete this. I have done this before in excel but I want to create this as a standalone app that does not need excel to work.
Please help
Hiding Data In A Sheet
I fill a spreadsheet with data.
I also want to put some data into some cells in excell and lock and hide these cells. This I can do but I also want the actual data in the cells to not be displayed to the people using the spreadsheet. How do I make the data invisible to the users?
I still want to be able to get the data from my module with the Range object when the user wants to update the same speradsheet. (The application reads the hidden parameters and write new data to the spreadsheet)
I read something about CUSTOMdocumentproperties. Is that a good solution for this purpuse or should I use something else?
Last Row/col In Excel Sheet Containing Data
Hi
If anyone guide me to do the following, I will be obliged. I am using VB.NET.
How to find the last row or column number of excel sheet containing data using the VBA.
Dim Dim loXLAPP As Excel.Application
Dim loXLSheet As Excel.Worksheet
loXLAPP = New Excel.Application()
If Dir(txtImpFileName.Text) <> "" Then
loXLAPP.Workbooks.Open(txtImpFileName.Text)
Else
MsgBox("File '" & txtImpFileName.Text & " 'not found, QUITING ...", MsgBoxStyle.Information)
Return
End If
loXLSheet = loXLAPP.Sheets(1)
For i = 2 To 20 'loXLSheet.Rows.Count gives 65000 rows
For Each j In lcCols 'loXLSheet.Rows.Count gives 256 columns
s = loXLSheet.Cells(i, j).Value
If Not s Is Nothing Then
...........
End If
Next
Next
loXLAPP.Workbooks.Close()
loXLSheet = Nothing
loXLAPP = Nothing
Muhammad Idrees
email me
Placing Same Data To 2nd Sheet Via Sub
Having problem with the Add_Us sub.
The lastline Cells(NextRow, 0) = Val(txtUSNo.Text)" adding the USNo data to the cell stops even when I hover over the textbox name its showing the data as being there.
Code:Option Explicit
Dim USNo As Integer 'From US # Textbox
Dim DateAchvd As String 'From US date achvd textbox
Dim SD, NZQA, TEC, Weeks As String 'Current student date, NZQA, No of Weeks
Dim c1, c2, c3, c4, PAc, PAu, u1, u2, u3, u4 As Double 'Credits, PA & US's respectively
Dim tCurCrs, tCurUS, tCRs, tUS As Double 'Total: current credits, Units & credits & units
Dim Avg As Double 'Avg credits/week to date
Private Sub UserForm_Initialize()
SD = Sheets("US Prgss").Cells(10, 3).Value
NZQA = Sheets("US Prgss").Cells(13, 3).Value
TEC = Sheets("US Prgss").Cells(14, 3).Value
Weeks = Sheets("US Prgss").Cells(12, 3).Value
c1 = Sheets("US Prgss").Cells(18, 3).Value
c2 = Sheets("US Prgss").Cells(19, 3).Value
c3 = Sheets("US Prgss").Cells(20, 3).Value
c4 = Sheets("US Prgss").Cells(21, 3).Value
u1 = Sheets("US Prgss").Cells(18, 1).Value
u2 = Sheets("US Prgss").Cells(19, 1).Value
u3 = Sheets("US Prgss").Cells(20, 1).Value
u4 = Sheets("US Prgss").Cells(21, 1).Value
tCurCrs = Sheets("US Prgss").Cells(22, 3).Value
tCurUS = Sheets("US Prgss").Cells(22, 1).Value
tCRs = Sheets("US Prgss").Cells(23, 3).Value
tUS = Sheets("US Prgss").Cells(23, 1).Value
Avg = Sheets("US Prgss").Cells(24, 3).Value
PAc = Sheets("US Prgss").Cells(17, 3).Value
PAu = Sheets("US Prgss").Range("PA_Units").Value
'ThisWorkbook.Worksheets(1).Range("RangeA1").Value
'Sheets("US Prgss").Cells(17, 1).Value
txtStartDate.Text = SD
txtNZQANo.Text = NZQA
txtTECID.Text = TEC
txtNoWeeks.Text = Weeks
txtCr1.Text = c1
txtUS1.Text = u1
txtCr2.Text = c2
txtUS2.Text = u2
txtCr3.Text = c3
txtUS3.Text = u3
txtCr4.Text = c4
txtUS4.Text = u4
txtPACrs.Text = PAc
txtPAUnits.Text = PAu
txtTotalCrCur = tCurCrs
txtTotalCrUnits = tCurUS
txtAvgCrPerWeek = Avg
txtTCrs = tCRs
txtTUnits = tUS
End Sub
Private Sub btnCancel_Click()
Unload FrmStuData
End Sub
Private Sub btnOK_Click()
'To enter US data & show uodated calculations
USNo = Val(txtUSNo.Text)
'DateAchvd = Format(Left(txtDateAchvd.Text, 2), "dd") & Format(Right(txtDateAchvd.Text, 2), "mm")
DateAchvd = Format(txtDateAchvd.Text, "Medium Date")
'Make sure US Prgrss is active
'Activate
'Ensure US No is entered
If Not IsNumeric(Me.txtUSNo.Text) Then
MsgBox "Type a value please"
Else
If Not Val(txtUSNo.Text) > 55 And Val(txtUSNo.Text) < 20589 Then
MsgBox "Enter Valid amount between 50 to 20600", vbOKOnly
txtUSNo.Text = ""
txtUSNo.SetFocus
Else 'Ensure date is entered - needs more work
If txtDateAchvd.Text = "" Then
MsgBox "Please enter valid Date Format", vbOKOnly
txtDateAchvd.Text = ""
txtDateAchvd.SetFocus
Else
'Workbooks("06US_StudentVBA test.xls").Select
ActiveWorkbook.Sheets("US Prgss").Select 'Select
Range("S6:CZ6").Select
Selection.Find(What:=USNo, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
ActiveCell.Offset(1, 0).Select
ActiveCell.FormulaR1C1 = DateAchvd
End If
End If
End If
Add_US 'Places USno on NatCert sheet
txtUSNo.Text = ""
txtDateAchvd.Text = ""
'txtStartDate.Text = SD
'txtNZQANo.Text = NZQA
'txtTECID.Text = TEC
'txtNoWeeks.Text = Weeks
UserForm_Initialize
ActiveWorkbook.Sheets("US Prgss").Select 'Select
ActiveCell.Range("C7").Activate
End Sub
Private Sub Add_US()
'To add US to NatCert progress
Dim NextRow As Long
ActiveWorkbook.Sheets("NatCert").Activate
'Determine the next empty row
NextRow = _
Application.WorksheetFunction.CountA(Range("A5:A50")) + 1
' Transfer the name
Cells(NextRow, 0) = Val(txtUSNo.Text)
End Sub
Balance
HIIIIIII
any one know how to make a balance to the speaker (left or right) bychanging the volume control balance of the volume control window (notthe wave control balance)
AHMED
Trasfer Data Into A Excel Sheet
Hi !
I transfer data from a recordset to a excelsheet.
I want to show the data different colors, and need help how I code it.
I want following :
If tblJobber!Objekt = "Machine 1" Then "show it in Excel in color BLUE"
If tblJobber!Objekt = "Machine 2" Then "show it in Excel in color RED"
I use following code to transfer to Excel :
If rsCount >= 1 Then tblJobber.MoveFirst
Do Until tblJobber.EOF
If tblJobber!objekt <> objekt Then i = i + 1
objekt = tblJobber!objekt
oWS.Range("A" & i).Value = tblJobber!OpprettetDato
oWS.Range("B" & i).Value = tblJobber!Intervall
oWS.Range("C" & i).Value = tblJobber!objekt
oWS.Range("D" & i).Value = tblJobber!Objektsted
oWS.Range("E" & i).Value = tblJobber!Beskrivelse
oWS.Range("F" & i).Value = tblJobber!FeilensArt
oWS.Range("F" & i).Value = tblJobber!FeilensArt
oWS.Range("G" & i).Value = tblJobber!Prioritering
oWS.Range("H" & i).Value = tblJobber!InnmeldtAv
tblJobber.MoveNext
i = i + 1
Loop
Can someone help me ?
Extract Data From Into A Excel Sheet
I want to use following code, but have problem with the "range".
I need to insert something into field "A6" and "B6" etc.
When the the MoveNext command is done, I want next line "A7" and "B7" etc.
Can someone help me ?
Get some error with this code ("A" + (i))
My code is :
i = 6
If rsCount >= 1 Then tblJobber.MoveFirst
Do Until tblJobber.EOF
oWS.Range("A" + (i)).Value = tblJobber!OpprettetDato
oWS.Range("B" + (i)).Value = tblJobber!Objekt
oWS.Range("C" + (i)).Value = tblJobber!Objektsted
oWS.Range("D" + (i)).Value = tblJobber!Beskrivelse
oWS.Range("E" + (i)).Value = tblJobber!FeilensArt
oWS.Range("F" + (i)).Value = tblJobber!Prioritering
oWS.Range("G" + (i)).Value = tblJobber!Intervall
tblJobber.MoveNext
i = i + 1
Loop
Reading Data From An Excel Sheet In VB 6
Hi all,
I am fairly new to VB and need some help on a task I need to accomplish. Basically I am trying to extract a value from a cell based on the result in my vb form.
For instance when a person's age comes out to 32.68 when I calculate the actual age to a specific date from the DOB.
The sheet is broken down as follows:
Age Male
32 43.8
33 42.9
32 is in cell A30
33 is in cell A31
43.8 is in cell B30
42.9 is in cell B31
So what I need to do is search the sheet and find the values of B30 and B31 since the age falls between ages 32 and 33, (which are cells A30 and A31).
Unfortunately the boss does not want to use a DB which would make it so much simpler so I need to figure this one out. Any help is appreciated and I have not had any luck getting it to work.
Thanks
Keep Title Row When Scrolling The Data Sheet?
Hello, Everyone,
I tried to keep the title row when I was scrolling the data sheet. Is there any way to do it? I also want to do it by VBA. Then, go to VB program.
Thank you very much!
Charlie
Reading Data From An Excel Sheet
Hi
Does anyone know how I can read data from an excel spreadsheet.
The location of the sheet will be held in a variable that I know how to do. The excel sheet will have variable lenghts and sizes. I need to read all data except the first and last line which need to be read seperatly.
Thanks
Paul
About ACCESS Form/Data Sheet
I'm coding an ACCESS project.
I have a button in a data manage(insert/update/delete record). When button pressed, we'll go to next page(next form). But before went to next page, I want to save current page.
The problem is I'm not sure it's a new add record or an updated record. How do I know that? And what is the best way to do it?
Thanks
Append Data In Excel Sheet
i am trying to append data to an excel workbook of 4 sheets. there are 6 fields all the fields to take data from text boxes
How do i enter those fields from a form
how do i find the last row to append the data
How To Determine Whether Excel Sheet Contains Any Data Or Not.
Can anyone tell how can we determine whether the excel sheet is empty or not.I have to display the list(name) of the excel sheet in particular file.But i don't want to display those sheets which doen't contain any data.
Any help or suggestions are appreciated.Thanks in advance.if anybody know please reply soon.
Why My Excel Data Sheet Can't Be Saved?
Hello, Everyone:
My Excel tried to acquire data and save itself and to two other copies everytime. It works fine for long time. However, it can not save Excel data properly recently. I wonder what is wrong with my following code? There is no any error pop out.
Would someone be kind to help me out?
Thank you very much!
Charlie
Code:
On Error Resume Next
Application.EnableEvents = False
ActiveWorkbook.Save
Application.EnableEvents = True
If (Not IsWorkBookOpen("LogViewBackup2")) Then
On Error Resume Next
ActiveWorkbook.SaveCopyAs Filename:=FilePathBackupData & "LogViewBackup2.xls"
End If
On Error Resume Next
ActiveWorkbook.SaveCopyAs Filename:=FilePathRawData & "LogViewBackup1.xls"
On Error GoTo 0
How To Update My Data Sheet Dynamically?
Hello, Everyone,
I have one data sheet. When it is open, it still needs to be update periodically according to another data sheet. Let me explain it in more detail.
I have one LogView.xls, it saves as BackupLogView1.xls and BackupLogView2.xls. LogView.xls is acitved to accepted the data from outside. When BackupLogView1.xls is open, it is required to updated and let customer to see the changes.
I don't know how I should program it. Firstly, I can detect whether BackupLogView1.xls is open. If It is open, then I can close and open BackupLogView2.xls. Then, I can detect whether BackupLogView2.xls is open, if it open, close it and open BackupLogview2.xls. It is open, close in 30 second based.
Now, the problem how I close BackupLogView1.xls and open BackupLogView2.xls periodically? Would someone be kind to let me know how I program it?
Or is there any other good idea to do it?
Thank you very much!
Charlie
|
TRACKER
