Private Sub cmdSORGU_Click()
  ZAMANBAS = Now()
   Dim sfILCEKOD As Excel.Worksheet
Set sfILCEKOD = ThisWorkbook.Worksheets("TRSO_ILCKOD")


      Call sbNFSKYTBAG_AC
      'If boolNFSKYDBAG = False Then GoTo exitPROC
      Dim SqlSrg As String
  Rem *\*\*\*\*\*\*\*\*\*\**\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\*\
     SAY = 0
      For i = 22 To 40  '1055
    'MsgBox sfILCEKOD.Cells(i, 2).Text
'Next i
        SqlSrg = " tblSAHIS.SHS_NKOIL = " & "'" & sfILCEKOD.Cells(i, 4).Text & "'" & " AND " & _
                   " tblSAHIS.SHS_NKOILCE = " & "'" & sfILCEKOD.Cells(i, 2).Text & "'"
          
        sqlSTR = " SELECT " & sqlBAS_SHS_2 & " FROM [tblSAHIS] " & _
                   " WHERE " & SqlSrg
                   
              Set recNFS = CreateObject("ADODB.Recordset")    'kayıt bağlantısını kur
              With recNFS
                .Open sqlSTR, conNFS, adOpenKeyset, adLockOptimistic
                If .RecordCount <> 0 Then
                'Eşleşmenin sağlandığı tüm alanlarda alanlara sabit veri ekle.
                  .MoveFirst
                  Do While Not .EOF
                    .Fields("SHS_NKOILCEKODU") = sfILCEKOD.Cells(i, 1).Text
                    .MoveNext
                  Loop
                  SAY = SAY + .RecordCount
    '              MsgBox SAY & "/" & .RecordCount & " kayıda ilçe kodu eklenmiştir."
                End If
              End With
              Set recNFS = Nothing
   Next i
  Rem */*/*/*/*/*/*/*/*/*/**/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/
  
  
   
exitPROC:
  Call sbNFSKYTBAGKES
  ZAMANBTS = Now()
  MsgBox "Süre: " & Format((ZAMANBTS - ZAMANBAS), "hh:mm:ss.dd") & " Kayıt: " & SAY
  End Sub