Veri Aktarma

[volki79]

Kolay Gelsin arkadaşlar;

Örnek_çalışma1 excell çalışmasında çalışma1 ve çalışma2 adı altında 2 sheetten oluşan sayfalarım var. Çalışma 1 yer alan personellerin T.C lerine göre aynı satırda dolu olan hücrenin hangi %de'lik dilime geldiğini çalışma2 aktaran bir fonksiyon var mı? Yardımlarınız için çok teşekkür ederim.

http://dosya.co/f61j3t3u5fza/Örnek_Çalışma_1.xlsx.html

 

[vardar07]

Aşağıdaki kodu kullanabilirsiniz.

Sub aktar()
Dim S1 As Worksheet, S2 As Worksheet
Dim bul As Range
Set S1 = Sheets("Çalışma1")
Set S2 = Sheets("Çalışma2")
son = S2.Range("A65536").End(3).Row
For i = 2 To son
If Cells(i, "A") <> "" Then
Set bul = S1.Range("A:A").Find(S2.Cells(i, "A"), , xlFormulas, xlPart)
If Not bul Is Nothing Then
If S1.Range("C" & bul.Row) <> "" Then a = 3
If S1.Range("D" & bul.Row) <> "" Then a = 4
If S1.Range("E" & bul.Row) <> "" Then a = 5
S1.Cells(1, a).Copy S2.Cells(i, "C")
End If
End If
Next
End Sub

 

[volki79]

çok teşekkür ederim hocam

 

[vardar07]

Rica ederim. İstediğiniz gibimi?

 

[volki79]

İstediğim gibi olmuş elinize sağlık...