Hi! How would I write into my code to look in cells in column one for a
specific number and then divide by 25. Here's a sample of the number:

col 1 col 2 col 3
02.3892.067.033 descrip. 2025

I want the macro to see the .067 in the cell, and then in column four,
divide the number found in column three by 25 and display number in column
four.

So what the result displayed: col 4 would be 81

I hope this makes sense.

Thanks for any help provided.

Annette

You could use a formula in column D as follows....

=IF(ISERROR(FIND(".067",A2)),"Not found",C2/25)

The text ".067" could be a reference to another cell of course.

--

Regards,
Nigel
(E-Mail Removed)



"Annette" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Hi! How would I write into my code to look in cells in column one for a
> specific number and then divide by 25. Here's a sample of the number:
>
> col 1 col 2 col 3
> 02.3892.067.033 descrip. 2025
>
> I want the macro to see the .067 in the cell, and then in column four,
> divide the number found in column three by 25 and display number in column
> four.
>
> So what the result displayed: col 4 would be 81
>
> I hope this makes sense.
>
> Thanks for any help provided.
>
> Annette
>

=IF(ISNUMBER(FIND(".067",A1)),C1/25,"")

--
---
HTH

Bob


(there's no email, no snail mail, but somewhere should be gmail in my addy)



"Annette" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Hi! How would I write into my code to look in cells in column one for a
> specific number and then divide by 25. Here's a sample of the number:
>
> col 1 col 2 col 3
> 02.3892.067.033 descrip. 2025
>
> I want the macro to see the .067 in the cell, and then in column four,
> divide the number found in column three by 25 and display number in column
> four.
>
> So what the result displayed: col 4 would be 81
>
> I hope this makes sense.
>
> Thanks for any help provided.
>
> Annette
>

Or in a macro

Sub stance()
Set myrange = Range("A1:A100")
For Each c In myrange
If InStr(1, c.Value, "067", 1) > 0 Then
On Error Resume Next
c.Offset(0, 3).Value = c.Offset(0, 2).Value / 25
End If
Next
End Sub

Mike

"Annette" wrote:

> Hi! How would I write into my code to look in cells in column one for a
> specific number and then divide by 25. Here's a sample of the number:
>
> col 1 col 2 col 3
> 02.3892.067.033 descrip. 2025
>
> I want the macro to see the .067 in the cell, and then in column four,
> divide the number found in column three by 25 and display number in column
> four.
>
> So what the result displayed: col 4 would be 81
>
> I hope this makes sense.
>
> Thanks for any help provided.
>
> Annette
>
>
>

Thanks, Mike ... this is exactly what I need, now I should be able to modify
for the other numbers to divide by different amounts other than 25!

This works really well!

Annette


"Mike H" <(E-Mail Removed)> wrote in message
news:A848CB35-D07E-413E-8995-(E-Mail Removed)...
> Or in a macro
>
> Sub stance()
> Set myrange = Range("A1:A100")
> For Each c In myrange
> If InStr(1, c.Value, "067", 1) > 0 Then
> On Error Resume Next
> c.Offset(0, 3).Value = c.Offset(0, 2).Value / 25
> End If
> Next
> End Sub
>
> Mike
>
> "Annette" wrote:
>
>> Hi! How would I write into my code to look in cells in column one for a
>> specific number and then divide by 25. Here's a sample of the number:
>>
>> col 1 col 2 col 3
>> 02.3892.067.033 descrip. 2025
>>
>> I want the macro to see the .067 in the cell, and then in column four,
>> divide the number found in column three by 25 and display number in
>> column
>> four.
>>
>> So what the result displayed: col 4 would be 81
>>
>> I hope this makes sense.
>>
>> Thanks for any help provided.
>>
>> Annette
>>
>>
>>

On Jan 31, 2:58*pm, "Annette" <she...@hotmail.com> wrote:
> Thanks, Mike ... this is exactly what I need, now I should be able to modify
> for the other numbers to divide by different amounts other than 25!
>
> This works really well!
>
> Annette
>
> "Mike H" <Mi...@discussions.microsoft.com> wrote in message
>
> news:A848CB35-D07E-413E-8995-(E-Mail Removed)...
>
>
>
> > Or in a macro
>
> > Sub stance()
> > Set myrange = Range("A1:A100")
> > For Each c In myrange
> > * If InStr(1, c.Value, "067", 1) > 0 Then
> > * On Error Resume Next
> > * * * *c.Offset(0, 3).Value = c.Offset(0, 2).Value / 25
> > * *End If
> > Next
> > End Sub
>
> > Mike
>
> > "Annette" wrote:
>
> >> Hi! *How would I write into my code to look in cells in column one for a
> >> specific number and then divide by 25. *Here's a sample of the number:
>
> >> col 1 * * * * * * * * * * * *col 2 * * * *col 3
> >> 02.3892.067.033 * * descrip. * *2025
>
> >> I want the macro to see the .067 in the cell, and then in column four,
Your welcome

> >> divide the number found in column three by 25 and display number in
> >> column
> >> four.
>
> >> So what the result displayed: *col 4 would be 81
>
> >> I hope this makes sense.
>
> >> Thanks for any help provided.
>
> >> Annette- Hide quoted text -
>
> - Show quoted text -