Copy information based on criteria using VBA

[alex_a]

Greetings,

I have the follwoing code developed:
For i = 35 To rcnt
If LCase(Range("D" & i).Value) = "no" Or LCase(Range("D" & i).Value) = "no-rq" Then
Range("A" & i).Copy (Sheets("1").Range("B" & j))
Range("C" & i).Copy (Sheets("1").Range("C" & j))
Range("F" & i).Copy (Sheets("1").Range("D" & j))
j = j + 1
End If
Next
End Sub
This code transfer infromation from one sheet to a sheet called "sheet 1" based on "no" answers. I am trying to transfer infromation to another sheet, called "sheet 2" if there is a "yes" answer. Your help is greatly appreciated.

 

[sijpie]

[COLOR=#333333]For i = 35 To rcnt[/COLOR]
[COLOR=#333333]     If LCase(Range("D" & i).Value) = "no" Or LCase(Range("D" & i).Value) = "no-rq" Then[/COLOR]
[COLOR=#333333] [/COLOR][COLOR=#333333]           Sheets("1").Range("B" & j).value = [/COLOR][COLOR=#333333]Range("A" & i).value[/COLOR]
[COLOR=#333333] [/COLOR][COLOR=#333333]           Sheets("1").Range("C" & j).value = [/COLOR][COLOR=#333333]Range("C" & i).value[/COLOR]
[COLOR=#333333]            Sheets("1").Range("D" & j).value = [/COLOR][COLOR=#333333]Range("F" & i).value[/COLOR]
[COLOR=#333333]            j = j + 1[/COLOR]
[COLOR=#333333]     Else if [/COLOR][COLOR=#333333]LCase(Range("D" & i).Value) = "yes"
[/COLOR][COLOR=#333333] [/COLOR][COLOR=#333333]           Sheets("2").Range("B" & j).value = [/COLOR][COLOR=#333333]Range("A" & i).value[/COLOR]
[COLOR=#333333] [/COLOR][COLOR=#333333]           Sheets("2").Range("C" & j).value = [/COLOR][COLOR=#333333]Range("C" & i).value[/COLOR]
[COLOR=#333333]            Sheets("2").Range("D" & j).value = [/COLOR][COLOR=#333333]Range("F" & i).value[/COLOR]
[COLOR=#333333]     End If[/COLOR]
[COLOR=#333333]Next[/COLOR]
[COLOR=#333333]End Sub[/COLOR]

Copy paste is slow. Here you can just set the values of one range to the other. Really fast.

 

[alex_a]

Sorry. I get an error message. Something wrong with the code.

 

[sijpie]

which line gives the error?
You can step through your code by placing the cursor in the sub, and pressing F8 as an alternative to see how things do.

 

[alex_a]

which line gives the error?
You can step through your code by placing the cursor in the sub, and pressing F8 as an alternative to see how things do.

It gives me a syntax error.

 

[sijpie]

Can you post your full code please? (use code tags around your code please)

Also indicate which line is highlighted by the vba editor when the syntax error is shown.

 

[dmt32]

Try changing this line:

Else if LCase(Range("D" & i).Value) = "yes"

to this

ElseIf LCase(Range("D" & i).Value) = "yes" Then

and see if that helps

Dave

 

[alex_a]

Try changing this line:

Else if LCase(Range("D" & i).Value) = "yes"

to this

ElseIf LCase(Range("D" & i).Value) = "yes" Then

and see if that helps

Dave

Thanks DAVE. It worked! Problem Solved!

 

[sijpie]

Ah, sorry for not spotting that. Good thing there are others with sharper eyes...