Search results

You mean row height ? e.g. :- Rows("10:20").RowHeight = 19.5 :rolleyes: If you actually mean different widths for different rows then the answer is no.

Techniques for bypassing protection are not normally discussed on 'sensible' forums. So :- 1. jhiggins07, if it is your sheet and you can prove that. 2. and you don't mind Minkey seeing it. Then I suggest you send it him and he unlocks it and sends it you back. These techniques are not secret...

maybe =Upper(A1) ... !!!!!! :eek:

You seem to have a different view of 'what spam is' than I do. Spam is 'unsolicited' 'advertising' 'email' generated by some 'automatic' or 'semi-automatic' means. I think this falls into this catagory. I'd 'love' to hear why you 'think' it's not :)

You want help with spam ???????

=indirect("B1")<>C1

That's not what he asked for

"Format" - "Conditional Formatting", formula is =A1>500 and =A1<300 then format them as you wish

Here is a sample file ... it only does the conversion on sheet2 it only does it in column B it only does it if you have changed 1 cell it only does it if you have entered 6 numeric characters (ddmmyy) it does not do it in row 1 If you hit Alt-F11 whilst on the sheet it will take you to the code...

Do you have a specific range in mind ? What format would you like for the finished date ? how would you like users to enter the date 6 digits or 8, ddmmyy or yyyymmdd or something else ? Would you be happy with code to do this interpretation ?

Or as a Brit yyyymmdd or dd/mm/yyyy

Hmm That's interesting ... I'd like to do a full series of experiments but ... the time it would take ... Does anyone want to volunteer ?

I believe that whatever picture you add to an Excel File (or Word Doc for that matter) it is stored as the same internal format (unfortunately it's a .bmp i.e. uncompressed). This is a common mistake with people with fancy cameras, they think (because they can) they should insert a 10M pixel...

Adapt the following to your needs :- sub renameshts dim lnX as long for lnx = 1 to worksheets.count if worksheets(1).name = "Sheet" & lnx then worksheets(1).name = "vel_" & Pad2(lnx) end if next lnx end sub function Pad2(lnVal as long) as string if len(lnval) => 2 then Pad2 =...

Sorry, why does the middle one increase and the other two stay the same ?

I think your syntax is a little screwed ... What do you mean by Range("ColA")(txtRow.Text).Value ?

The above given solution will replace all " " (spaces) with "" (nothing) so it should cope with your data.

if it's formatted as text

Well you'll have to check each cell otherwise you won't be able to detect a cell starting with 0. try :- dim lnX as long, rCell as range lnx = row(Range("B" & activesheet.rows.count).end(xlup) for each rcell in range("A2:B" & lnX) if left(rcell.value,1) = "0" then rcell.value = "'" &...

No, if you import the data as a number 01234567 will be stored as 1234567 as Excel does not see the point of a leading zero on a number field. You then convert it to text and you get "1234567" instead of "01234567" Yeah, sounds best of a bad lot.