Programming Forums - View Single Post

DaWei · Feb 14th, 2006, 7:42 AM

Okay. That's not correct. "And" is a logical function which makes it part of the expression being dealt with in evaluating the THEN, not a separate path of execution. Here's an actual example:

(Toggle Plain Text)

    If name = "" Then

        result = MsgBox("     Name required for replace operation     ", , "Error")

    ElseIf oldRow <> newRow Then

        result = MsgBox("     Name and row don't agree     " + Chr(13) + "        Clear the row number     ", vbOKOnly, "Problem With Find")

    Else:

        For counter = 1 To 13
            If counter <> 55 Then

                Set curCell = Worksheets("Sheet1").Cells(counter, 2)
                myVal = curCell.Value
                Set curCell = Worksheets("Sheet1").Cells(newRow, counter)
                curCell.Value = myVal

            End If
        Next counter
    End If

Feb 14th, 2006, 7:42 AM	#4
DaWei Resident Grouch Join Date: Jun 2005 Posts: 6,453 Rep Power: 10	Okay. That's not correct. "And" is a logical function which makes it part of the expression being dealt with in evaluating the THEN, not a separate path of execution. Here's an actual example: (Toggle Plain Text) If name = "" Then result = MsgBox(" Name required for replace operation ", , "Error") ElseIf oldRow <> newRow Then result = MsgBox(" Name and row don't agree " + Chr(13) + " Clear the row number ", vbOKOnly, "Problem With Find") Else: For counter = 1 To 13 If counter <> 55 Then Set curCell = Worksheets("Sheet1").Cells(counter, 2) myVal = curCell.Value Set curCell = Worksheets("Sheet1").Cells(newRow, counter) curCell.Value = myVal End If Next counter End If If name = "" Then result = MsgBox(" Name required for replace operation ", , "Error") ElseIf oldRow <> newRow Then result = MsgBox(" Name and row don't agree " + Chr(13) + " Clear the row number ", vbOKOnly, "Problem With Find") Else: For counter = 1 To 13 If counter <> 55 Then Set curCell = Worksheets("Sheet1").Cells(counter, 2) myVal = curCell.Value Set curCell = Worksheets("Sheet1").Cells(newRow, counter) curCell.Value = myVal End If Next counter End If __________________ Abstraction doesn't make it impossible to write bad code; it makes it possible to write superior code. Contributor's Corner: Grumpy on C++ Exceptions DaWei on Pointers