[Çözüldü]  Örnek: UserForm - Hücreye Bilgi Gir, Bul, Sil, Değiştir

Kulanıcı arayüz formu

Örnek: UserForm - Hücreye Bilgi Gir, Bul, Sil, Değiştir

İleti#1)  Tarkan VURAL » 17 Arl 2008 18:13

UserForm üzerinden hücreye bilgi girişi ve girilmiş bilgileri bulup yine UserForm üzerinde görüntüleme ile ilgili bir örnek.

Adı Soyadı , mail adresi , telefonu , adresi haneleri kullanılmıştır.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
En son Tarkan VURAL tarafından, 03 Ekm 2014 00:19 tarihinde değiştirildi, toplamda 7 değişiklik yapıldı.
Sebep: Başlık Düzeltildi.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26766
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

UserForm üzerinden hücreye bilgi girişi

İleti#2)  levo » 17 Arl 2008 18:18

Tam istediğim gibi teşekurler. Allah razı olsun Tarkan abi çok teşekürler
Kullanıcı avatarı
levo
Yeni Başlamış
 
Adı Soyadı:levent erdoğan
Kayıt: 16 Arl 2008 03:10
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

UserForm üzerinden hücreye bilgi girişi

İleti#3)  Tarkan VURAL » 17 Arl 2008 18:18

Allah sizden de razı olsun, güle güle kullanın :mrgreen: --)(
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26766
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

UserForm üzerinden hücreye bilgi girişi

İleti#4)  edward norton » 03 Şub 2009 21:28

Teşekkürler...
Kullanıcı avatarı
edward norton
İsimsiz Üye
 
Kayıt: 17 Haz 2008 22:33
İleti: 5
 
Cinsiyet: Bay

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

UserForm üzerinden hücreye bilgi girişi

İleti#5)  Soner ŞENOL » 04 Şub 2009 01:09

[TESEKKÜR]
Kullanıcı avatarı
Soner ŞENOL
Siteye Alışmış
 
Adı Soyadı:soner şenol
Kayıt: 15 Haz 2008 02:18
Meslek: soner.senol@toyotatr.com
İleti: 179
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: sakarya

Cevap: UserForm üzerinden hücreye bilgi girişi

İleti#6)  Edexcel » 26 Şub 2009 01:32

Merhaba Tarkan,
Henüz yeniyim. Ancak aradığım bu makroyu sadece sizin sitenizde bulabildim. Elinize sağlık teşekkür ederim.
Burada bir de "değiştir" olsaydı eski bilgiler de güncellenebilirdi, "sil" olsaydı kayıt atılabilirdi. Sil komutuyla bir sütun filtreli gösterilir ve oraya kontrol koyarak satır silinmese de olabilirdi. Bunu da yaparsanız mükemmel bir program olacak. Denedim ancak başaramadım.
Saygılarımla
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Edexcel
 
Adı Soyadı:ERSAN UZUN
Kayıt: 25 Şub 2009 16:11
İleti: 3
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL/SUADİYE

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: UserForm üzerinden hücreye bilgi girişi

İleti#7)  forever45 » 01 Ağu 2009 18:11

tesekkurler
Kullanıcı avatarı
forever45
İsimsiz Üye
 
Adı Soyadı:ibrahim xxxxxxx
Kayıt: 31 Tem 2009 19:18
İleti: 1
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir

Cevap: UserForm üzerinden hücreye bilgi girişi

İleti#8)  bursalio » 17 Eyl 2009 11:32

Yolladığınız dosyayı kendime göre değiştirdim ve çok güzel çalışıyor bu sebeple öncelikle çok teşekkür ederim. Ancak buna bir de "sil" command buttonu'ı eklemek istiyorum. Yani ComboBox'tan "bul" ile bulduğum bir kaydın satırını komple silecek bir comman button, yardımcı olabilirseniz sevinirim.
Kullanıcı avatarı
bursalio
Yeni Başlamış
 
Adı Soyadı:Hasan Bursalıoğlu
Kayıt: 16 Eyl 2009 12:26
İleti: 31
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: UserForm Üzerinden Hücreye Bilgi Girişi

İleti#9)  Tarkan VURAL » 17 Eyl 2009 12:21

İki buton daha ekleyip Sil ve Değiştir seçenekleri ekledim.

Kod: Tümünü seç
Private Sub CommandButton4_Click()
Dim bul As Range
For Each bul In Sayfa1.Range("b2:b" & Range("b65536").End(3).Row)
    If bul.Value = ComboBox1.Value Then
        bul.Select
        Selection.EntireRow.Delete
        For i = 2 To Range("a65536").End(3).Row
            Cells(i, 1).Value = i - 1
        Next i
    End If
Next bul
End Sub

Private Sub CommandButton5_Click()
Dim bul As Range
For Each bul In Sayfa1.Range("b2:b" & Range("b65536").End(3).Row)
    If bul.Value = ComboBox1.Value Then
        bul.Offset(0, -1).Activate
        bul.Offset(0, 1).Value = TextBox1.Value
        bul.Offset(0, 2).Value = TextBox2.Value
        bul.Offset(0, 3).Value = TextBox4.Value
    End If
Next bul
End Sub


Yeni dosyayı bu mesajdan indirebilirsiniz. Yazılan bilgiler ( telefon, email, adres ) gerçek değildir. Lütfen gerçek olarak dikkate almayınız.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26766
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: UserForm Üzerinden Hücreye Bilgi Girişi

İleti#10)  nurkan » 17 Eyl 2009 12:38

Merhaba;
Userform u öğrenmek için çok güzel bir örnek olmuş tebrik ederim.
Peki ismi seçtiğimizde diğer bilgilerin otomatik olarak gelmesini nasıl sağlarız ? Yani bul a tıklamaya gerek olmadan.
Kullanıcı avatarı
nurkan
Yeni Başlamış
 
Adı Soyadı:nurkan bilmiş
Kayıt: 21 Şub 2009 01:57
İleti: 20
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

Cevap: UserForm Üzerinden Hücreye Bilgi Girişi

İleti#11)  Tarkan VURAL » 17 Eyl 2009 12:45

Bul butonunun kodlarını Combobox'ın Change olayına yazınız.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26766
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: UserForm Üzerinden Hücreye Bilgi Girişi

İleti#12)  bursalio » 17 Eyl 2009 12:56

Harikasınız ne kadar teşekkür etsem az, ancak bu kodların yanına acıklamalar yazabilir misiniz? Okul bittiğinden beri kod yazmıyordum bayağı bir paslanmısım. Eğer kodların nasıl ve ne yaptıklarını yazabilirseniz yanlarına çok makbule geçer. Saygılar.
Kullanıcı avatarı
bursalio
Yeni Başlamış
 
Adı Soyadı:Hasan Bursalıoğlu
Kayıt: 16 Eyl 2009 12:26
İleti: 31
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: UserForm Üzerinden Hücreye Bilgi Girişi

İleti#13)  Tarkan VURAL » 17 Eyl 2009 13:05

Private Sub CommandButton4_Click() ' Düğme4 prosedür adı
Dim bul As Range ' Bul adında bir değişken Alan özelliği ile tanımlandı.
For Each bul In Sayfa1.Range("b2:b" & Range("b65536").End(3).Row) ' Sayfa1 içindeki B2 ile B sütununun en son dolu hücresi aralığı bul değişkenine atanarak bir döngü içine alındı.
If bul.Value = ComboBox1.Value Then ' bul değişkeninin alanlarından herhangi birinin taşıdığı değer ComboBox1 içindeki değere eşit ise şartı arandı.
bul.Select ' Eşitlik durumunda bu alan seçilsin istendi.
Selection.EntireRow.Delete ' Seçilen alanın bulunduğu satır tamamen silinsin komutu yazıldı.
For i = 2 To Range("a65536").End(3).Row ' i değişkenine 2 'den A sütununun en son dolu hücresinin satır numarasına kadar döngü yapılacağı tanımlandı.
Cells(i, 1).Value = i - 1 ' i,1 yani A2 hücresinin değeri i-1 yani 1 olarak belirlendi, döngü bitmedi ise 2 değerini alan i değeri son değerine ulaşana kadar birer sayı artacak, bir sonraki turda i değeri 3 olacak ve bu kez Cells(i,1) tanımı A4 hücresi olacak. Bu hücredeki değer yine i-1 yani 2 olacak. Bunu yapmamın sebebi de silinen satırdaki sıra numarasının da silinmiş olması dolayısıyla sıra numaralarının yeniden düzenlenmesidir.
Next i ' Döngü bitmediyse Fo kısmına dön, bittiyse sonraki satıra geç.
End If ' If şartlı sorgulamasının sonu.
Next bul ' Bul döngüsünün sonu. Eğer bakılacak alanlar henüz bitmedi ise buradan yine For Each bul kısmına döndürülecek.
End Sub ' Prosedür sonu.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26766
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: UserForm Üzerinden Hücreye Bilgi Girişi

İleti#14)  Tarkan VURAL » 17 Eyl 2009 13:08

Private Sub CommandButton5_Click() ' Prosedür adı.
Dim bul As Range ' Yine değişken tanımı.
For Each bul In Sayfa1.Range("b2:b" & Range("b65536").End(3).Row) ' Yine değişkene döngü ile atanan değerler.
If bul.Value = ComboBox1.Value Then ' Yine şartlı sorgulama
bul.Offset(0, -1).Activate ' Şart doğru ise bul değişkeninin bir öndeki sütunu seçiliyor. Bu satırı silseniz de olur.
bul.Offset(0, 1).Value = TextBox1.Value ' Bul değişkeninin bulunduğu yerin bir yan sütununa TextBox1 değeri gönderiliyor.
bul.Offset(0, 2).Value = TextBox2.Value ' Bul değişkeninin bulunduğu yerin iki yan sütununa TextBox2 değeri gönderiliyor.
bul.Offset(0, 3).Value = TextBox4.Value ' Bul değişkeninin bulunduğu yerin üç yan sütununa TextBox4 değeri gönderiliyor.
End If ' Şart sorgulama sonu.
Next bul ' Bul döngü sonu.
End Sub ' Prosedür sonu.
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 20:27
Konum: tarkan@excelvba.net
Meslek: LUU, Yazılım Geliştirme Müdürü
Yaş: 45
İleti: 26766
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: UserForm Üzerinden Hücreye Bilgi Gir, Bul, Sil, Değiş

İleti#15)  nurkan » 17 Eyl 2009 13:23

Bence süper bir userform örneği oldu, teşekkürler.
Kullanıcı avatarı
nurkan
Yeni Başlamış
 
Adı Soyadı:nurkan bilmiş
Kayıt: 21 Şub 2009 01:57
İleti: 20
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: samsun

Cevap: UserForm Üzerinden Hücreye Bilgi Gir, Bul, Sil, Değiş

İleti#16)  bursalio » 18 Eyl 2009 12:37

Ne kadar teşekkür etsem azdır. Ellerinize sağlık çok makbule geçti.
Kullanıcı avatarı
bursalio
Yeni Başlamış
 
Adı Soyadı:Hasan Bursalıoğlu
Kayıt: 16 Eyl 2009 12:26
İleti: 31
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: UserForm Üzerinden Hücreye Bilgi Gir, Bul, Sil, Değiş

İleti#17)  Fethi34 » 21 Eyl 2009 22:02

Teşekkürler Tarkan Bey, nerdeyse bütün programlarda kullanılıyor bu butonlar.
Detaylı anlatımınız için Teşekkürler
Kullanıcı avatarı
Fethi34
Siteye Alışmış
 
Adı Soyadı:Poyraz Saydam
Kayıt: 21 Eyl 2009 20:18
Konum: İstanbul
Meslek: Memur
Yaş: 36
İleti: 279
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Örnek: UserForm ile Hücreye Bilgi Gir, Bul, Sil, Deği

İleti#18)  engin » 31 Ekm 2009 12:45

[TESEKKÜR]
Kullanıcı avatarı
engin
Siteye Alışmış
 
Adı Soyadı:ENGİN KONAK
Kayıt: 29 Eyl 2009 16:26
Meslek: Kalıp Tasarımcısı
İleti: 153
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa

Cevap: Örnek: UserForm ile Hücreye Bilgi Gir, Bul, Sil, Deği

İleti#19)  mafialbayrak » 05 Kas 2009 16:09

Bu ne zamandır aradığım bir şeydi çok teşekkürler ancak benim için bir iki ek ilave lazım örneğin yaş bölümü de eklemek istiyorum . Bunun için hangi kodları eklemem gerekecek. Şimdiden teşekkür ederim.
Kullanıcı avatarı
mafialbayrak
 
Adı Soyadı:furkan albayrak
Kayıt: 03 Kas 2009 22:09
İleti: 5
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ankara

Cevap: Örnek: UserForm ile Hücreye Bilgi Gir, Bul, Sil, Deği

İleti#20)  OrkmesB » 05 Kas 2009 16:15


Kodları açık bu çalışmanın. Excel e ve userform a birkaç ekleme ile dediğiniz kolayca yapılabilir.
“Benim yaradılışımda fevkâlade olan bir şey varsa, Türk olarak dünyaya gelmemdir"
OrkmesB
Yönetim Kurulu
 


 
Adı Soyadı:Bahadır Örkmes
Kayıt: 14 Haz 2008 20:26
Konum: Gökçeali
Meslek: Personel Müdürü
Yaş: 40
İleti: 5004
 

Sonraki

Forum UserForm

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 2 misafir

Bumerang - Yazarkafe