Wrox Programmer Forums

Need to download code?

View our list of code downloads.

Go Back   Wrox Programmer Forums > Search Forums
Password Reminder
Register
| FAQ | Members List | Calendar | Search | Today's Posts | Mark Forums Read
Welcome to the p2p.wrox.com Forums.

You are currently viewing the section of the Wrox Programmer to Programmer discussions. This is a community of tens of thousands of software programmers and website developers including Wrox book authors and readers. As a guest, you can read any forum posting. By joining today you can post your own programming questions, respond to other developers’ questions, and eliminate the ads that are displayed to guests. Registration is fast, simple and absolutely free .
DRM-free e-books 300x50
Showing results 1 to 25 of 180
Search took 0.01 seconds.
Search: Posts Made By: mjppaba
Forum: Excel VBA January 25th, 2006, 03:52 AM
Replies: 3
Views: 959
Posted By mjppaba
I was about to say, the formula need to have a...

I was about to say, the formula need to have a quadruple " if it is to be recoginised as a string which is to be embedded into a formula...

"=IF('2006-1'!A2<>"""",'2006-1'!A2,"""")"


But then...
Forum: Excel VBA January 19th, 2006, 04:00 AM
Replies: 3
Views: 16,714
Posted By mjppaba
Hi, Rather than using [Insert]...[File] use...

Hi,

Rather than using [Insert]...[File] use the [insert]...[object] instead. when prompted it will display a dialogue box which you "insert from file" rather than making a selection from the list,...
Forum: Excel VBA January 11th, 2006, 11:49 AM
Replies: 2
Views: 10,289
Posted By mjppaba
Hi Fin, Sub Macro4() Dim myAddress ...

Hi Fin,

Sub Macro4()
Dim myAddress
Range("C10").Select
myAddress = Selection.Address
Range(myAddress).Select
End Sub

should sort your problems,
Forum: Excel VBA January 9th, 2006, 06:27 AM
Replies: 2
Views: 15,372
Posted By mjppaba
Hi Picco Sub check_borders() If...

Hi Picco

Sub check_borders()
If ActiveCell.Borders(xlEdgeBottom).LineStyle = xlLineStyleNone Then MsgBox ("Has No Line") Else MsgBox ("Has Line")
End Sub

cheers

Matt
Forum: Excel VBA January 4th, 2006, 10:27 AM
Replies: 2
Views: 2,186
Posted By mjppaba
I have just tested the following three types of...

I have just tested the following three types of events...

In all 3 scenarios I have the following code in the workbook object.

Private Sub Workbook_Open()
MsgBox ("Boo")
End Sub

Scenario 1...
Forum: Excel VBA January 4th, 2006, 05:26 AM
Replies: 2
Views: 3,731
Posted By mjppaba
Can you hit the function key F8 until you...

Can you hit the function key F8 until you encounter the error, the line that fails is highlightedto be highlighted in yellow. VBA automatically goes to the userform.show line if an error like this...
Forum: Excel VBA December 21st, 2005, 01:03 PM
Replies: 1
Views: 2,941
Posted By mjppaba
Doesn't sound right to me, 1mb is peanuts, can...

Doesn't sound right to me, 1mb is peanuts, can you describe what else is going on in you pc's world. I sometimes get messages informing of problems with the virtual memory size, usually sorted out by...
Forum: Excel VBA December 21st, 2005, 12:58 PM
Replies: 3
Views: 1,675
Posted By mjppaba
Is there a particular reason why a pivot table is...

Is there a particular reason why a pivot table is the preferred tool. It sounds like you might just need the raw data in a table with an autofilter allowing the selection criteria to be made?

The...
Forum: Excel VBA December 21st, 2005, 11:22 AM
Replies: 2
Views: 1,505
Posted By mjppaba
Is this what you were after? Sub...

Is this what you were after?

Sub Change_Excel_Size()
Application.WindowState = xlNormal
With Application
.Left = 222.25
.Top = 289.75
.Width = 127.5
.Height = 30.75
End With
Forum: Excel VBA December 21st, 2005, 11:17 AM
Replies: 8
Views: 12,878
Posted By mjppaba
Hi crmpicco, usually it is a process of...

Hi crmpicco,

usually it is a process of hitting the [TAB->] key until the checkbox becomes the active object, then press the [space bar] to toggle the on/off.


Sorry about not getting back re...
Forum: Excel VBA December 19th, 2005, 12:45 PM
Replies: 8
Views: 12,878
Posted By mjppaba
1. Do you use loops in your code. If so it may...

1. Do you use loops in your code. If so it may be quicker to sort the data using the 3 primary key fields, then conduct a find rather than loop.

2. Do you have lots of calculations/ functions...
Forum: Excel VBA December 19th, 2005, 12:34 PM
Replies: 3
Views: 1,595
Posted By mjppaba
Oops silly me, did I forget the Text to columns...

Oops silly me, did I forget the Text to columns bit! Sorry


Sub mdl_ForEachFileInFiles()

Dim myCurrDir As String
Dim myFScript
Dim myFolder
Dim myFile
Dim myFileCollection
Forum: Excel VBA December 19th, 2005, 12:28 PM
Replies: 3
Views: 1,595
Posted By mjppaba
Hi Alternatively try this for size!! ...

Hi

Alternatively try this for size!!

Sub mdl_ForEachFileInFiles()

Dim myCurrDir As String
Dim myFScript
Dim myFolder
Dim myFile
Forum: Excel VBA November 17th, 2005, 04:01 AM
Replies: 17
Views: 3,587
Posted By mjppaba
Taking this on a bit further, another way could...

Taking this on a bit further, another way could be to insert the copied row into row 2 of sheet 2 with all other rows being pushed down one line, 6 of one half a dozen of another?

Sub CopyData()...
Forum: Excel VBA November 17th, 2005, 03:54 AM
Replies: 2
Views: 680
Posted By mjppaba
Hi Tony, I just bundled this togther for...

Hi Tony,

I just bundled this togther for you...

startdate = Range("A3")
stopdate = Range("A4")
stopyear = CDate(("31 December " & Year(startdate) + 1))
If IsDate(startdate) And...
Forum: Excel VBA November 15th, 2005, 01:09 PM
Replies: 13
Views: 148,135
Posted By mjppaba
Just a quickie, above works fine for me, can...

Just a quickie,

above works fine for me, can you go into Excel and check the following...

In Menu [Tools]...[Macro]...[Security]

What setting do you have?

Matt
Forum: Excel VBA November 15th, 2005, 10:20 AM
Replies: 1
Views: 1,861
Posted By mjppaba
Hi try something like this... ...

Hi

try something like this...

Range("A1").Select
On Error Resume Next
i = WorksheetFunction.Search(ActiveCell.Text, ActiveCell.Offset(1, 0).Text)
on error goto 0
If i = False Then...
Forum: Excel VBA November 3rd, 2005, 04:52 AM
Replies: 27
Views: 31,669
Posted By mjppaba
Alternatively... ActiveCell.Value =...

Alternatively...

ActiveCell.Value = Left(ActiveCell.Value, Len(ActiveCell.Value) - 1)

This takes the length of the content and reduces it by 1 and uses that value to extract the specified...
Forum: Excel VBA October 19th, 2005, 03:04 AM
Replies: 1
Views: 1,522
Posted By mjppaba
Yep, Do you want to connect to SQL, Oracle,...

Yep,

Do you want to connect to SQL, Oracle, Unix, Text files, Access or another data source.

Matt
Forum: Excel VBA October 12th, 2005, 05:38 AM
Replies: 6
Views: 11,831
Posted By mjppaba
Sub enableAddIn() On Error Resume Next ...

Sub enableAddIn()
On Error Resume Next
myAddInName = "MYADDIN"
AddIns(myAddInName).Installed = True
Debug.Print Err.Number & " - " & Err.description
If Err.Number <> 0 Then
Set myAddIn =...
Forum: Excel VBA October 12th, 2005, 05:25 AM
Replies: 6
Views: 11,831
Posted By mjppaba
Set myAddIn =...

Set myAddIn = AddIns.Add(Filename:="C:\MYADDIN.XLA", CopyFile:=True)

cheers

Matt
Forum: Excel VBA October 6th, 2005, 12:13 PM
Replies: 10
Views: 2,136
Posted By mjppaba
Problem 1 solution... ' Add a name to the...

Problem 1
solution...
' Add a name to the cell
cellname = "Error_" & Format(row, "00000") & Format(col, "00")
wb.Names.Add name:=cellname, RefersToR1C1:="=" & ws.name & "!" & "R" & row & "C" &...
Forum: Excel VBA October 5th, 2005, 10:19 AM
Replies: 3
Views: 1,095
Posted By mjppaba
ActiveCell.Offset(myRow - 1,...

ActiveCell.Offset(myRow - 1, 0).EntireRow.Interior.Color = RGB(255, 0, 0) ' Return the value for Red.

see the VB help for all the different values of RGB

cheers

Matt
Forum: Excel VBA October 5th, 2005, 10:10 AM
Replies: 3
Views: 1,095
Posted By mjppaba
Sub mdl_AlternateLineColours() Dim myLastRow As...

Sub mdl_AlternateLineColours()
Dim myLastRow As Integer
Dim myRow As Integer

Range("A1").Select
myLastRow = Range("a65000").End(xlUp).Row
myRow = 0

Do Until myRow = myLastRow
myRow = myRow...
Forum: Excel VBA October 5th, 2005, 06:30 AM
Replies: 2
Views: 2,670
Posted By mjppaba
if isnumeric(cell) then else end if ...

if isnumeric(cell) then

else

end if

cheers

Matt
Showing results 1 to 25 of 180

 


All times are GMT -4. The time now is 08:04 PM.


Powered by vBulletin®
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
© 2013 John Wiley & Sons, Inc.