Makro ile şarta göre tek hücrede metin birleştirme

[burhancavus61]

Sayfa 1 deki yatay satırdaki bilgileri sayfa2 A1 ve A2 kriterine göre B3 hücresine birleştirerek yamak mümkünmüdür.

 

[N.Ziya Hiçdurmaz]

merhaba; aşağıdaki kodu deneyiniz.
Sub test()
Sayfa2.[b3] = ""
v = Sayfa1.Range("b1:h" & Sayfa1.Cells(Rows.Count, "b").End(xlUp).Row)
For sat = 2 To UBound(v)
For sut = 3 To 7
If v(sat, 1) = Sayfa2.[a1] And v(sat, 2) = Sayfa2.[a2] Then
Sayfa2.[b3] = Sayfa2.[b3] & " " & v(sat, sut)
End If
Next
Next
End Sub

 

[burhancavus61]

Teşekkür ederim bu işimi görecek