Hi all,
I use this code for sending info to a specific sheet, I'd like to have one code for multiple sheets instead of using code for each each sheet.
Could you improve this code, please?
Sub Tstocc65()
'****start 65
Dim Tstocc As Range, _
Found As Variant, _
NextRow As Long
Sheets("FCI-65").Range("a55:e64") = "" '55-64
For Each Tstocc In Sheets("MEL").Range("A70:A90")
With Sheets("FCI-65").Range("D26:G29")
Set Found = .Find(Trim(Tstocc.Text))
If Not Found Is Nothing Then
Sheets("FCI-65").Range("a" & (55 + NextRow)).Value = Tstocc.Value
Sheets("FCI-65").Range("E" & (55 + NextRow)).Value = Tstocc.offset(0, 1).Value
NextRow = NextRow + 1
End If
End With
Next Tstocc
'*end
End Sub
other sheets: FCI-65, FCI-66, FCI-313, FCI-315, ...Chrt8, Chrt9, Chrt11...
Thank you very much for your help.
Bookmarks