Access over 20 million homework & study documents

Alldone

Content type
User Generated
Subject
Excel
School
University of Utah
Type
Homework
Rating
Showing Page:
1/2

Sign up to view the full document!

lock_open Sign Up
Showing Page:
2/2

Sign up to view the full document!

lock_open Sign Up
Unformatted Attachment Preview
Homework - 1 Dim TBRow As Integer Sub LoadTrialBalance() Dim StartRow As Integer Dim LastRow As Integer Dim N As Integer Dim M As Integer StartRow = Range("Start").Row LastRow = Range("End").Row Range("Start").Activate For N = StartRow To LastRow If ActiveCell.Value "" And ActiveCell.Value "END" Then Sheets("Trial Balance").Cells(TBRow, 1).Value = ActiveSheet.Range("B1").Value Sheets("Trial Balance").Cells(TBRow, 2).Value = ActiveCell.Value For M = 0 To 12 Sheets("Trial Balance").Cells(TBRow, M + 4).Value = ActiveCell.Offset(0, M + 2).Value Next M TBRow = TBRow + 1 End If ActiveCell.Offs ...
Purchase document to see full attachment
User generated content is uploaded by users for the purposes of learning and should be used following Studypool's honor code & terms of service.

Anonymous
Just the thing I needed, saved me a lot of time.

Studypool
4.7
Trustpilot
4.5
Sitejabber
4.4

Similar Documents