Posts by Fluppe

Yes its my workbook.
Somebody has played with it and I don't know what he has done.
I only know that there's no password given to protect it.

Hi,
I have a sheet with only the option:
Unprotect Shared Workbook under Tools/Protection.
When I want to view the code I get a msgbox "Project is locked" "Project is unviewable".
I know that there is no password.
What can I do to disable the protection?

Thanx,
Fluppe

Thanx XL-Dennis,
But I'm not smart enough to understand the code.
Can you give me a file where the code is used in? Then it's easier to understand.

Fluppe

Hi,
I want to use 2 comboboxes on a sheet where the value of cbo2 depends on the selection in cbo1.
ie when I choose fruit in cbo1 I'll only get banana and pineapple in cbo2.
I know how I can create it with the datavalidation but not with VBA code.
Can someone helpme with the code please?

Thanx,
Filip

Thanx yjoshi
:yes:

Hi,

When a user clicks on a cmdbutton, he's username must be placed in a cell ie A2.
Can someone help with the synthax please?

thanx
Fluppe

Thanx,
works perfect:yes:

Hi,

I use the following syntax for protecting my worksheet:
Activesheet. protect userinterfaceonly:=true
But how can I prevent that a user uses tools/protection/unprotect worksheet so that my protection is gone?

thanks,
Fluppe

Yes,I want to have a timestamp
put in a cell ie: A2 when the cmdbutton is clicked.

Hi,
When I click a cmdbutton on a form (excel)
I want the same action as if the user presses the ctrl+; on his keyboard?
How can I program this? With tha ascii code?

Thanks,
Fluppe

Thanx Dave,

I'll take a better look at those functions.

What's the difference between Str(cells(26,1)) and the String function?

Your IF statement shows that the value in celA26 is not a number but text.

m_control.Value = Str(Cells(26, 1)) is no good.

Dim a as string
a = Cells(26, 1)
m_control.Value = a

When I'm using this, the value of cell(26,1)
is put in the m_control as a string.

What am I doing wrong?

m_control.Value = Str(Cells(26, 1))

This gives me an error Run-time error '13'
type mismatch

Oké thanx Dave,

I'll try it out.

Hello Dave,

I want to use the substitute function in VBA. How can I do that?

The variable text contains the string were I have to substitute the "-" and the " ".

Thanx

A cell contains text i.e. A1 = text-word 1. The caption of lbl1 in formtext must be the text of cell A1. Only
the “-“ and the “ “ must be taken away.
So I get textword1 in lbl1.
What to do if I don’t know were the “-“ and the “ “ is put in the text?

I'm sorry.

I changed Sub FullPathFooter()
into Private Sub Workbook_beforePrint(cancel As Boolean) and it works.

Thanx

Hi manfredm,

Probably I've done something wrong because this isn't working?

Hi,
This is maybe a stupid question but I don't know how to do it.
Is it possible to change the textheight of my fullpath in footer (with VBA Excel) without changing my default textheigt settings?

ActiveSheet.PageSetup.LeftFooter = Me.FullName

Tanx

Answer

In col. A1 to A10 are the data.
In B1 a begin data
In B2 an end data
The result in B3 will be the number of data that appears between the begin and the end data.

Fill in the following formula in B3
=COUNTIF(A1:A10;">="&B1)-COUNTIF(A1:A10;">"&B2)