Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 08-12-2017, 08:56   #1
ahmedummu
Altın Üye
 
ahmedummu kullanıcısının avatarı
 
Giriş: 21/06/2009
Şehir: Ankara
Mesaj: 289
Excel Vers. ve Dili:
2003 türkçe
Varsayılan Veritabanındaki İsimleri Excel Sayfasına Yazdırma

Merhaba arkadaşlar.

Örnek dosyada, form üzerindeki textbox1'in değeri Sayfa1 A1 hücresine yazıldıktan sonra,

A7 hücresine sıra numarası verip, veritabanından ADISOYADI alan adındaki isimleri B7 den, GOREVI alan adını da C7 den başlayarak listeleme yapacak. Listeleme yaparken MÜDÜR, MÜDÜR YARDIMCISI, ÖĞRETMEN ve UZMAN ÖĞRETMEN ünvanları listelenecek.
---------------------------------------------------------------------------------------
Sıralamada GOREVI alan adında önce ünvan "MÜDÜR", sonra "MÜDÜR YARDIMCISI" olanlar ilk iki sırada yer alırsa çok iyi olur. Olmasa da önemli değil. İlk ki paragraftaki işlevleri yapması da yeterli.

Yardımcı olursanız sevinirim.
Eklenmiş Dosyalar
Dosya Türü: rar örnek.rar (49.5 KB, 8 Görüntülenme)
__________________
Burası Excel Vadisi
Burada Excel Konuşulur.

Bu mesaj en son " 08-12-2017 " tarihinde saat 09:00 itibariyle ahmedummu tarafından düzenlenmiştir.... Neden: Eksik bilgi
ahmedummu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-12-2017, 09:48   #2
Necdet Yeşertener
Moderatör
 
Giriş: 04/06/2005
Şehir: Ankara
Mesaj: 12,019
Excel Vers. ve Dili:
Ofis 2003 İngilizce Ofis 2007 Türkçe Ofis 2010 Türkçe
Varsayılan

Merhaba,

A7 hücresine 5 yazdık örneğin. Ne olmasını istiyorsunuz. Sorunuzu defalarca okumama rağmen ne istediğinizi anlayamadım.
__________________
Sayfada Boş Satırları Silmek:
Sütunu Seçiniz, F5, Özel, Boşluklar, Tamam,
Sağ Klik, Sil, Tüm Satır, Tamam

Türkçe'nin Bir Eksiği Yok, Ya Sizin?



Necdet Yeşertener Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-12-2017, 10:24   #3
ahmedummu
Altın Üye
 
ahmedummu kullanıcısının avatarı
 
Giriş: 21/06/2009
Şehir: Ankara
Mesaj: 289
Excel Vers. ve Dili:
2003 türkçe
Varsayılan

Merhaba

LİSTEYİ OLUŞTUR butonuna tıklandığında,

Veritabanından (GOREVI) alan adındaki değer MÜDÜR, MÜDÜR YARDIMCISI, UZMAN ÖĞRETMEN ve ÖĞRETMEN olanların isimlerini Sayfa1 B7 hücresin den başlayarak, GOREVI alan adındaki verileri de C7 hücresinden başlayarak listeleyecek. (yazacak)

Bu arada A7 hücresin den başlayarak da sıra numarası verecek.

GOREVI alanında ünvanları MÜDÜR VE MÜDÜR YARDIMCISI olanlar 1 ve 2. sırada listelenirse çok iyi olur. Olmasa da önemli değil.
__________________
Burası Excel Vadisi
Burada Excel Konuşulur.

Bu mesaj en son " 08-12-2017 " tarihinde saat 10:27 itibariyle ahmedummu tarafından düzenlenmiştir.... Neden: Dzüeltme
ahmedummu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-12-2017, 10:26   #4
By_Hayta
 
Giriş: 08/12/2017
Şehir: Antalya
Mesaj: 2
Excel Vers. ve Dili:
exel hepsi
Varsayılan

Konuyu anladım yardımcı olmak isterim lakin dosyayı indiremiyorum. Mail yoluyla Mümkünse gönderebilirmisiniz?

Bu mesaj en son " 08-12-2017 " tarihinde saat 11:02 itibariyle By_Hayta tarafından düzenlenmiştir....
By_Hayta Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-12-2017, 10:28   #5
ahmedummu
Altın Üye
 
ahmedummu kullanıcısının avatarı
 
Giriş: 21/06/2009
Şehir: Ankara
Mesaj: 289
Excel Vers. ve Dili:
2003 türkçe
Varsayılan

Maili yazarsanız gönderirim.Forum içinde mail gönderilebiliniyormu onu bilmiyorum.
__________________
Burası Excel Vadisi
Burada Excel Konuşulur.
ahmedummu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-12-2017, 10:37   #6
By_Hayta
 
Giriş: 08/12/2017
Şehir: Antalya
Mesaj: 2
Excel Vers. ve Dili:
exel hepsi
Varsayılan

haklısınız

Bu mesaj en son " 08-12-2017 " tarihinde saat 10:49 itibariyle By_Hayta tarafından düzenlenmiştir....
By_Hayta Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-12-2017, 10:43   #7
ahmedummu
Altın Üye
 
ahmedummu kullanıcısının avatarı
 
Giriş: 21/06/2009
Şehir: Ankara
Mesaj: 289
Excel Vers. ve Dili:
2003 türkçe
Varsayılan

Necdet Bey şöyle

1 LÜTFÜ BİLİCİ MÜDÜR
2 ORHAN IŞIK MÜDÜR YARDIMCISI
3 NERMİN CAN MÜDÜR YARDIMCISI
4 NAZİRE TUTUMLU MÜDÜR YARDIMCISI
5 AYŞE ÇOLAK ÖĞRETMEN

A7'e sıra no, B7'den başlayarak adı soyadı, C7'ye den başlayarak görevi yazılacak.

alan adları adı soyadı (ADISOYADI) görevi (GOREVI)

Örnek dosyayı sayfa içinde örnekleyerek tekrar gönderdim.
Eklenmiş Dosyalar
Dosya Türü: rar örnek.rar (50.5 KB, 10 Görüntülenme)
__________________
Burası Excel Vadisi
Burada Excel Konuşulur.
ahmedummu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 08-12-2017, 10:47   #8
ahmedummu
Altın Üye
 
ahmedummu kullanıcısının avatarı
 
Giriş: 21/06/2009
Şehir: Ankara
Mesaj: 289
Excel Vers. ve Dili:
2003 türkçe
Varsayılan

Dosyayı belirttiğiniz adrese gönderdim.
__________________
Burası Excel Vadisi
Burada Excel Konuşulur.

Bu mesaj en son " 08-12-2017 " tarihinde saat 10:48 itibariyle ahmedummu tarafından düzenlenmiştir.... Neden: düzeltme
ahmedummu Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-12-2017, 10:30   #9
Necdet Yeşertener
Moderatör
 
Giriş: 04/06/2005
Şehir: Ankara
Mesaj: 12,019
Excel Vers. ve Dili:
Ofis 2003 İngilizce Ofis 2007 Türkçe Ofis 2010 Türkçe
Varsayılan

Merhaba,

Formdaki CommandButton1_Click kodları aşağıdadır. Excel dosyası ile veritabanı aynı dizinde olmalı, Farklıysa Yol değişkenini kendinize göre belirleyiniz.
Deneyiniz.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
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
        
    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 & ";"

    Set rs = CreateObject("ADODB.Recordset")
    rs.Open "SELECT ADISOYADI, GOREVI FROM bilgiler ORDER BY GOREVI", 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
__________________
Sayfada Boş Satırları Silmek:
Sütunu Seçiniz, F5, Özel, Boşluklar, Tamam,
Sağ Klik, Sil, Tüm Satır, Tamam

Türkçe'nin Bir Eksiği Yok, Ya Sizin?



Necdet Yeşertener Çevrimdışı   Alıntı Yaparak Cevapla
Eski 09-12-2017, 20:25   #10
ahmedummu
Altın Üye
 
ahmedummu kullanıcısının avatarı
 
Giriş: 21/06/2009
Şehir: Ankara
Mesaj: 289
Excel Vers. ve Dili:
2003 türkçe
Varsayılan

Merhaba Necdet bey. Kodlar için teşekkür ederim.

Sağlayıcı bulunamıyor. Düzgün yüklenmemiş olabilir.

Diye hata veriyor. Veri tabanı dosyası ile excel dosyası aynı klasörün içinde
__________________
Burası Excel Vadisi
Burada Excel Konuşulur.
ahmedummu Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 02:03


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil ve Konuşma Terapisti- Çorlu Dil ve Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Havuz- Makina- Danışmazlar-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden