Soru Başlıklara göre sütunlara aktarım

[NADİR YILDIZ]

Arkadaşlar sorunumla ilgili olarak ekteki örnek dosyamda açıklamalar yaptım.

iyi çalışmalar

 

[muygun]

Merhaba;
Eki deneyin.
İyi çalışmalar.

 

[Korhan Ayhan]

Alternatif;

Option Explicit

Sub Sutun_Basliklarini_Eslestirip_Aktar()
    Dim Zaman As Double, Son As Long, Veri As Variant, X As Long
    Dim Bul_Kaynak As Range, Bul_Hedef As Range
    
    Zaman = Timer
    
    Application.ScreenUpdating = 0
    Application.Calculation = -4135
    
    Range("A9:G" & Rows.Count).ClearContents
    
    Son = Cells(Rows.Count, "N").End(3).Row
    If Son = 9 Then Son = 10
    
    Veri = Range("M9:N" & Son).Value
    
    For X = LBound(Veri, 1) To UBound(Veri, 1)
        If Veri(X, 2) <> "" Then
            If Veri(X, 1) <> "" Then
                Set Bul_Kaynak = Range("A8:G8").Find(Veri(X, 2), , , xlWhole)
                If Not Bul_Kaynak Is Nothing Then
                    Set Bul_Hedef = Range("T8:AZ8").Find(Veri(X, 1), , , xlWhole)
                    If Not Bul_Hedef Is Nothing Then
                        Son = Cells(Rows.Count, Bul_Hedef.Column).End(3).Row
                        If Son > 8 Then
                            Cells(9, Bul_Kaynak.Column).Resize(Son - 7).Value = Cells(9, Bul_Hedef.Column).Resize(Son - 7).Value
                        End If
                    End If
                End If
            End If
        End If
    Next

    Set Bul_Kaynak = Nothing
    Set Bul_Hedef = Nothing
    
    Application.Calculation = -4105
    Application.ScreenUpdating = 1

    MsgBox "İşleminiz tamamlanmıştır." & vbLf & vbLf & _
           "İşlem süresi ; " & Format(Timer - Zaman, "0.00") & " Saniye"
End Sub

 

[NADİR YILDIZ]

Sayın Korhan bey
sayın muygun teşekkür ederim

 

[NADİR YILDIZ]

Korhan bey dosyada ek olarak ilaveler oldu bu konuda nasıl bir çözüm üretebilirsiniz

iyi çalışmalar

 

[NADİR YILDIZ]

konu günceldir

 

[NADİR YILDIZ]

Korhan bey bu konuda yardımcı olabilirmisiniz

 

[NADİR YILDIZ]

Arkadaşlar çalışmama Korhan bey birinci aşamada yardımcı oldu.
kendisine çok çok teşekkür ederim.
çalışmama ilaveler ettiğim için bu konuda korhan bey veya diğer üstadlardan yardım rica ediyorum

iyi çalışmalar

 

[NADİR YILDIZ]

arkadaşlar valla yazmaktan çekinir oldum ama
bu dosyanın çözümü yok mu
lütfen bu konuda yardıma ihtiyacım var
yada farklı çözüm önerisi olan var mı ?

 

[NADİR YILDIZ]

arkadaşlar bana bu konuda yardımcı olacak kimse yok mu

yada bu işin çözümü yok mu ?

bir kişi de olsa yorum yapabilir mi lütfen