Hi
If i have 10 text boxe like txt_ci1 - txt_ci2 and so on

Is there a way to count all them where there are a X in

Regards

alvin

Where are the TextBox'es located at... a VB UserForm or directly on a
worksheet? If on a worksheet, where did you get the TextBox'es from... the
Forms toolbar or the Drawing toolbar? Also, are these (going to be) the only
TextBox'es you have? If not, do the names for the 10 TextBox'es you are
interest in all start with "txt_ci" and, if so, are there any other
TextBox'es starting with those letters?

--
Rick (MVP - Excel)


"alvin Kuiper" <(E-Mail Removed)> wrote in message
news:F7D736BC-FDE8-4691-981B-(E-Mail Removed)...
> Hi
> If i have 10 text boxe like txt_ci1 - txt_ci2 and so on
>
> Is there a way to count all them where there are a X in
>
> Regards
>
> alvin

Teh are in a userform
and are hand made

Alvin


"Rick Rothstein" skrev:

> Where are the TextBox'es located at... a VB UserForm or directly on a
> worksheet? If on a worksheet, where did you get the TextBox'es from... the
> Forms toolbar or the Drawing toolbar? Also, are these (going to be) the only
> TextBox'es you have? If not, do the names for the 10 TextBox'es you are
> interest in all start with "txt_ci" and, if so, are there any other
> TextBox'es starting with those letters?
>
> --
> Rick (MVP - Excel)
>
>
> "alvin Kuiper" <(E-Mail Removed)> wrote in message
> news:F7D736BC-FDE8-4691-981B-(E-Mail Removed)...
> > Hi
> > If i have 10 text boxe like txt_ci1 - txt_ci2 and so on
> >
> > Is there a way to count all them where there are a X in
> >
> > Regards
> >
> > alvin
>
>

"hand made" didn't really answer these questions...

"Also, are these (going to be) the only TextBox'es you have?
If not, do the names for the 10 TextBox'es you are interest
in all start with "txt_ci" and, if so, are there any other TextBox'es
starting with those letters?"

--
Rick (MVP - Excel)


"alvin Kuiper" <(E-Mail Removed)> wrote in message
news:E9F0D142-DAD7-43F9-ACDA-(E-Mail Removed)...
> Teh are in a userform
> and are hand made
>
> Alvin
>
>
> "Rick Rothstein" skrev:
>
>> Where are the TextBox'es located at... a VB UserForm or directly on a
>> worksheet? If on a worksheet, where did you get the TextBox'es from...
>> the
>> Forms toolbar or the Drawing toolbar? Also, are these (going to be) the
>> only
>> TextBox'es you have? If not, do the names for the 10 TextBox'es you are
>> interest in all start with "txt_ci" and, if so, are there any other
>> TextBox'es starting with those letters?
>>
>> --
>> Rick (MVP - Excel)
>>
>>
>> "alvin Kuiper" <(E-Mail Removed)> wrote in message
>> news:F7D736BC-FDE8-4691-981B-(E-Mail Removed)...
>> > Hi
>> > If i have 10 text boxe like txt_ci1 - txt_ci2 and so on
>> >
>> > Is there a way to count all them where there are a X in
>> >
>> > Regards
>> >
>> > alvin
>>
>>

As long as you named them nice, you can just loop through them:

Option Explicit
Private Sub CommandButton1_Click()
Dim iCtr As Long
Dim MaxTBX As Long
Dim TotTBX As Long

MaxTBX = 3 '10 for you

TotTBX = 0
For iCtr = 1 To MaxTBX
If LCase(Me.Controls("txt_ci" & iCtr).Value) = "x" Then
TotTBX = TotTBX + 1
End If
Next iCtr

MsgBox TotTBX

End Sub

But if you're looking for an X (some kind of indicator???), maybe using 10
checkboxes would be better. Less chance of typing errors????



alvin Kuiper wrote:
>
> Hi
> If i have 10 text boxe like txt_ci1 - txt_ci2 and so on
>
> Is there a way to count all them where there are a X in
>
> Regards
>
> alvin

--

Dave Peterson

Hi
And thanks , it works
But now if i want to make a check box instead of the text field
cam you help me there.

alvin


"Dave Peterson" skrev:

> As long as you named them nice, you can just loop through them:
>
> Option Explicit
> Private Sub CommandButton1_Click()
> Dim iCtr As Long
> Dim MaxTBX As Long
> Dim TotTBX As Long
>
> MaxTBX = 3 '10 for you
>
> TotTBX = 0
> For iCtr = 1 To MaxTBX
> If LCase(Me.Controls("txt_ci" & iCtr).Value) = "x" Then
> TotTBX = TotTBX + 1
> End If
> Next iCtr
>
> MsgBox TotTBX
>
> End Sub
>
> But if you're looking for an X (some kind of indicator???), maybe using 10
> checkboxes would be better. Less chance of typing errors????
>
>
>
> alvin Kuiper wrote:
> >
> > Hi
> > If i have 10 text boxe like txt_ci1 - txt_ci2 and so on
> >
> > Is there a way to count all them where there are a X in
> >
> > Regards
> >
> > alvin
>
> --
>
> Dave Peterson
>

It's pretty much the same--if you name them nicely:

Option Explicit
Private Sub CommandButton1_Click()
Dim iCtr As Long
Dim MaxCBX As Long
Dim TotCBX As Long

MaxCBX = 3 '10 for you

TotCBX = 0
For iCtr = 1 To MaxCBX
If LCase(Me.Controls("CBX_ci" & iCtr).Value) = True Then
TotCBX = TotCBX + 1
End If
Next iCtr

MsgBox TotCBX

End Sub



alvin Kuiper wrote:
>
> Hi
> And thanks , it works
> But now if i want to make a check box instead of the text field
> cam you help me there.
>
> alvin
>
> "Dave Peterson" skrev:
>
> > As long as you named them nice, you can just loop through them:
> >
> > Option Explicit
> > Private Sub CommandButton1_Click()
> > Dim iCtr As Long
> > Dim MaxTBX As Long
> > Dim TotTBX As Long
> >
> > MaxTBX = 3 '10 for you
> >
> > TotTBX = 0
> > For iCtr = 1 To MaxTBX
> > If LCase(Me.Controls("txt_ci" & iCtr).Value) = "x" Then
> > TotTBX = TotTBX + 1
> > End If
> > Next iCtr
> >
> > MsgBox TotTBX
> >
> > End Sub
> >
> > But if you're looking for an X (some kind of indicator???), maybe using 10
> > checkboxes would be better. Less chance of typing errors????
> >
> >
> >
> > alvin Kuiper wrote:
> > >
> > > Hi
> > > If i have 10 text boxe like txt_ci1 - txt_ci2 and so on
> > >
> > > Is there a way to count all them where there are a X in
> > >
> > > Regards
> > >
> > > alvin
> >
> > --
> >
> > Dave Peterson
> >

--

Dave Peterson

Yes
this work
but again why don't it work in a modul
but only on the button
My button are in a multipage in a userform

If i try to run it from the modul i get a error in:
ME
in the line:
If LCase(Me.Controls("CBX_ci" & iCtr).Value) = True Then

alvin

"Dave Peterson" skrev:

> It's pretty much the same--if you name them nicely:
>
> Option Explicit
> Private Sub CommandButton1_Click()
> Dim iCtr As Long
> Dim MaxCBX As Long
> Dim TotCBX As Long
>
> MaxCBX = 3 '10 for you
>
> TotCBX = 0
> For iCtr = 1 To MaxCBX
> If LCase(Me.Controls("CBX_ci" & iCtr).Value) = True Then
> TotCBX = TotCBX + 1
> End If
> Next iCtr
>
> MsgBox TotCBX
>
> End Sub
>
>
>
> alvin Kuiper wrote:
> >
> > Hi
> > And thanks , it works
> > But now if i want to make a check box instead of the text field
> > cam you help me there.
> >
> > alvin
> >
> > "Dave Peterson" skrev:
> >
> > > As long as you named them nice, you can just loop through them:
> > >
> > > Option Explicit
> > > Private Sub CommandButton1_Click()
> > > Dim iCtr As Long
> > > Dim MaxTBX As Long
> > > Dim TotTBX As Long
> > >
> > > MaxTBX = 3 '10 for you
> > >
> > > TotTBX = 0
> > > For iCtr = 1 To MaxTBX
> > > If LCase(Me.Controls("txt_ci" & iCtr).Value) = "x" Then
> > > TotTBX = TotTBX + 1
> > > End If
> > > Next iCtr
> > >
> > > MsgBox TotTBX
> > >
> > > End Sub
> > >
> > > But if you're looking for an X (some kind of indicator???), maybe using 10
> > > checkboxes would be better. Less chance of typing errors????
> > >
> > >
> > >
> > > alvin Kuiper wrote:
> > > >
> > > > Hi
> > > > If i have 10 text boxe like txt_ci1 - txt_ci2 and so on
> > > >
> > > > Is there a way to count all them where there are a X in
> > > >
> > > > Regards
> > > >
> > > > alvin
> > >
> > > --
> > >
> > > Dave Peterson
> > >
>
> --
>
> Dave Peterson
>

Me is the object that owns the code--in my example, it's the userform.

If you have the code in a general module, then try:
if lcase(userform1.controls("cbx_ci" & ....

(use the name of the userform that you're using (and that's loaded at the
time).)



alvin Kuiper wrote:
>
> Yes
> this work
> but again why don't it work in a modul
> but only on the button
> My button are in a multipage in a userform
>
> If i try to run it from the modul i get a error in:
> ME
> in the line:
> If LCase(Me.Controls("CBX_ci" & iCtr).Value) = True Then
>
> alvin
>
> "Dave Peterson" skrev:
>
> > It's pretty much the same--if you name them nicely:
> >
> > Option Explicit
> > Private Sub CommandButton1_Click()
> > Dim iCtr As Long
> > Dim MaxCBX As Long
> > Dim TotCBX As Long
> >
> > MaxCBX = 3 '10 for you
> >
> > TotCBX = 0
> > For iCtr = 1 To MaxCBX
> > If LCase(Me.Controls("CBX_ci" & iCtr).Value) = True Then
> > TotCBX = TotCBX + 1
> > End If
> > Next iCtr
> >
> > MsgBox TotCBX
> >
> > End Sub
> >
> >
> >
> > alvin Kuiper wrote:
> > >
> > > Hi
> > > And thanks , it works
> > > But now if i want to make a check box instead of the text field
> > > cam you help me there.
> > >
> > > alvin
> > >
> > > "Dave Peterson" skrev:
> > >
> > > > As long as you named them nice, you can just loop through them:
> > > >
> > > > Option Explicit
> > > > Private Sub CommandButton1_Click()
> > > > Dim iCtr As Long
> > > > Dim MaxTBX As Long
> > > > Dim TotTBX As Long
> > > >
> > > > MaxTBX = 3 '10 for you
> > > >
> > > > TotTBX = 0
> > > > For iCtr = 1 To MaxTBX
> > > > If LCase(Me.Controls("txt_ci" & iCtr).Value) = "x" Then
> > > > TotTBX = TotTBX + 1
> > > > End If
> > > > Next iCtr
> > > >
> > > > MsgBox TotTBX
> > > >
> > > > End Sub
> > > >
> > > > But if you're looking for an X (some kind of indicator???), maybe using 10
> > > > checkboxes would be better. Less chance of typing errors????
> > > >
> > > >
> > > >
> > > > alvin Kuiper wrote:
> > > > >
> > > > > Hi
> > > > > If i have 10 text boxe like txt_ci1 - txt_ci2 and so on
> > > > >
> > > > > Is there a way to count all them where there are a X in
> > > > >
> > > > > Regards
> > > > >
> > > > > alvin
> > > >
> > > > --
> > > >
> > > > Dave Peterson
> > > >
> >
> > --
> >
> > Dave Peterson
> >

--

Dave Peterson