Message Box - more help please !!
 

Hi,
Thanks to Rowen and Michael for their help with my (simple) question, but I
have another.
The menu button I have created has the following code attached to it

Sub add_monday_jobs()
With Sheets("monday'S LOG").Range("A8:N34")
Sheets("Log").Range("A" & Rows.Count).End(xlUp).Offset( _
1, 0).Resize(.Rows.Count, .Columns.Count).Value = .Value

End With
MsgBox "All Today's Jobs Added Successfully !", vbInformation
End Sub

However is it possible to use this code so that it will add the required
data to the "log" regardless which sheet is open at the time.
As at present it will only work with worksheet "Monday's Log" and I want it
to do the given task regardless of which woprksheet is being used.

Hope that makes sense, and thanks in advance

Cheers

Anthony

Sub add_monday_jobs()
With ACtivesheet.Range("A8:N34")
Sheets("Log").Range("A" & Rows.Count).End(xlUp).Offset( _
1, 0).Resize(.Rows.Count, .Columns.Count).Value = .Value

End With
MsgBox "All Today's Jobs Added Successfully !", vbInformation
End Sub

perhaps

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Anthony" wrote in message
...
Hi,
Thanks to Rowen and Michael for their help with my (simple) question, but
I
have another.
The menu button I have created has the following code attached to it

Sub add_monday_jobs()
With Sheets("monday'S LOG").Range("A8:N34")
Sheets("Log").Range("A" & Rows.Count).End(xlUp).Offset( _
1, 0).Resize(.Rows.Count, .Columns.Count).Value = .Value

End With
MsgBox "All Today's Jobs Added Successfully !", vbInformation
End Sub

However is it possible to use this code so that it will add the required
data to the "log" regardless which sheet is open at the time.
As at present it will only work with worksheet "Monday's Log" and I want
it
to do the given task regardless of which woprksheet is being used.

Hope that makes sense, and thanks in advance

Cheers

Anthony

Thanks Bob
it worked just fine - easy when you know how
PS can you suggest any good books on VB for beginers which shows how to do
this kind of stuff??
thanks again
Anthony

"Bob Phillips" wrote:

Sub add_monday_jobs()
With ACtivesheet.Range("A8:N34")
Sheets("Log").Range("A" & Rows.Count).End(xlUp).Offset( _
1, 0).Resize(.Rows.Count, .Columns.Count).Value = .Value

End With
MsgBox "All Today's Jobs Added Successfully !", vbInformation
End Sub

perhaps

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Anthony" wrote in message
...
Hi,
Thanks to Rowen and Michael for their help with my (simple) question, but
I
have another.
The menu button I have created has the following code attached to it

Sub add_monday_jobs()
With Sheets("monday'S LOG").Range("A8:N34")
Sheets("Log").Range("A" & Rows.Count).End(xlUp).Offset( _
1, 0).Resize(.Rows.Count, .Columns.Count).Value = .Value

End With
MsgBox "All Today's Jobs Added Successfully !", vbInformation
End Sub

However is it possible to use this code so that it will add the required
data to the "log" regardless which sheet is open at the time.
As at present it will only work with worksheet "Monday's Log" and I want
it
to do the given task regardless of which woprksheet is being used.

Hope that makes sense, and thanks in advance

Cheers

Anthony

For a beginner, I would guess that John Walkenbach's VBA For Dummies book is
the best starter. You can then move up to his Power Programming book, or
John Green's Excel 2002 VBA Programmer's Reference.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Anthony" wrote in message
...
Thanks Bob
it worked just fine - easy when you know how
PS can you suggest any good books on VB for beginers which shows how to do
this kind of stuff??
thanks again
Anthony

"Bob Phillips" wrote:

Sub add_monday_jobs()
With ACtivesheet.Range("A8:N34")
Sheets("Log").Range("A" & Rows.Count).End(xlUp).Offset( _
1, 0).Resize(.Rows.Count, .Columns.Count).Value = .Value

End With
MsgBox "All Today's Jobs Added Successfully !", vbInformation
End Sub

perhaps

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Anthony" wrote in message
...
Hi,
Thanks to Rowen and Michael for their help with my (simple) question,
but
I
have another.
The menu button I have created has the following code attached to it

Sub add_monday_jobs()
With Sheets("monday'S LOG").Range("A8:N34")
Sheets("Log").Range("A" & Rows.Count).End(xlUp).Offset( _
1, 0).Resize(.Rows.Count, .Columns.Count).Value =
..Value

End With
MsgBox "All Today's Jobs Added Successfully !", vbInformation
End Sub

However is it possible to use this code so that it will add the
required
data to the "log" regardless which sheet is open at the time.
As at present it will only work with worksheet "Monday's Log" and I
want
it
to do the given task regardless of which woprksheet is being used.

Hope that makes sense, and thanks in advance

Cheers

Anthony

Cheers Bob, I'm off to have a look at Amazon for those then
many thanks again
Anthony

"Bob Phillips" wrote:

For a beginner, I would guess that John Walkenbach's VBA For Dummies book is
the best starter. You can then move up to his Power Programming book, or
John Green's Excel 2002 VBA Programmer's Reference.

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Anthony" wrote in message
...
Thanks Bob
it worked just fine - easy when you know how
PS can you suggest any good books on VB for beginers which shows how to do
this kind of stuff??
thanks again
Anthony

"Bob Phillips" wrote:

Sub add_monday_jobs()
With ACtivesheet.Range("A8:N34")
Sheets("Log").Range("A" & Rows.Count).End(xlUp).Offset( _
1, 0).Resize(.Rows.Count, .Columns.Count).Value = .Value

End With
MsgBox "All Today's Jobs Added Successfully !", vbInformation
End Sub

perhaps

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Anthony" wrote in message
...
Hi,
Thanks to Rowen and Michael for their help with my (simple) question,
but
I
have another.
The menu button I have created has the following code attached to it

Sub add_monday_jobs()
With Sheets("monday'S LOG").Range("A8:N34")
Sheets("Log").Range("A" & Rows.Count).End(xlUp).Offset( _
1, 0).Resize(.Rows.Count, .Columns.Count).Value =
..Value

End With
MsgBox "All Today's Jobs Added Successfully !", vbInformation
End Sub

However is it possible to use this code so that it will add the
required
data to the "log" regardless which sheet is open at the time.
As at present it will only work with worksheet "Monday's Log" and I
want
it
to do the given task regardless of which woprksheet is being used.

Hope that makes sense, and thanks in advance

Cheers

Anthony