Posts by yjoshi

Thanx a lot.

Hi AJW,

This excel sheet is reallv too good.

Which is the site you are mentioning here?

Looks to be interesting.

Hi BobShalford,

Can you please give an example. It was really difficult to understand what is exactly expected.

If you can attach some sheet with example and elaborate what you exactly want, some one here will surely be able to help you.
:thumbcoo:

Hi noeyedeer,

You can use "weekday" formula

I think following changes will work:

While Show_Box = True
Sheets("INT RATES").Select
oldval = Range("a9999").End(xlUp)
Range("a9999").End(xlUp).Offset(1, 0).formula = oldval + 1
If weekday(oldval + 1) = 1 or 7 Then
ActiveCell.Offset(-1, 1).copy
ActiveCell.Offset(1, 0).PasteSpecial Paste:=xlValues
End If
valdat = Worksheets(6).Range("a5").End(xlDown)
' Show the input box.
Response = InputBox("Enter the interest rate for " & valdat, _
"Number Entry", , , 1000)

Important part is, you will need to look for "formula" and not "value" to get the weekday formula right.

Hope this works.

Hi Rennie,

Very interesting and identical to the problem i am facing currently.

I could not do it, and tried to do some R&D on that.

The fact that we see a htm page from excel, is that the html code is internally created from excel and saved as htm.
If there are more than one sheets, multiple htm pages are created inside a folder and the main htm just has a link to all other pages. Thus, the features of excel are completely lost.

That is my own experience, and if someone has come over it, i will be the first person (may be second after Renni
:coolwink:) interested in it.

But thought, this will throw some more light on this issue

As Replied by Yogi, Even I am not exactly sure of the query.

However, here is how you can give a range-name using VBA script.

You can change the code to suit your requirement.

Sub Range_Name()
Dim a, b, c, rname As String

a = Left(Trim(Range("A2").Value), 3)
b = Trim(Range("B2").Value)
c = Trim(Range("c2").Value)
rname = a & c & b

Range("A2:C2").Select

ActiveWorkbook.Names.Add Name:=rname, RefersToR1C1:= _
"=Sheet1!R2C1:R2C3"
End Sub

If this is similar to what you expect,
and want further help, let us know.

If i have misunderstood the question completely, really sorry for that :flower:

Hi Dave,

I appreciate your point of view.

But is there any chance to have any dummy application? For that matter on any site?

Will appreciate your help.

You can also try the solution we discussed in:

http://ozgrid.com/forum/viewthread.php?
tid=791

if the pdfs are numeric.

If not, you may just amend the same a bit.

Hi jmg,

Can you upload a sample of the file ?

May be, someone can get to the exact
problem in a better way.

Hi,

I have created small VBA scripts and small forms in Excel, but never created a full-fledged application in excel.

I want the user to see just the form i am
creating, save the data in the same excel sheet, if possible on different sheets for different tables.

Can anyone give me examples of this,
preferably with the code.

I am sure someone will help me.
I wish to see as many such examples as possible, and be sure, i will post my own
as well, when i am thru.

Thats exactly what I am using for so long.

I thought there may be some better way to do that. :smug:

Any way, If anyone gets through this,
do update this post.

Hi,

This may be helpful to youl.

I had a task of grading employees on various skill sets, and for each employee there were 10 criteria and each going into "Average, Good, Excellent and Outstanding"

Now to show the performance of each on each sacle, the numbers were not the best way, so we desided to have a colour scheme. The Cells calculated the grade based on marksings in each cell.

="Total="&C10&" "&IF(C10<200,"Average",IF(C10<800,"Good",IF(C10<1500,"Excellent","Outstanding")))

The task of giving a colouring was delt be conditional formatting as shown below in the picture file

Hope this works well for those who have interest in such kind of nasty stuff

Can we create shortcuts for the toolbar
buttons to be in sync with other windows
applications?

e.g. in most of the applications, but in excel

Ctrl+L , Ctrl+E & Ctrl+R are used for
Leaft, Center and Right align,

Can this be done without VBA code?

Hi All,

Thanx for the suggestions.

Infact, I was going wrong way
The suggestion by "lambuhere1
" was good. Only i amended
to find ".xls" instead of "!" and
could find a solitary link refering
to outside file. :bouncy:

Hi All,

I struggled a bit to create a hyperlink for
a range of numeric data, to go to a
link and use the number as a parameter.

I was able to do it, may be this will be
useful to some people.

Lets say, we are creating an excel sheet with the note numbers on this site, select
them and create a hyperlink to the respective notes on this website.

Sub Links()
'Hyperlink Macro
'Creates a Hyperlink to the topic

For Each cell In Selection
cell.Select
a = ActiveCell.Text
If IsNumeric(a) Then
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"http://www.ozgrid.com/forum/viewthread.php?tid=" + CStr(a)
End If
Next

End Sub

This code will do the job.
You can now go to toolbar -&gt; customize
and create a macro button to attach to
this macro.

If you need to use this in multiple sheets,
paste the code in PERSONAL.XLS

Hi,

In one of my files, i am getting an error

The workbook contains automatic links to another worksheet.

How to get rid of this?

I tried removing every possible link and
formula, but no effect.

Any automated script or existin feature
can solve my problem?

Can you please upload the excel file
with data, the image gives no clue

Thanx : Yogendra :puzzled:

Hi,

Why don't you use Pivot table instead.
I believe it is always easy to use
the existing functions for this.

I have uploaded one file, which has
your example.

This will also solve one potential problem
of yours, using "Count" or "counta"
if the account is alpha-numeric.
With pivot tables, it is lot easy.

Try this, if you still want to use
VB for some specific reasons, please
post accordingly.

Cheers : Yogendra : :cheers:

Hi,

You can use "Indirect" formula to
solve your first problem.
Then you do not need if in the formula.

I have uploaded the file, I think i could
understand the problem correctly.
If not, please give an example.

Regarding getting an alert, you can
use

Private Sub Worksheet_Change(ByVal Target As Range)
If ActiveCell.Column = 3 Then
response = MsgBox("Do you want to proceed", vbOKCancel)
If response = vbCancel Then
ActiveCell.Offset(-1, 5).Select
X = ActiveCell.Row
y = "R" & CStr(X) & "C4"
ActiveCell.Formula = y
End If

End If

End Sub

which i have already used in the excel sheet.

Do let me know if this solves your
problem.

You may need to alter it as per your needs
but should be a good headstart

Thanx : Yogendra :guitar:

Very Small, but very smart

Thanx for this small tip.

Yogendra