Veri sorgulama

[hassas]

Arkadaşlar iyi günler diler hayatınızda kolaylıklar ve sağlıklar dilerim.
Ekte çaba sarf ettiğim fakat sonuca ulaşamadığım bir dosya koydum, eğer yardımcı olabilirseniz çok memnun kalırım.
şimdiden iyi çalışmalar diler başarılarınızın devamını dilerim.

 

[Emir Hüseyin Çoban]

. . .

Sub KOD()
    Application.ScreenUpdating = False
    
    Range("L2:M65536").ClearContents
    For i = 2 To Cells(Rows.Count, "N").End(3).Row
        If Cells(i, "N") <> "" Then
            For a = 1 To Len(Cells(i, "N"))
                If IsNumeric(Mid(Cells(i, "N"), a, 1)) Then
                    sayı = sayı & Mid(Cells(i, "N"), a, 1)
                Else
                    metin = metin & Mid(Cells(i, "N"), a, 1)
                End If
            Next a
            Cells(i, "M") = Cells(sayı, metin)
            Cells(i, "L") = i - 1
            sayı = Empty
            metin = Empty
        End If
    Next i
    
    Application.ScreenUpdating = True
    MsgBox " B i t t i "
End Sub

. . .

 

[hassas]

Sayın hüseyin hocam dosyayı çalıştıramadım,birde tam olarak anlatamadım herhalde.
N sutunundaki yazılan hücre adını a ile j sutunlarında bulacak aranan hücredeki veriyi N sutununda belirtilen, hücre ile aynı hizadaki L sutununda bulunan hücreye yazacak.
dosya üzerinde uygulayıp gönderebilirseniz çok mem nun olurum.
şimdiden ilginiz için çok teşekkür eder ,tüm işlerinizde başarılar dilerim.

 

[Emir Hüseyin Çoban]

. . .

Dosyanız ektedir.

Ekran Görüntüsü (GİF)

. . .

 

[hassas]

Sayın Hüseyin bey teşekkür ederim, emeğiniz ayrıca teşekkür eder hayatınızda başarılar dilerim.