Sütunda yer alan verilerden, belirtilen verileri sütunlardaki hücrelere almak

[Erdinç FIRTINA]

Değerli forum üyeleri,
Ek dosyada yer alan tablonun E sütunundaki verilerin içinden belirtilen verileri H, I, J, K, L sütununa almak istiyorum.

Yardımlarınız için şimdiden çok teşekkür ederim...

 

[Muzaffer Ali]

Merhaba.
Aşağıdaki bir modüle kopyalayıp çalıştırın.

Sub Test()
    Dim Bak As Long
    Dim Bak2 As Long
    Dim Aciklama As Variant
    For Bak = 5 To Cells(Rows.Count, "E").End(xlUp).Row
        Aciklama = Split(Cells(Bak, "E"), " ")
        For Bak2 = 0 To UBound(Aciklama)
            Select Case Aciklama(Bak2)
                Case "Adet"
                    Cells(Bak, "G") = Aciklama(Bak2 - 1)
                Case "TL"
                    Cells(Bak, "H") = Aciklama(Bak2 - 1)
                Case "Kom:"
                    Cells(Bak, "I") = Aciklama(Bak2 + 1)
                Case "Temettu:"
                    Cells(Bak, "J") = Aciklama(Bak2 + 1)
                Case "Stopaj:"
                    Cells(Bak, "K") = Aciklama(Bak2 + 1)
                Case "BSMV:"
                    Cells(Bak, "L") = Aciklama(Bak2 + 1)
            End Select
        Next
        Cells(Bak, "M") = Cells(Bak, "G") * Cells(Bak, "H")
    Next
End Sub

 

[Erdinç FIRTINA]

Sayın Muzaffer Ali,
Öncelikle yardımlarınız için çok çok teşekkür ederim.
Söz konusu dosya ile ilgili başkaca bir yardım talebim daha olacak. Bu konuda da yardımlarınız olabilirse şimdiden çok çok teşekkür ederim.

 

[Erdinç FIRTINA]

Değerli forum üyeleri,

Ek dosyada yer alan tablonun B sütunundaki verilerin yer alan satırların da dahil olacağı şekilde her birine isim vererek bir sayfada alt alta olmasını istiyorum.
"BORSA" adlı sayfadaki B5 te "Ali" var. C5, D5, E5, F5, G5, H5, vb devam eden bilgileri de alacak şekilde sayfa oluşturup verilerin alt alta sıralanmasını istiyorum.
Örneğin;
B5 C5 D5 E5 F5 G5 H5 ..... ŞEKİLDE DEVAM EDEN
Ali 03.01.2023 Ali kietlkatl kae 20 45,56 ..... ŞEKİLDE DEVAM EDEN
Veli 03.01.2023 Ali kietlkatl kae 20 45,56 ..... ŞEKİLDE DEVAM EDEN
Ayşe 03.01.2023 Ali kietlkatl kae 20 45,56 ..... ŞEKİLDE DEVAM EDEN
Vehbi 03.01.2023 Ali kietlkatl kae 20 45,56 ..... ŞEKİLDE DEVAM EDEN
Suna 03.01.2023 Ali kietlkatl kae 20 45,56 ..... ŞEKİLDE DEVAM EDEN
Ali 03.01.2023 Ali kietlkatl kae 20 45,56 ..... ŞEKİLDE DEVAM EDEN
Veli 03.01.2023 Ali kietlkatl kae 20 45,56 ..... ŞEKİLDE DEVAM EDEN

Oluşturalacak Ali sayfasında;
B5 C5 D5 E5 F5 G5 H5 ..... ŞEKİLDE DEVAM EDEN
Ali 03.01.2023 Ali kietlkatl kae 20 45,56 ..... ŞEKİLDE DEVAM EDEN
Ali 03.01.2023 Ali kietlkatl kae 20 45,56 ..... ŞEKİLDE DEVAM EDEN

Oluşturalacak Veli sayfasında;
Veli 03.01.2023 Ali kietlkatl kae 20 45,56 ..... ŞEKİLDE DEVAM EDEN
Veli 03.01.2023 Ali kietlkatl kae 20 45,56 ..... ŞEKİLDE DEVAM EDEN

Oluşturalacak Ayşe sayfasında;
Ayşe 03.01.2023 Ali kietlkatl kae 20 45,56 ..... ŞEKİLDE DEVAM EDEN

vb şekilde oluşturulacak sayfalarda verilin alt alta sıralanmasını istiyorum.

Yardımlarınız için şimdiden çok teşekkür ederim...