Macro Prob
 

I am experimenting and trying to learn how the code works. I have the code
below. It gets hung on S = "=" & Range(i).Value.

I am trying to have the program take the value in G6 and set that value to
S. Then loop back and take the next value G7 and set that to S.

For i = 6 To 7
Range("G" & i).Select

Dim S As String
S = "=" & Range(i).Value



Selection.Copy
Sheets("TMS").Select
Selection.AutoFilter Field:=1, Criteria1:=S, Operator:=xlAnd
Range("F1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("CheckNamesSent").Select
Range("I4").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Next i
End Sub


What am I doing wrong ?

Thank you in advance.

Macro Prob
 

Hi carl,

Just replace
For i = 6 To 7
Range("G" & i).Select
Dim S As String
S = "=" & Range(i).Value
Selection.Copy

By

For i = 6 To 7
Range("G" & i).Copy



HTH
Cheers
Carim

Macro Prob
 

carl wrote:
I am experimenting and trying to learn how the code works. I have the
code below. It gets hung on S = "=" & Range(i).Value.

[cut]

If (but not sure...) I well understand, you should solve this way:

S = Range(i).Value

or if you want concatenate the values in G6 and G7

S = S & Range(i).Value

--
Hope I helped you.

Thanks in advance for your feedback.

Ciao

Franz Verga from Italy

Macro Prob
 

Your statement says to use Range(i).value. "i" is only a number this
point. I'm assuming you want:
S = "=" & Range("G" & i).Value

"carl" wrote in message
...
I am experimenting and trying to learn how the code works. I have the code
below. It gets hung on S = "=" & Range(i).Value.

I am trying to have the program take the value in G6 and set that value to
S. Then loop back and take the next value G7 and set that to S.

For i = 6 To 7
Range("G" & i).Select

Dim S As String
S = "=" & Range(i).Value



Selection.Copy
Sheets("TMS").Select
Selection.AutoFilter Field:=1, Criteria1:=S, Operator:=xlAnd
Range("F1").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("CheckNamesSent").Select
Range("I4").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Range("A1").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False

Next i
End Sub


What am I doing wrong ?

Thank you in advance.