Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA - Finding the odd one out
I have a list of data that follows like so:
A01 A02 A03 A04 A05 A06 A07 A08 I wish to Display only the Odd ones, so A01, A03, A05, A07 and so on, I know the formula to do this but have no idea how to do it in VBA with code. I'm guessing it's something to do with the % operator? Thanks for any help |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA - Finding the odd one out
I don't know hwat you mean by display. To get the odd numbers should be
exactly like in the worksheet. use the RIGHT function =Right(A1,1) "NateBuckley" wrote: I have a list of data that follows like so: A01 A02 A03 A04 A05 A06 A07 A08 I wish to Display only the Odd ones, so A01, A03, A05, A07 and so on, I know the formula to do this but have no idea how to do it in VBA with code. I'm guessing it's something to do with the % operator? Thanks for any help |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA - Finding the odd one out
I forgot to mention you need to use the MOD function not the %
a = 10 Mod 2 "NateBuckley" wrote: I have a list of data that follows like so: A01 A02 A03 A04 A05 A06 A07 A08 I wish to Display only the Odd ones, so A01, A03, A05, A07 and so on, I know the formula to do this but have no idea how to do it in VBA with code. I'm guessing it's something to do with the % operator? Thanks for any help |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA - Finding the odd one out
Nate,
Your question isn't clear so I've asssumed you want to filter to show odd rows Sub sonic() Dim myrange, copyrange As Range Lastrow = Cells(Cells.Rows.Count, "A").End(xlUp).Row Set myrange = Range("A1:A" & Lastrow) For Each c In myrange If Mid(c.Value, 2, Len(c.Value)) Mod 2 = 0 Then c.EntireRow.Hidden = True End If Next End Sub Mike "NateBuckley" wrote: I have a list of data that follows like so: A01 A02 A03 A04 A05 A06 A07 A08 I wish to Display only the Odd ones, so A01, A03, A05, A07 and so on, I know the formula to do this but have no idea how to do it in VBA with code. I'm guessing it's something to do with the % operator? Thanks for any help |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA - Finding the odd one out
Thanks Joel, I'll give it a whirl now.
I wanted to leave out what I wanted to do with the data afterwards, because I didn't want anyone going to the trouble of then writing all that code for me, as what you've just told me is precisly what I needed. Cheers! "Joel" wrote: I forgot to mention you need to use the MOD function not the % a = 10 Mod 2 "NateBuckley" wrote: I have a list of data that follows like so: A01 A02 A03 A04 A05 A06 A07 A08 I wish to Display only the Odd ones, so A01, A03, A05, A07 and so on, I know the formula to do this but have no idea how to do it in VBA with code. I'm guessing it's something to do with the % operator? Thanks for any help |
#6
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA - Finding the odd one out
Hi Mike,
Using option explicit, How would you define the variables? Lastrow c Dan |
#7
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA - Finding the odd one out
Long
"dan dungan" wrote: Hi Mike, Using option explicit, How would you define the variables? Lastrow c Dan |
#8
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA - Finding the odd one out
Sorry Dan
Lastrow as Long C as Range "dan dungan" wrote: Hi Mike, Using option explicit, How would you define the variables? Lastrow c Dan |
#9
Posted to microsoft.public.excel.programming
|
|||
|
|||
VBA - Finding the odd one out
Thanks, Mike.
I'm still trying to figure out how to dimension the correct data type. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Finding max value | Excel Programming | |||
Finding Same Row Value | Excel Programming | |||
Finding Row | Excel Discussion (Misc queries) | |||
finding value | Excel Discussion (Misc queries) | |||
Finding a sum | Excel Programming |