Girilen Veriyi Tabloya Yerleştirme

[hacker97]

Merhaba, kelimelerin baş harflerine göre düzenlenmiş bir tablo oluşturdum. tablolara kelimeleri teker teker girmek yerine fotoğrafta da belirttiğim gibi A2 ve B2 hücresine yazılan kelimeyi a2 hücresindeki kelimenin baş harfine göre gerekli tabloya aktaran makro oluşturmaya çalıştım, yapamadım. Yardımcı olabilir misiniz ?


Dosya Linki : https://docs.google.com/spreadsheets/d/14Fo_OFyLzg7pPT8w3-Z2Xpss6tlosVXlFPLTX-h3Vbw/edit?usp=sharing

 

[turist]

Resim eklemek yerine, dosya örneğinizi eklerseniz; cevap bulma şansınız artar.
Örnek dosya ekleme hakkında bilgi edinmek isterseniz:
https://www.excel.web.tr/threads/soru-ile-ilgili-oernek-excel-dosyasi-ekleme.174755/
bakınız.

 

[hacker97]

Link Ekledim

 

[turist]

Aşağıdaki Linkten dosyanızı indirip inceleyiniz.
Dosya Linki

 

[hacker97]

Eline sağlık üstad

 

[turist]

Sağ olun, iyi çalışmalar.

 

[Necdet]

Merhaba, Sayın turist'in kodlarını görmeden yazmıştım. Alternatif olsun.

Aşağıdaki kodları bir butona bağlayabilirsiniz.

Sub Aktar()

    Dim Kol As Integer, _
        Sat As Long, _
        c   As Range, _
        ih  As String
    
    ih = Left(Range("A2"), 1)
    Set c = Range("3:3").Find(ih, LookIn:=xlValues)
    If Not c Is Nothing Then
        Kol = c.Column
    Else
        MsgBox ih & " HARFİNİ BULAMADIM......"
        Exit Sub
    End If
    
    Sat = Cells(Rows.Count, Kol).End(3).Row + 1
    
    Cells(Sat, Kol) = Range("A2")
    Cells(Sat, Kol + 1) = Range("B2")
    
    Range(Cells(4, Kol), Cells(Sat, Kol + 1)).Sort Key1:=Cells(4, Kol)
    
End Sub

 

[hacker97]

teşekkür ederim elinize sağlık