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

Kulanıcı arayüz formu

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

İleti#121)  Tarkan VURAL » 17 May 2013 17:29

Anlaşıldı. :)

Silme prosedüründe
Kod: Tümünü seç
        bul.Select
        Selection.EntireRow.Delete

bulunuyor. Bunları şu şekilde birleştiriniz:
Kod: Tümünü seç
        bul.EntireRow.Delete


Ayrıca silme işleminden sonra halen dönmeye devam etmemesi için kod satırlarında Next i satırından sonraya Exit For yazabilirsiniz. Bir de silme işinden sonra hem ekrandaki kutuların boşaltılması gerek, hem de ComboBox içinde bu ismin yok edilmesi gerek. Bunlar için başta UserForm_Initialize kodlarını şu şekilde değiştirin:
Private Sub UserForm_Initialize()
Dim i As Long
ComboBox1.Clear
For i = 2 To Sayfa1.[A65536].End(3).Row
ComboBox1.AddItem Sayfa1.Cells(i, 2)
Next i
ComboBox1.ListIndex = -1
TextBox1.Text = ""
Me.TextBox4.Text = ""

End Sub


Şimdi silme işleminde Next bul satırından sonra Call UserForm_Initialize ile prosedürü çağırabiliriz. Bu sayede form üzerindeki durum ilk günkü kadar temiz ve berrak olacak. :)

Toparlanmış hali de şu şekilde :
Kod: Tümünü seç
Private Sub CommandButton4_Click()
Dim bul As Range
For Each bul In Sayfa1.Range("b2:b" & Sayfa1.Range("b65536").End(3).Row)
    If bul.Value = ComboBox1.Value Then
        bul.EntireRow.Delete
        For i = 2 To Range("a65536").End(3).Row
            Cells(i, 1).Value = i - 1
        Next i
        Exit For
    End If
Next bul
    Call UserForm_Initialize
End Sub


Değiştirme prosedüründe ise çok fazla değişikliğe gerek yok. Bir tane döngüden çıkma satırı ekliyorum, eklemeseniz de olur ama hedefini yaptıktan sonra boşuna dönmesin; bir tane de activate satırını siliyorum. Ayrıca işlemin yapıldığına dair bir uyarı mesajı verdiriyorum. Hepsi bu. :)

Kod: Tümünü seç
Private Sub CommandButton5_Click()
Dim bul As Range
For Each bul In Sayfa1.Range("b2:b" & Sayfa1.Range("b65536").End(3).Row)
    If bul.Value = ComboBox1.Value Then
        bul.Offset(0, 1).Value = TextBox1.Value
        bul.Offset(0, 2).Value = TextBox4.Value
        MsgBox "Değiştirildi.", vbInformation, "Www.ExcelVBA.Net"
        Exit For
    End If
Next bul
End Sub
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: 26845
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

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

İleti#122)  myazici61 » 18 May 2013 00:48

Tarkan Bey çok teşekkür ederim. Şimdi tam istediğim gibi oldu.
Kullanıcı avatarı
myazici61
Siteye Alışmış
 
Adı Soyadı:Mustafa YAZICI
Kayıt: 27 Nis 2011 11:27
Konum: BURSA
Meslek: S.M.Mali Müşavir
Yaş: 49
İleti: 275
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa/Osmangazi

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

İleti#123)  Tarkan VURAL » 18 May 2013 01:59

Güle güle kullanın. ;) Güldükçe de beni hatırlayın. --)(
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: 26845
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Cevap: Örnek: UserForm ile Hücreye Bilgi Gir, Bul, Si

İleti#124)  Ozan İLGÜN » 18 May 2013 02:19

Tarkan VURAL yazdı:Güle güle kullanın. ;) Güldükçe de beni hatırlayın. --)(

hehe İlahi Tarkan Bey siz adamı öldürürsünüz şkşk
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 14:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 32
İleti: 2666
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



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

Cevap: Cevap: Örnek: UserForm ile Hücreye Bilgi Gir, Bul, Si

İleti#125)  myazici61 » 18 May 2013 03:02

Tarkan VURAL yazdı:Güle güle kullanın. ;) Güldükçe de beni hatırlayın. --)(

Tarkan Bey iyi geceler,
Kullandıkça karşıma çıkıyor ama iki sorum daha olacak. Biliyorum çok şey istiyorsunuz diyorsunuz ama kullandıkça karşıma çıkıyor.
Birincisi sil komutundan sonra sıra numarası çalışmıyor.
"For i = 2 To Range("a65536").End(3).Row " kısmını "For i = 2 To Sayfa1.Range("a65536").End(3).Row" şeklinde değiştirdiğimde ise sıra numarasını data sayfası yerine ana sayfada yapıyor.
Kod: Tümünü seç
Private Sub CommandButton4_Click()
Dim bul As Range
For Each bul In Sayfa1.Range("b2:b" & Sayfa1.Range("b65536").End(3).Row)
    If bul.Value = ComboBox1.Value Then
        bul.EntireRow.Delete
        For i = 2 To Range("a65536").End(3).Row
            Cells(i, 1).Value = i - 1
        Next i
        Exit For
        End If
Next bulPrivate Sub CommandButton4_Click()
Dim bul As Range
For Each bul In Sayfa1.Range("b2:b" & Sayfa1.Range("b65536").End(3).Row)
    If bul.Value = ComboBox1.Value Then
        bul.EntireRow.Delete
        For i = 2 To Range("a65536").End(3).Row
            Cells(i, 1).Value = i - 1
        Next i
        Exit For
        End If
Next bul
Call UserForm_Initialize
    End Sub
Call UserForm_Initialize
    End Sub

İkinci sorunum ise data sayfasına yeni kayıt girdiğimizde B sütunu sıralanabilir mi? Kayıt sayısı çoğalınca; örneğin A harfi ile başlayan yeni bir kayıt girdiğimizde en sona kayıt ettiğinden USERFORM'da kayıt ararken harf sırasına göre gelmiyor.
Kullanıcı avatarı
myazici61
Siteye Alışmış
 
Adı Soyadı:Mustafa YAZICI
Kayıt: 27 Nis 2011 11:27
Konum: BURSA
Meslek: S.M.Mali Müşavir
Yaş: 49
İleti: 275
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa/Osmangazi

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

İleti#126)  Tarkan VURAL » 18 May 2013 03:04

Birincisi : Yine sayfa adlarını yazmamışız. :)

For i = 2 To sayfa1.Range("a65536").End(3).Row
sayfa1.Cells(i, 1).Value = i - 1


İkincisini sakin kafayla bakmaya çalışırım. ;)
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: 26845
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cevap: Örnek: UserForm ile Hücreye Bilgi Gir, Bul, Si

İleti#127)  myazici61 » 18 May 2013 03:07

Tarkan VURAL yazdı:Birincisi : Yine sayfa adlarını yazmamışız. :)

For i = 2 To sayfa1.Range("a65536").End(3).Row
sayfa1.Cells(i, 1).Value = i - 1

Sayfa adını yazdığımda sıra numaralarını data sayfası yerine ana sayfada yapıyor.
Kullanıcı avatarı
myazici61
Siteye Alışmış
 
Adı Soyadı:Mustafa YAZICI
Kayıt: 27 Nis 2011 11:27
Konum: BURSA
Meslek: S.M.Mali Müşavir
Yaş: 49
İleti: 275
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa/Osmangazi

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

İleti#128)  Tarkan VURAL » 18 May 2013 03:07

Kodlara iyi bakın. İkinci satırda da sayfa adı başlangıcı olmalı. ;)
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: 26845
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Cevap: Cevap: Örnek: UserForm ile Hücreye Bilgi Gir, Bul, Si

İleti#129)  myazici61 » 18 May 2013 03:09

Tarkan VURAL yazdı:Kodlara iyi bakın. İkinci satırda da sayfa adı başlangıcı olmalı. ;)

Evet, şimdi gördüm. Teşekkür ederim. Şimdi oldu.
İyi geceler.
Kullanıcı avatarı
myazici61
Siteye Alışmış
 
Adı Soyadı:Mustafa YAZICI
Kayıt: 27 Nis 2011 11:27
Konum: BURSA
Meslek: S.M.Mali Müşavir
Yaş: 49
İleti: 275
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa/Osmangazi

Cevap: Cevap: Örnek: UserForm ile Hücreye Bilgi Gir, Bul, Si

İleti#130)  myazici61 » 20 May 2013 17:21

Tarkan VURAL yazdı:Birincisi : Yine sayfa adlarını yazmamışız. :)



İkincisini sakin kafayla bakmaya çalışırım. ;)

Tarkan Bey merhaba,
İkinci soruna bakabildiniz mi?
Kullanıcı avatarı
myazici61
Siteye Alışmış
 
Adı Soyadı:Mustafa YAZICI
Kayıt: 27 Nis 2011 11:27
Konum: BURSA
Meslek: S.M.Mali Müşavir
Yaş: 49
İleti: 275
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa/Osmangazi

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

İleti#131)  okutan52 » 22 Arl 2013 03:03

Efendim burada sadece isme göre sonuç yazdırılıyor mesela telefon numarası girildigindede sonuç yazdırılsa
Kullanıcı avatarı
okutan52
Yeni Başlamış
 
Adı Soyadı:Erkan Okutan
Kayıt: 08 Arl 2013 16:01
Konum: Türkiye
Meslek: Ögrenci
Yaş: 23
İleti: 11
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ordu/Mesudiye



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

İleti#132)  Ozan İLGÜN » 22 Arl 2013 04:03

Erkan Bey dosyanın son halini paylaşın. Üzerinde düzenleme yapalım.
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 14:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 32
İleti: 2666
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul



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

İleti#133)  okutan52 » 22 Arl 2013 05:01

Efendim birde x,y kişileri aynı adreste bulunuyorlarsa adresi yazdıgımızda bul butonuna bastığımızda x,y kişilerinin ikisinde kullanıcıya gösterse .
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
okutan52
Yeni Başlamış
 
Adı Soyadı:Erkan Okutan
Kayıt: 08 Arl 2013 16:01
Konum: Türkiye
Meslek: Ögrenci
Yaş: 23
İleti: 11
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ordu/Mesudiye



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

İleti#134)  Murat OSMA » 23 Arl 2013 11:43

Ad Soyad ile bulma gibi Adres ile bulma da yapabilirsiniz.
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 05 Arl 2008 00:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 34
İleti: 14320
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

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

İleti#135)  enteresan2333 » 06 Şub 2014 05:18

Merhaba,
Tarkan VURAL Bey'in paylaştığı kodlardan hareketle bir küçük tasarım yaptım.
Ekteki tasarımda da belirttiğim gibi comboboxdan textboxdan aldığım verileri excele kayıt ettirebilirken
multi seçmeli listbox 1 in verisini listbox 2 ye aktarıyorum, ama aktardığımı excele diğerleri gibi kayıt edemiyorum.
Gönderdiğim dosyayı farklı sitlerin farklı kullanıcjların tavsiye ve yönlendirmeleriyle yaptım. Programcılıktan anlamıyorum.
Yapmaya çalıştığım okul yoklama alma excel program arayüzünü -user form ile- son aşamaya getirdim.
Yardım edilirse güzel olur...

--- elimdeki dosyayı ekleyemedim nasıl paylaşabilirim? -
Zafer
enteresan2333
 
 

Cevap: Cevap: Örnek: UserForm ile Hücreye Bilgi Gir, Bul, Si

İleti#136)  Ali_Aydın » 24 Şub 2014 18:33

enteresan2333 yazdı:Merhaba,
Tarkan VURAL Bey'in paylaştığı kodlardan hareketle bir küçük tasarım yaptım.
Ekteki tasarımda da belirttiğim gibi comboboxdan textboxdan aldığım verileri excele kayıt ettirebilirken
multi seçmeli listbox 1 in verisini listbox 2 ye aktarıyorum, ama aktardığımı excele diğerleri gibi kayıt edemiyorum.
Gönderdiğim dosyayı farklı sitlerin farklı kullanıcjların tavsiye ve yönlendirmeleriyle yaptım. Programcılıktan anlamıyorum.
Yapmaya çalıştığım okul yoklama alma excel program arayüzünü -user form ile- son aşamaya getirdim.
Yardım edilirse güzel olur...

--- elimdeki dosyayı ekleyemedim nasıl paylaşabilirim? -
Zafer

İleti yazma kısmının alt bölümünde ''Dosya Ekle'' kısmından ekleyebilirsiniz. Yalnız göndereceğiniz dosya boyutunu kontrol ediniz sitenin belirlemiş olduğu bir sınır var yukarısını ekleyemezsiniz. Bu konu hakkında site yöneticilerine başvuru yapabilirsiniz.
Kullanıcı avatarı
Ali_Aydın
Yeni Başlamış
 
Adı Soyadı:Ali_Aydın
Kayıt: 19 Oca 2014 14:11
Konum: Antalya
Meslek: Gıda Dağıtım
Yaş: 31
İleti: 61
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Antalya / Merkez



Cevap: Cevap: Cevap: Örnek: UserForm ile Hücreye Bilgi Gir,

İleti#137)  Enes Recep BAĞ » 24 Şub 2014 19:27

Ali_Aydın yazdı:İleti yazma kısmının alt bölümünde ''Dosya Ekle'' kısmından ekleyebilirsiniz. Yalnız göndereceğiniz dosya boyutunu kontrol ediniz sitenin belirlemiş olduğu bir sınır var yukarısını ekleyemezsiniz. Bu konu hakkında site yöneticilerine başvuru yapabilirsiniz.

Bahsi geçen kullanıcı sizi duyamaz. [fısıltı]
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 17:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 36
İleti: 8248
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray / Merkez

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

İleti#138)  sleeper » 19 May 2014 23:13

Sizin paylaştığınız "Değiştir" kodlarını kullanarak aşağıdaki gibi düzenledim. Fakat sürekli "Object required" hatası veriyor ve "For Each" döngüsünün bulunduğu satırı boyuyor. Lütfen yardım edin kafayı yicem yemin ederim.

Kod: Tümünü seç
Private Sub degistir_Click()

TextBox1.Text = Sheets("KAYITBUL").Range("B2").Value
Application.ScreenUpdating = False

bugun.Text = DateTime.Now
bugun.Value = Format(bugun.Value, "dd.mm.yyyy")

Dim bul As Range
For Each bul In VERITABANI.Range("C2:C" & VERITABANI.Range("C65536").End(3).Row)
    If bul.Value = TextBox1.Text Then

ActiveCell.Offset(0, 3) = konuadi.Text
ActiveCell.Offset(0, 4) = ildurumu.Value
ActiveCell.Offset(0, 5) = ikamet.Value
ActiveCell.Offset(0, 6) = mahkemeadi.Text
ActiveCell.Offset(0, 7) = kararno.Text
ActiveCell.Offset(0, 8) = karartarihi.Text
ActiveCell.Offset(0, 9) = kurulus.Value
ActiveCell.Offset(0, 10) = tedbirturu.Value
ActiveCell.Offset(0, 11) = danismanlik.Value
ActiveCell.Offset(0, 12) = saglik.Value
ActiveCell.Offset(0, 13) = egitim.Value
ActiveCell.Offset(0, 14) = ilmudury.Value
ActiveCell.Offset(0, 15) = subemudur.Value
ActiveCell.Offset(0, 16) = uzmanadi.Value
ActiveCell.Offset(0, 17) = uzmanunvani.Text
ActiveCell.Offset(0, 18) = sir.Value
ActiveCell.Offset(0, 31) = evraktarihi.Text
ActiveCell.Offset(0, 32) = evraksayisi.Text
ActiveCell.Offset(0, 47) = bugun.Value
    End If
Next bul
   
    UserForm_Initialize
    Application.ScreenUpdating = True
    ActiveWorkbook.Save
   
    MsgBox "Değişiklikler kayıt edildi." & vbLf & " " & vbLf & "İyi Günler..."

Sheets("KAYITBUL").Select
   
End Sub
Kullanıcı avatarı
sleeper
Yeni Başlamış
 
Adı Soyadı:ali karataş
Kayıt: 04 Kas 2013 18:28
Konum: istanbul
Meslek: memur
Yaş: 33
İleti: 63
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

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

İleti#139)  Enes Recep BAĞ » 19 May 2014 23:19

Kafayı yemeden çalıştığınız dosyayı ekleyin bakalım. :)
Kullanıcı avatarı
Enes Recep BAĞ
Forum Moderatörü
 
Adı Soyadı:Enes Recep BAĞ
Kayıt: 30 Ağu 2010 17:39
Konum: 0 549 808 82 66
Meslek: Bilgi işlem
Yaş: 36
İleti: 8248
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray / Merkez

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

İleti#140)  sleeper » 19 May 2014 23:45

Hızlıca hazırladığım örnek bir dosya ektedir.

Yardımlarınız için şimdiden teşekkürler.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
sleeper
Yeni Başlamış
 
Adı Soyadı:ali karataş
Kayıt: 04 Kas 2013 18:28
Konum: istanbul
Meslek: memur
Yaş: 33
İleti: 63
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

ÖncekiSonraki

Forum UserForm

Online Kullanıcılar

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

Bumerang - Yazarkafe