Listedeki isimleri aktarma

[Mdemir63]

Selamlar,
Arkadaşlar B sütunundaki listemde grup sütununda ki rakamlara göre ilgili sütunlara aktarabilirmiyiz.

Saygılar

 

[sakman26]

selam,
eki inceleyiniz..
kolay gelsin..

 

[Orion1]

Dosyanız ektedir.

Sub aktar59()
Dim sonsat As Long, sut As Integer, i As Long, k As Range
Dim deg As String, sonsat2 As Long
sonsat = Cells(Rows.Count, "B").End(xlUp).Row
Range("D2:I" & Rows.Count).ClearContents
Application.ScreenUpdating = False
For i = 2 To sonsat
    deg = Cells(i, "C").Value & ". GRUP"
    Set k = Range("D1:I1").Find(deg, , xlValues, xlWhole)
    If Not k Is Nothing Then
        sut = k.Column
        sonsat2 = Cells(Rows.Count, sut).End(xlUp).Row + 1
        Cells(sonsat2, sut).Value = Cells(i, "B").Value
    End If
Next i
Application.ScreenUpdating = True
MsgBox "Bitti" & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[Mdemir63]

Selamlar,

Sayın Sakman26
Dizi formüllü ve açıklamalı çözümünüz için;

Sayın Evren hocam size de Makrolu çözümünüz için çok teşekkür ederim.
Emeğinize sağlık.

Saygılar

 

[Orion1]

Selamlar,

Sayın Sakman26
Dizi formüllü ve açıklamalı çözümünüz için;

Sayın Evren hocam size de Makrolu çözümünüz için çok teşekkür ederim.
Emeğinize sağlık.

Saygılar

Rica ederim.
iyi çalışmalar.

 

[sakman26]

Selamlar,

Sayın Sakman26
Dizi formüllü ve açıklamalı çözümünüz için;

Sayın Evren hocam size de Makrolu çözümünüz için çok teşekkür ederim.
Emeğinize sağlık.

Saygılar

selam,
rica ediyorum...
kolaylar gelsin..