Solved: Copy cells in select columns that match other cells in select columns

Hi,

[vba]Private Sub CommandButton1_Click()
Dim i As Long, j As Long, a, w(), s, Str As String
a = Range("a3:j" & Range("a" & Rows.Count).End(xlUp).Row)
ReDim w(1 To UBound(a, 1), 1 To 6)
Str = Me.TextBox1 & Me.TextBox2 & Me.TextBox3 & Me.TextBox4
For i = 1 To UBound(a, 1)
With Application
s = Replace(Join(.Index(a, i, 0), "|"), "|", "")
End With
If Mid$(s, 3, 4) = Str Then
j = j + 1: w(j, 1) = a(i, 1): w(j, 2) = a(i, 2)
w(j, 3) = a(i, 7): w(j, 4) = a(i, 8)
w(j, 5) = a(i, 9): w(j, 6) = a(i, 10)
End If
Next
If j > 0 Then
With Range("L4")
For i = 1 To 4
.Offset(-2, i).Value = Mid$(Str, i, 1)
Next
.Resize(j, 6).Value = w
End With
End If
End Sub[/vba]

HTH

I think Simon is right, and that is certainly my take on it. It is not dissatisfaction, they should b*##%r off if they aren't happy, but more an impatience and a general view that we are here to serve them, so they are justified (in their minds) in wasting as much time of people as they can.

Personally, as I keep saying, my policy is that once I am aware that a question is cross-posted, I am outta there, I a m not going to even potentially waste my time, there are more deserving cases. And of course, serial cross-posters will just get ignored.

OzGrid bans cross-posters. I hope that VBAX never gets draconian like that, the members can make their own choices.

Quote:

---

Originally Posted by firefytr

LOL! No worries Simon, s/he did in fact acknowledge me via pm. Even if s/he did not, that is fine, the information was given, which I'm plenty cool with. And yeah, don't make me break off a can of whoop a$$!! LOL! :devil2:

I don't think Nader was aware of the ramifications of cross-posting(s), which s/he seems to be well aware of now. Like I said, I'm very comfortable with Nader. :yes

---

I acknowledge by my mistake taht I did cross posting many times, and I'm so sorry.

Quote:

---

Originally Posted by Aussiebear

Nader, would you be so kind as to post your workbook? There is some difficulty in understanding what you are chasing here.

---

I acknowledge for firefytr by my mistake taht I did cross posting many times, and I'm so sorry firefytr.

Oooooh! Nader, so touchy! in the words of the baird 'thou protesteth too much!'

Quote:

---

Originally Posted by Simon Lloyd

Oooooh! Nader, so touchy! in the words of the baird 'thou protesteth too much!'

---

What does mean "protesteth".

Nader, we are not saying you should not cross post. If you feel the need to cross post then simply add a link to the other forum, so that those members who feel inclined to assist you can see what help has been offered to date.

I read the role of cross posting in this link http://www.excelguru.ca/node/7
But I couldn't understand this item: - Ask people to post their replies in the original forum.
How the people will send the post in the original forum if they are not memebers in it.

Whilst it's true that not all the people who are trying to assist you, may be able to gain access to another forum, we have sufficent members here who frequent a number of forums. They may be able to assist.

Why not try to post a link now? This way a lot of the "heat" in this matter will simply disappear. Copy the URL address of the thread in the other forum, to a new reply here and see how it goes?

I'm sure others here will thank you for the effort

Quote:

---

Originally Posted by Aussiebear

Whilst it's true that not all the people who are trying to assist you, may be able to gain access to another forum, we have sufficent members here who frequent a number of forums. They may be able to assist.

Why not try to post a link now? This way a lot of the "heat" in this matter will simply disappear. Copy the URL address of the thread in the other forum, to a new reply here and see how it goes?

I'm sure others here will thank you for the effort

---

I did that and here is the link: http://www.mrexcel.com/forum/showthread.php?t=309951

Thank you all.

Thank you Nader. :thumb