Home » Forums » Open Source Learning Center » Question and Answer

Please Help Me

Submitted by tonykumar on 12 April, 2011 - 03:44

I am trying to do this assignment since a week but I am not able to do it. Could you guys please help me with my work that would be appreciated.

I am enclosing 2 documents which are instructions and text book, please find them. In the instructions file especially on second step its killing me. Please help me guys because I have to submit this assignment to my class.

Please don’t mind that I am asking like this, I really don’t have any other choice. Hope you understanding my situation and do the need full.

AttachmentSize
INF 110 Challenges Chapter 4 Excel.pdf43.62 KB
‹ Second Help Please.... Filter by Day Parts, Please help ›
»
Vishesh's picture

Check this out

Submitted by Vishesh on 12 April, 2011 - 17:06.
Here is your code...Modify it according to your needs...The last part of Challenge5 remains to be solved. 
Sub Challenge4()
    Dim arr(1 To 5, 1 To 5)
    Dim intRow As Integer
    Dim intCol As Integer
    Dim intWriteRow As Integer
 
    'Read into array
    For intRow = 1 To 5
        For intCol = 1 To 5
            arr(intRow, intCol) = Worksheets("Sheet1").Cells(intRow, intCol)
        Next intCol
    Next intRow
 
    'Write to range
    intWriteRow = 1
    For intRow = 1 To 5
        For intCol = 1 To 5
            Worksheets("Sheet1").Cells(intWriteRow, "F") = arr(intRow, intCol)
            intWriteRow = intWriteRow + 1
        Next intCol
    Next intRow
End Sub
 
Sub Challenge5()
    Dim intRow As Integer
    Dim intCol As Integer
 
    'Read into array
    For intRow = 1 To 5
        For intCol = 1 To 5
            Worksheets("Sheet2").Cells(intRow, intCol) = Worksheets("Sheet1").Cells(intRow, intCol)
            Worksheets("Sheet3").Cells(intRow, intCol) = Worksheets("Sheet1").Cells(intRow, intCol)
        Next intCol
    Next intRow
 
End Sub
»

Thank you

Submitted by Anonymous on 16 April, 2011 - 22:25.

It worked... Thank you very much.

»

Thank you

Submitted by tonykumar on 13 April, 2011 - 05:48.

Thanks a lot for your work. to be honest i haven't tried but i will let you know the result soon.

But once again i thank you very much my friend "Vishesn" ... :o)

»