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 04-06-2017, 00:55   #1
BedriA
Altın Üye
 
BedriA kullanıcısının avatarı
 
Giriş: 03/06/2017
Şehir: Antalya
Mesaj: 793
Excel Vers. ve Dili:
2007, 32
Varsayılan Daha Önce Girilmiş Verileri Değiştirme ve Üzerine Kaydetme

Arkadaşlar,

Userform1 üzerine "Eski Kayıt Düzenle" butonu ile Userform2'yi çağırıyorum. O ekrandaki listbox'a "liste" isimli sayfadan öğrencinin adı-soyadı ile numarasının gelmesini, çok fazla öğrenci olacağı için üstte numara ve isme göre süzme işlemi yapılarak üzerine çift tıklanan öğrencinin bilgilerinin userform1 üzerine aktarılmasını, böylece eski kaydı düzenleme imkanı yaratmak istiyorum. Eğer dosyaya bakarsanız ne demek istediğim daha iyi anlaşılır sanırım.

Dosya açılışta aplikasyon olarak gelir en üstteki pencere tıklanınca excell dosyası gelir.

Dosya linki:

http://dosya.co/zx87o1a0oej1/OPN.xlsm.html


Şimdiden teşekkürler.
BedriA Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-06-2017, 02:23   #2
Mustafa MUTLU
Destek Ekibi
 
Mustafa MUTLU kullanıcısının avatarı
 
Giriş: 24/07/2008
Şehir: Kayseri
Mesaj: 1,495
Excel Vers. ve Dili:
2003
Varsayılan

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub suzer()
Dim bul, suz, S
On Error Resume Next
ListBox1.Clear
For suz = 2 To WorksheetFunction.CountA(Range("a1:a65500"))
If Range("a" & suz) Like TextBox1 & "*" Then
ListBox1.AddItem
S = S + 1
ListBox1.List(S - 1, 0) = Cells(suz, 1)
ListBox1.List(S - 1, 1) = Cells(suz, 2)
ListBox1.List(S - 1, 2) = Cells(suz, 3)
End If
Next
End Sub
TextBox1 e göre süzer. A sütununda isterseniz şu an elimde ofis 2003 var.
Dosyanızı 2003 olarak bana yollayın bakayım.
__________________

EXCEL 2003
EXCEL 2007
Mustafa MUTLU Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-06-2017, 02:38   #3
BedriA
Altın Üye
 
BedriA kullanıcısının avatarı
 
Giriş: 03/06/2017
Şehir: Antalya
Mesaj: 793
Excel Vers. ve Dili:
2007, 32
Varsayılan

Hocam bu kodu nereye almam gerekiyor?

Bende 2003 var ama kurmam lazım. Kurduktan sonra atarım dosyayı. İlginiz için teşekkürler.

Bu mesaj en son " 04-06-2017 " tarihinde saat 02:39 itibariyle BedriA tarafından düzenlenmiştir.... Neden: Tamamlama
BedriA Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-06-2017, 02:42   #4
Mustafa MUTLU
Destek Ekibi
 
Mustafa MUTLU kullanıcısının avatarı
 
Giriş: 24/07/2008
Şehir: Kayseri
Mesaj: 1,495
Excel Vers. ve Dili:
2003
Varsayılan

Formunuza Bir Buton atayın
Botonlada bu kodu çalıştırın.
__________________

EXCEL 2003
EXCEL 2007
Mustafa MUTLU Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-06-2017, 02:43   #5
Mustafa MUTLU
Destek Ekibi
 
Mustafa MUTLU kullanıcısının avatarı
 
Giriş: 24/07/2008
Şehir: Kayseri
Mesaj: 1,495
Excel Vers. ve Dili:
2003
Varsayılan

Alıntı:
BedriA tarafından gönderildi Mesajı Görüntüle
Hocam bu kodu nereye almam gerekiyor?

Bende 2003 var ama kurmam lazım. Kurduktan sonra atarım dosyayı. İlginiz için teşekkürler.
Kurmanıza gerek yok
xls formatında farklı kaydedersiniz.
__________________

EXCEL 2003
EXCEL 2007
Mustafa MUTLU Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-06-2017, 02:52   #6
BedriA
Altın Üye
 
BedriA kullanıcısının avatarı
 
Giriş: 03/06/2017
Şehir: Antalya
Mesaj: 793
Excel Vers. ve Dili:
2007, 32
Varsayılan

Hocam dosya linki:

http://dosya.co/zl2kl5pu2ve9/OPN.xlt.html


Excell 97-2003 Şablonu olarak kaydettim. Açıldığında en üstteki başlığa tıklarsanız excelle olarak gelir.
BedriA Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-06-2017, 03:22   #7
Mustafa MUTLU
Destek Ekibi
 
Mustafa MUTLU kullanıcısının avatarı
 
Giriş: 24/07/2008
Şehir: Kayseri
Mesaj: 1,495
Excel Vers. ve Dili:
2003
Varsayılan

Hocam online görünüyorsunuz.
Doğru mu ?
__________________

EXCEL 2003
EXCEL 2007
Mustafa MUTLU Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-06-2017, 03:32   #8
Mustafa MUTLU
Destek Ekibi
 
Mustafa MUTLU kullanıcısının avatarı
 
Giriş: 24/07/2008
Şehir: Kayseri
Mesaj: 1,495
Excel Vers. ve Dili:
2003
Varsayılan

UserForm2 ye aşağıdaki kodu ekleyin
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub UserForm_Initialize()
    With UserForm2.ListBox1
        .ColumnCount = 3
        .ColumnWidths = "30;40;300"
        .RowSource = "liste!a2:c65536"
    End With
End Sub
Private Sub ListBox1_Click()
Cells(ListBox1.ListIndex + 2, 1).Select
UserForm1.TextBox7.Text = Cells(ActiveCell.Row, "c")
UserForm1.ComboBox1.Text = Cells(ActiveCell.Row, "a")
UserForm1.TextBox8.Text = Cells(ActiveCell.Row, "b")
Unload Me
End Sub
__________________

EXCEL 2003
EXCEL 2007
Mustafa MUTLU Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-06-2017, 03:33   #9
Mustafa MUTLU
Destek Ekibi
 
Mustafa MUTLU kullanıcısının avatarı
 
Giriş: 24/07/2008
Şehir: Kayseri
Mesaj: 1,495
Excel Vers. ve Dili:
2003
Varsayılan

UserForm1 e bir değiştir butonu koyup aşağıdaki kodu ekleyin.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton1_Click()
    Cells(ActiveCell.Row, "a") = ComboBox1.Text
    Cells(ActiveCell.Row, "b") = TextBox8.Text
    Cells(ActiveCell.Row, "c") = TextBox7.Text
MsgBox "Kayıt düzeltme işlemi tamamlanmıştır.", vbInformation, "Mustafa MUTLU 0 533 740 45 49"
End Sub
__________________

EXCEL 2003
EXCEL 2007
Mustafa MUTLU Çevrimdışı   Alıntı Yaparak Cevapla
Eski 04-06-2017, 03:34   #10
Mustafa MUTLU
Destek Ekibi
 
Mustafa MUTLU kullanıcısının avatarı
 
Giriş: 24/07/2008
Şehir: Kayseri
Mesaj: 1,495
Excel Vers. ve Dili:
2003
Varsayılan

İşinizi görmez ise yarın süz lü yaparız.
__________________

EXCEL 2003
EXCEL 2007
Mustafa MUTLU Ç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 03:08


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet- Çorlu Prefabrik- Çorlu Sürücü Kursu- Çorlu Sandviç Panel- Şişli Avukat- Korona Test Kalemi- Çorlu Vinç- Çorlu Pimapen Tamiri-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden