So I am still having issues with this. The options that have been suggested so far will not work since I am making this for a friend of mine how is very computer illiterate. I am attaching the workbook with the macro that works and I am also posting the code from said macro.
Here is the code when the button on the first page is clicked:
Application.ScreenUpdating = False
Sheets("Job List").Select
Rows("1:4").Select
Range("A4").Activate
Selection.EntireRow.Hidden = False
Rows("2:2").Select
Selection.Copy
Rows("3:3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A3").Select
Application.CutCopyMode = False
Application.Run "'Form Trial7.xls'!AddToList"
Rows("1:3").Select
Range("A3").Activate
Selection.EntireRow.Hidden = True
Sheets("Job Information").Select
Range("C3").Select
Selection.ClearContents
Range("C4").Select
Selection.ClearContents
Range("C5").Select
Selection.ClearContents
Range("C6").Select
Selection.ClearContents
Range("C7").Select
Selection.ClearContents
Range("C8").Select
Selection.ClearContents
Range("C9").Select
Selection.ClearContents
Range("C10").Select
Selection.ClearContents
Range("C11").Select
Selection.ClearContents
Range("C12").Select
Selection.ClearContents
Range("C13").Select
Selection.ClearContents
Range("C14").Select
Selection.ClearContents
Range("C15:H15").Select
Selection.ClearContents
Range("C3").Select
Sheets("Job List").Select
Range("A5").Select
End Sub
Here is the code that the previous code runs:
Sub ImpressionAddJob()
'
' ImpressionAddJob Macro
' Macro recorded 4/17/2008 by Mike
'
'
Sheets("Job List").Select
Rows("1:4").Select
Range("A4").Activate
Selection.EntireRow.Hidden = False
Rows("2:2").Select
Selection.Copy
Range("A3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveWindow.SmallScroll ToRight:=7
Range("A3:X3").Select
Range("X3").Activate
Application.CutCopyMode = False
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
Range("A3").Select
Application.Run "'Form Trial6.xls'!AddToList"
Rows("1:3").Select
Range("A3").Activate
Selection.EntireRow.Hidden = True
Sheets("Job Information").Select
Range("C3").Select
Selection.ClearContents
Range("C4").Select
Selection.ClearContents
Range("C5").Select
Selection.ClearContents
Range("C6").Select
Selection.ClearContents
Range("C7").Select
Selection.ClearContents
Range("C8").Select
Selection.ClearContents
Range("C9").Select
Selection.ClearContents
Range("C10").Select
Selection.ClearContents
Range("C11").Select
Selection.ClearContents
Range("C12").Select
Selection.ClearContents
Range("C13").Select
Selection.ClearContents
Range("C14").Select
Selection.ClearContents
Range("C15:H15").Select
Selection.ClearContents
Sheets("Job List").Select
Range("A5").Select
End Sub
Here is the final goal that I am looking for:
1. To have this workbook and macro work in Excel for mac, I believe it is the 2008 version.
2. The data gets entered into the empty white cells on the "job information" tab.
3. Click the button on the "job information" tab.
4. The macro does the following:
a. Select the "job list" tab
b. Copy row 2
c. Paste Special / values only into row 3
d. Copy row 3
e. Search from the bottom of the tab and paste the data into the next empty row. In other words, have the macro paste the data into the next blank row so that each item just appends to the list.
f. Place the active cell into A1
g. Select the "job information" tab.
h. Clear all of the information in the white cells (not the formulas)
i. place the active cell into C3.
I hope this helps and that someone can help me. This project is kicking my butt and I really need to get it done soon.
Thanks in advance to anyone who is willing to give this a shot. You are amazing!
Bookmarks