Simple stuff

[Serious]

What does the 'With' statement do?

Also, what is wrong with the code below?

Private Sub Inputdata_Click()
Worksheets("Input").Activate
Cells(5, 3).Select
If (ActiveCell.Value = "") Then Exit Sub
Worksheets("Sheet2").Activate
Cells(5, 4).Select
ActiveCell.Value = 1
End Sub

I get an error that says 'Select method of Range Class fails' and I dont know why. I am new to Visual Basic and I would appreciate anyone's help.
Thanks
Seri

[Juan Pablo González]

On 2002-05-23 12:56, Serious wrote:
What does the 'With' statement do?

Also, what is wrong with the code below?

Private Sub Inputdata_Click()
Worksheets("Input").Activate
Cells(5, 3).Select
If (ActiveCell.Value = "") Then Exit Sub
Worksheets("Sheet2").Activate
Cells(5, 4).Select
ActiveCell.Value = 1
End Sub

I get an error that says 'Select method of Range Class fails' and I dont know why. I am new to Visual Basic and I would appreciate anyone's help.
Thanks
Seri

1. With is a "shortcut" for code writing, and also improves speed. Something like this:

With Range("A1")
.Font.Size = 12
.Value = 1
.Copy Range("B1")
End With

It helps you not to write Range("A1") everytime because you will always point to that range.

2. What's wrong ? basically, nothing... I'm guessing you're using Excel 97, and InputData is a CommandButton that has the TakeFocus******* property set to TRUE. Change it to FALSE.

3. Try this code !
Private Sub Inputdata_Click()
If Worksheets("Input").Cells(5, 3).Value = "" Then Exit Sub
Worksheets("Sheet2").Cells(5, 4).Value = 1
End Sub

As you can see, there's no need to Select or Activate ANYTHING in there !

[Al Chara]

Juan,

I think I beat you to it:

http://www.mrexcel.com/board/viewtop...9279&forum=2&3