Ana hesaplardaki hesap kodları yanına yazdırılması hk

[1903emre34@gmail.com]

Merhaba,

"A" sütündaki Ara toplam 2 100 veya 102 olan hesapların 100,102 olanların hemen yanına yazdırmak istiyorum aşağıdaki formül olmadı, istenen (b1:b13 hücresinde) sayfa2'de yapılmıştır.

=EĞERHATA(EĞER(A2="Ara toplam 2";SAĞDAN(A2;4);"")+0;"")

 

[1903emre34@gmail.com]

Konu güncel

 

[1903emre34@gmail.com]

"A" sütündaki Ara toplam 2 100 veya 102 olan hesapların hemen yanına Ara toplam 2 100 veya 102 ifadede (100, 102 hesap kodları) hemen yanına yazdırmak isityorum aşağıdaki formül olmadı, istenen (b1:b13 hücresinde) sayfa2'de yapılmıştır.

 

[Zeki Gürsoy]

Deneyin....

Sub Test()
    Set reg = CreateObject("VBScript.RegExp")
    
    reg.ignorecase = True
    reg.Pattern = "ara.+(\d{3})"
    
    For i = 2 To Cells(Rows.Count, "a").End(3).Row
        
        If reg.Test(Cells(i, "a")) Then
        
            Cells(i, "b") = reg.Execute(Cells(i, "a"))(0).SubMatches(0)
                
        End If
        
    Next
    
End Sub

 

[Korhan Ayhan]

B3 için formülle çözüm;

=EĞER(SOLDAN(A3;12)="Ara toplam 2";YERİNEKOY(A3;"Ara toplam 2 ";"");"")

 

[1903emre34@gmail.com]

Teşekkürler, formül ve makro yoluyla çözüm önerileri çalıştı.