Veritabanındaki İsimleri Excel Sayfasına Yazdırma

[ahmedummu]

Evet şimdi farkettim. Herkese teşekkür ederim arkadaşlar. Hayırlı akşamlar.

 

[ahmedummu]

Herkese hayırlı sabahlar.

GORDUR alan adında, değeri "RAPORLU, DOĞUM SONRASI İZİN, DOĞUM ÖNCESİ İZİN, ÜCRETSİZ İZİNDE ve AÇIĞA ALINDI" olanları listenin dışında bırakabilir miyiz.

Kusura bakmayın raporluları listede görünce farkettim.

 

[askm]

Private Sub CommandButton1_Click()

    'Referanslardan Microsoft ActiveX Data Object ... Library Seçili Olmalı
    Dim cn  As Object, _
        rs  As Object, _
        Yol As String, _
        i   As Long, _
        Sorgu As String
        
        
    Yol = ThisWorkbook.Path & "\veriler.mdb"

    Application.ScreenUpdating = False
    
    Range("A1") = TextBox1.Value
    
    i = Cells(Rows.Count, "B").End(3).Row
    If i < 7 Then i = 7
    Range("A7:C" & i).ClearContents
    Range("A7") = 1
    
    Set cn = CreateObject("ADODB.Connection")
    cn.Open "Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & Yol & ";"

    Sorgu = "SELECT ADISOYADI, GOREVI FROM bilgiler WHERE GOREVI LIKE 'MÜDÜR%' OR GOREVI LIKE '%ÖĞRETMEN%' AND GDUR='GÖREVDE' ORDER BY GOREVI, ADISOYADI"
    Set rs = CreateObject("ADODB.Recordset")
    rs.Open Sorgu, cn, , , adCmdText
    
    Range("B7").CopyFromRecordset rs
    rs.Close
    Set rs = Nothing
    cn.Close
    Set cn = Nothing
    Application.ScreenUpdating = True
    Unload Me
    
    i = Cells(Rows.Count, "B").End(3).Row
    If i > 6 Then Range("A7:A" & i).DataSeries
    
End Sub

 

[ahmedummu]

Çok teşekkürler sayın askm. Cevap biraz gecikti kusura bakmayın. İşyerinin interneti MEB hattı. Çoğu siteye erişim yapmıyor. Bugün 10-11 gibi Excel web tr ye de erişimi engellemiş bu yüzden cevap geç yazdım.