Sütundaki değer ile eşitse veriyi aktarsın

[SadiSerdari]

Arkadaşlar aşağıdaki kodla veritabından veri çekerek sayfaya aktarıyorum. Ancak Eşitliği sağlama yolunu bir türlü yapamadım yardımcı olabilirseniz sevinirim. Teşekkürler.

Sub Aktar()

        Set BS = Worksheets("B.S.")

        BS.[A3:IV65536].Delete Shift:=xlUp
        BS.[A3:IV65536].ClearContents

        Dim Sat As Long
        Dim SonSat As Long
        Dim SonSut As Long
        Dim Ay1 As String
        Dim Ay2 As String

        Ay1 = BS.Cells(1, 2)
        Ay2 = BS.Cells(1, 3)

        MyConN

        SonSat = BS.Cells(Rows.Count, 2).End(xlUp).Row
        SonSut = BS.Cells(Columns.Count, 3).End(xlUp).Row
        Sutun = SonSut

        HESPLN1.Open SQLStr1(2), ADOConn, 1, 3

        While Not HESPLN1.EOF

            HESKOD = HESPLN1.Fields("HESAP_KODU").Value
            HESAD1 = HESPLN1.Fields("HS_ADI").Value

            BS.Cells(SonSat + 1, 1).Value = HESAD1
            BS.Cells(SonSat + 1, 1).VerticalAlignment = xlCenter
            BS.Cells(SonSat + 1, 1).HorizontalAlignment = xlLeft
            BS.Cells(SonSat + 1, 2).Value = HESKOD

            HESPLNFIS.Open SQLStr2(2, Ay1, Ay2), ADOConn, 1, 3

            While Not HESPLNFIS.EOF

                HESKOD = HESPLNFIS.Fields("HESAP_KODU").Value
                HESADI = UCase(Replace(Replace(HESPLNFIS.Fields("HS_ADI").Value, "ı", "I"), "i", "İ"))
                TUTAR = HESPLNFIS.Fields("BAKIYE")
                BSVeri = BS.Cells(2, Sutun + 1)

                    If BSVeri = HESADI Then

                        BS.Cells(SonSat + 1, Sutun + 1).Value = TUTAR

                    End If

                    Sutun = Sutun + 1

                HESPLNFIS.MoveNext

            Wend

            HESPLNFIS.Close
            HESPLN1.MoveNext

        Wend

        HESPLN1.Close

        ADOConn.Close

End Sub

HESADI = UCase(Replace(Replace(HESPLNFIS.Fields("HS_ADI").Value, "ı", "I"), "i", "İ"))
BSVeri = BS.Cells(2, Sutun + 1)
Bu iki kodda while kısmında HESADI ve BSVeri yenilendiği için eşitliği sağlayamadım. BSVeri değişirken HESADI aynı zamanda yenilenmemesi lazımki sütünla benzerlik bulunabilsin. Bir türlü çözüm elde edemedim. Dosyayı eklemek isterdim ancak veriler Serverden çağrıldığı için bir anlamı olmazdı.