[Tarkan VURAL]

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.

[levo]

Tam istediğim gibi teşekurler. Allah razı olsun Tarkan abi çok teşekürler

[Tarkan VURAL]

Allah sizden de razı olsun, güle güle kullanın

[edward norton]

Teşekkürler...

[Soner ŞENOL]

[Edexcel]

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

[forever45]

tesekkurler

[bursalio]

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.

[Tarkan VURAL]

İ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.

[nurkan]

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.

[Tarkan VURAL]

Bul butonunun kodlarını Combobox'ın Change olayına yazınız.

[bursalio]

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.

[Tarkan VURAL]

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.

[Tarkan VURAL]

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.

[nurkan]

Bence süper bir userform örneği oldu, teşekkürler.

[bursalio]

Ne kadar teşekkür etsem azdır. Ellerinize sağlık çok makbule geçti.

[Fethi34]

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

[engin]

[mafialbayrak]

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.

[OrkmesB]

Kodları açık bu çalışmanın. Excel e ve userform a birkaç ekleme ile dediğiniz kolayca yapılabilir.