Search:

Using your code

Sub Msg()
Dim strMsg As String, strTitle As String, Ret
'~~> Message goes here
strMsg = "Whass Up?"
'~~> Title goes here
strTitle = "Info"
...

Can someone tell me how to add a variable to the following piece of code

MyChoice = MSGBOX("CHANGE INFO?" VBYESNO)

The default excel column row/column headings

A B C D E F G H I J K L ....
1
2
3
4
5
6
7

is it possible to customise the row/column headers bar using code?

I would record a macro if it would help, however I need to select my range via variables

is it possible to do what your suggesting with code?

is it possible to select the entireworkbook and change the font size?

without selecting each cell individually?

in excel I can group rows or columns together in order to show totals only when closed and when opened it shows all the information which makes up that total, how do I write a macro to do the same?

two questions

1)
how do I change the background colour of a specific cell?

2)
how I show a cell as being raised like a button?

I am using the following procedure within my excel project:


Public Sub ADDBUTTONS(ASheet)
Dim BILLCOUNT As Integer
Dim INCOMECOUNT As Integer
BILLCOUNT = Worksheets("BILLS").Range("D1")...

Hi folks

thanks for the reply, quick follow on.

I have each day of the month displayed in a seperate columns, for formatting purposes I would like to group on a week basis, for example march...

I am using the following coding to determine the number of days in a month:

cell B1 holds a date value ie 01/03/2009


datemonth = Month(Sheets(ASheet).Range("B1").Value)
If datemonth...

is it possible to use variables within the following context

START = 0
BILLCOUNT = 17

START = START - BILLCOUNT

ActiveCell.Value = "=SUM(R[START]C:R[-1]C)"

All Bill contains rows of user entered information from a userform

Once the user has entered the values, the code places all the entered information in to a row occupying various cells 1 value per...

I have a form which makes use of the WORKSHEETSELECTCHANGE function, the worksheetselectchange function runs this code.




Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal...

I know that the code only applies to the activesheet, what I don't know is how to change the code to do exactly that

When a user click on a column S which has an appropriate row of data it updates the status of the data from "OPEN" to "CLOSED" and adds a closed date, what I need is for the status to update on the...

Cheers mate works a treat

I see what you mean about my interpretation, my problem is using the 1d method isn't going to be practical, cos would require an array for every of data. let me run this past u.

I have worked out...

is it possible to use this line

dim arrayvalues(17,10)

lRow = Range("B" & Rows.Count).End(xlUp).Row
Active = Application.CountA(Range("B6:B" & lRow))

redim arrayvalues(17, Active)
...

Hi

I have a random number of rows, starting at cell B6 and going down the worksheet in column B. Each row has the same dimensions as the 1d array.

as a result I need some code which is robust...

Hi KoolSid

Thanks for the help with the array.

with your code I have come up with the following:


Dim ArrayValues(17)

' put values into the array

I need to capture the following cell values into an array:

B6,C6,D6,E6,F6,G6,H6,I6,J6,K6,L6,M6,N6,O6,P6,Q6,R6,S6

and for the purpose of checking the results, I want to place the cell values...

Hi I was to use an inputbox with this statement

counter + " bills added"

whats the correct syntax. I have tried :

Application.InputBox(Counter + " bills added", "Counter")...

I am using this code for assigning a date function to a cell on a worksheet, however any dates between 1st and 12th of any month is displaying in US format, any dates from the 13th onwards is...

How do I adapt the following code at userform level to format my values as currency


With .Cells(lngNextRow, "G")
.Resize(, 12).Value = 0
...

if i'm reading your statement correctly, your code finds the first available blank cell in column "S", it then selects the cell. what code do I attach to it to allow the user to click on the cell and...

Hi

how do I adjust this statement

Sheets("ALL BILLS").Range("S" & Rows.Count).End(xlUp).Offset(1).Value = "OPEN"

to give me the same result as the following code

The worksheet in question...

i dont think thats the problem to be fair, when I debug the code textday, textmonth, textyear are splitting correctly, when I put them into newdate, newdate is still got the correct valid date,...

nothing I can see on the properties window, and yes we are talking about a userform in excel, sorry for not being clear. I was mistaken about where the problem was occuring, i have done a step by...

Hi folks thanks for the insight, u have aided me in coming up with this:


Dim lngNextRow As Long
If Frequency = "A" Then
With Sheets("ALL BILLS")
lngNextRow =...

hi

can anyone tell me why this is giving me the wrong date

I enter 13/10/08 and it keeps its date
i enter a date between 1-12 october and the date days and months swap over giving me a...

Hi this does what it to do, however its rather long winded and bad coding, I imagine there is a easier way to do this, can anyone give me a hand to code this better


Private Sub FillInBlanks()
...

HI

I am using a variable called DateCreated on userform

I need to find a way of doing a for....next loop from column G to column R without knowing the row number

for counter = 0 to 12
...

Hi

I have three field on a userform called

day = 20
month = 12
year = 08

how can I merge these variables to hold 20/12/08

BILLRANGE uses this formula

=OFFSET(ALL BILLS!$B$6,0,0,COUNTA(ALL BILLS!$B:$B)-1,1)

and it was created on worksheet

ALL BILLS

Thanks folks I was still using a TEXTBOX, I now changed it to a COMBOBOX

I now get a different error message

runtime error 1004

method 'range' of object ' _worksheet' failed

went through...

I have the following procedure which is giving me an error on this line of code, any ideas as to whats wrong

.AddItem cPart.Value

The error I get is




Private Sub...

cheers mate, I've had a play since I posted this thread, and I realised I can sort out formatting out before the forms displayed by using this event

Private Sub UserForm_Initialize()
...

hi

I must be misunderstanding something cause I cant' find the a 3 (...) button

I am clicking on my textbox, which puts the selected box around it
I am then rightclicking on the mouse and...