Sütunlardaki isimleri birleştirerek diğer sayfaya aktarma

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar ekli dosyamda isteğimi anlattım, yardımcı olursanız sevinirim teşekkürler.
http://s7.dosya.tc/server3/wnpwd2/1-_OCAK_2018.xls.html

 

[çıtır]

İsteğiniz bu şekilede bir işlemle olabilir mi?
http://www.dosya.tc/server12/lbscke/isimlistesi.rar.html

 

[Hacı Bayram ÖZKAN]

Sayın Çıtır olmuş güzel ama bu makroyla nasıl olur, formüller siliniyor, yada satır sildiğimizde
formül tekrar yazmak gerekiyor. Teşekkürler.

 

[çıtır]

Deneyiniz.Makro konusunda pek iyi sayılmam.

Sub ısımler()
Dim i As Integer
Set s1 = Sheets("PUANTAJ")
Set s2 = Sheets("İSİMLİSTESİ")
Set s3 = Sheets("BANKA")
On Error Resume Next
For i = 10 To 47
t = WorksheetFunction.CountIf(s1.Range("A7:A100"), s2.Range("A" & i))
If t > 0 Then
s2.Range("B" & i) = WorksheetFunction.VLookup(s2.Range("A" & i), s1.Range("A7:C100"), 2, 0) & " " & WorksheetFunction.VLookup(s2.Range("A" & i), s1.Range("A7:C100"), 3, 0)
t = WorksheetFunction.CountIf(s1.Range("A7:A100"), s2.Range("C" & i))
If t > 0 Then
s2.Range("D" & i) = WorksheetFunction.VLookup(s2.Range("C" & i), s1.Range("A7:C100"), 2, 0) & " " & WorksheetFunction.VLookup(s2.Range("C" & i), s1.Range("A7:C100"), 3, 0)
t = WorksheetFunction.CountIf(s1.Range("A7:A100"), s2.Range("E" & i))
If t > 0 Then
s2.Range("F" & i) = WorksheetFunction.VLookup(s2.Range("E" & i), s1.Range("A7:C100"), 2, 0) & " " & WorksheetFunction.VLookup(s2.Range("E" & i), s1.Range("A7:C100"), 3, 0)
End If
End If
End If
Next i
For i = 3 To 94
t = WorksheetFunction.CountIf(s1.Range("A7:A100"), s3.Range("A" & i))
If t > 0 Then
s3.Range("C" & i) = WorksheetFunction.VLookup(s3.Range("A" & i), s1.Range("A7:C100"), 2, 0) & " " & WorksheetFunction.VLookup(s3.Range("A" & i), s1.Range("A7:C100"), 3, 0)
End If
Next i
MsgBox "İşlem Tamam", vbInformation
End Sub

 

[Hacı Bayram ÖZKAN]

Sayın çıtır yarın deneyeceğim evde bilgisayar yok teşekkür ederim iyi geceler

 

[Hacı Bayram ÖZKAN]

Sayın çıtır denedim Banka sayfasında durdu ve bunu kaldırdım bu seferde hiç bir veri aktarmadı vaktin olursa bir bakarsan sevinirim teşekkürler.

 

[çıtır]

Sıra Numaraları bulunmalı , dosya yapısı aynı olmalıdır.Dosyanız.
http://s3.dosya.tc/server14/23miq3/MAKISIM.rar.html

 

[Hacı Bayram ÖZKAN]

Sayın çıtır oldu abim eline sağlık dua ile kal...