Soru Access veritbanındaki bir tabloda istenen alanları excele aktarmak istiyorum.

[s.savas]

Merhaba arkadaşlar.
Veritabanındaki personel isimli tablonun; adi_soyadi, tc_kimlikno, unvani, baskanlik, birim ve alt_birim alanlarındaki verileri PERSONEL isimli şablonun B2 hücresinden itibaren aktarmak istiyorum.
Yardımcı olacak arkadaşlara teşekkür ederim.

 

[Orion1]

Örnek dosyanızıda veri tabanı örnek dosyasıyla birlikte yükleseydiniz iyi olurdu.
Deneme yapmak gerekecek.

 

[Orion1]

Access dosyasının adı ne?

 

[s.savas]

Örnek dosyanızıda veri tabanı örnek dosyasıyla birlikte yükleseydiniz iyi olurdu.
Deneme yapmak gerekecek.

Teşekkür ederim Evren hocam.
Arşivimdeki örnek kodlardan şu şekilde derledim, kısmen sonuç aldım.
Kodun çalıştığını denemek için Combobox8'in change yordamına ekledim, çok efektif olmadı.
Şöyle olursa daha güzel olur kanısındayım.
Userform2 çalışınca veriler kopyalansın, kapatılınca da temizlensin.
Ya da sizin öneriniz ne olursa saygı duyarım.

Private Sub ComboBox8_Change()
Application.ScreenUpdating = False
Dim s1 As Worksheet
Dim i As Long

Set s1 = Sheets("PERSONEL")
Call BAGLANTI

Set rs = CreateObject("ADODB.Recordset")
strSQL = "SELECT KIMLIK,adi_soyadi,tc_kimlikno,unvani,baskanlik,birim,alt_birim " & "FROM personel "
           rs.Open strSQL, baglan, 1, 1
s1.Range("A3").CopyFromRecordset rs
rs.Close
End Sub

 

[s.savas]

Access dosyasının adı ne?

Özür hocam ben yazarken sizde yazmışsınız. Örnek çalışmamı ekledim.

 

[Orion1]

Buyurun.

 

[s.savas]

Üstadım elinize, emeğinize sağlık.
İzniniz olursa aynı çalışmada eksik olan son bir sorunum daha var.
IMZA FOYU isimli şablonda hafta sonlarını koşullu biçimlendirme ile tanımladım.

=EĞER(EBOŞSA(A9);"";YADA(HAFTANINGÜNÜ(A9)=1))
=EĞER(EBOŞSA(A9);"";YADA(HAFTANINGÜNÜ(A9)=7))

=DOLAYLI("'RESMİ TATİLLER'!A"&KAÇINCI(TARİH(YIL(IMZA FOYU!$C$7);1;1);'RESMİ TATİLLER'!$A:$A;0)&":A"&KAÇINCI(TARİH(YIL(IMZA FOYU!$C$7)+1;1;1);'RESMİ TATİLLER'!$A:$A;0))

=TOPLA.ÇARPIM(--(resmi_tatil=A$9))>0

Aynı şablonda hafta sonları ile beraber resmi tatillerin de gösterilmesini için ad tanımlama ile yapmaya çalışıyorum ancak başaramadım.

 

[Orion1]

Bu konu başka.Onun için yeni bir konu ve başlık açarak sorunuzu sorunuz.

 

[s.savas]

Eyvallah üstadım. [emoji7][emoji7]

SM-A705FN cihazımdan Tapatalk kullanılarak gönderildi

 

[Orion1]

Rica ederim.
İyi çalışmalar.