Sayfanın Tümünde Bulunanları ListBox Listeleme

Ömer BARAN

Yönetici

Kullanıcı

Katılım

11 Nis 2019

Mesajlar

9,667

• 4 May 2021

• #2

VERİ GİRİŞİ sayfasının kod bölümüne aşağıdaki kodları ekleyin (aynen, mevcut kod yapısını kullandım)
-- TextBox1 seçildiğinde TextBox3 boşaltılarak TextBox1'e (ve dolayısıyla Combobox'taki sütun seçimine göre)
-- TextBox3 seçildiğinde TextBox1 boşaltılarak TextBox3'e göre (tüm sütunlarda)
arama yapılmış olur.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(51 satır)

 

Oyla 0 Olumsuz oyla

Hsn55

Yasaklanmış

Katılım

28 Tem 2022

Mesajlar

64

• 4 May 2021

• #3

Ömer bey teşekkür ederim. Bulunan satırı listbox1 de seçip veri girişi sayfasında D4:D27 hücre aralığında değişiklik yapıp kaydı güncellediğimde seçili satır kalmıyor. Tüm veriler geliyor. Kayıt güncellediğim satır kalabilir mi?

 

Oyla 0 Olumsuz oyla

Ömer BARAN

Yönetici

Kullanıcı

Katılım

11 Nis 2019

Mesajlar

9,667

• 4 May 2021

• #4

Listbox1_Click kod blokunda;
-- kırmızı satırı değiştirip,
- yeşil satırı ekleyin.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(4 satır)

 

Oyla 0 Olumsuz oyla

Hsn55

Yasaklanmış

Katılım

28 Tem 2022

Mesajlar

64

• 4 May 2021

• #5

Değişiklik olmadı. Yine aynı

 

Oyla 0 Olumsuz oyla

Ömer BARAN

Yönetici

Kullanıcı

Katılım

11 Nis 2019

Mesajlar

9,667

• 4 May 2021

• #6

Ben bir sorun görmüyorum.

 

Ekli dosyalar

• BRN_KADASTRO TAKİP.xlsm

  532.5 KB · Görüntüleme: 4

Oyla 0 Olumsuz oyla

Hsn55

Yasaklanmış

Katılım

28 Tem 2022

Mesajlar

64

• 4 May 2021

• #7

Hocam TextBox1 devre dışı kaldı. Ayrıca bulunan veriyi güncelle dedikten sonra güncelleme anlık Listbox1 e yansımıyor.

 

Oyla 0 Olumsuz oyla

Ömer BARAN

Yönetici

Kullanıcı

Katılım

11 Nis 2019

Mesajlar

9,667

• 4 May 2021

• #8

KAYDET makrosunun sonundaki düzeltmeyi atlamışım.
KAYDET makrosunun End Sub satırının üstündeki kırmızı satırı düzeltip, yeşim satırı ekleyin.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(3 satır)

 

Oyla 0 Olumsuz oyla

Hsn55

Yasaklanmış

Katılım

28 Tem 2022

Mesajlar

64

• 4 May 2021

• #9

Hocam Textbox3 tam istediğim gibi oldu. Fakat Textbox1 devre dışı kaldı

 

Oyla 0 Olumsuz oyla

Hsn55

Yasaklanmış

Katılım

28 Tem 2022

Mesajlar

64

• 4 May 2021

• #10

Hocam Textbox ta bulunan kayıtı güncellediğim zaman anlık listbox a yansımıyor. Bu da olursa tamam olacak. Textbox3 te sıkıntı yok .O gayet güzel çalışıyor

 

Oyla 0 Olumsuz oyla

Ömer BARAN

Yönetici

Kullanıcı

Katılım

11 Nis 2019

Mesajlar

9,667

• 4 May 2021

• #11

Textbox1'e birşey yazmak üzere tıkladığınızda eskisi gibi kullanılıyor olması gerekir.
Ben bu konuda bir sıkıntı görmüyorum.
2 numaralı cevabımda verdiğim kodlarda yer alan;
-- Private Sub TextBox1_GotFocus() ve
-- Private Sub TextBox3_GotFocus()
kısımlarını ilgili sayfanın (VERİ GİRİŞİ) kod bölümüne yapıştırdığınızdan emin misiniz?

En iyisi; benim 6 numaralı cevap ekinde gönderdiğim son belgeye,
sadece 8 numaralı cevapta verdiğim kod değişikliklerini uygulayıp
denemelerinizi gönderdiğim belge üzerinde yapar mısınız?

 

Oyla 0 Olumsuz oyla

Hsn55

Yasaklanmış

Katılım

28 Tem 2022

Mesajlar

64

• 4 May 2021

• #12

Hocam Textbox3 tamam. Textbox1 güncelleme yapıyor. Fakat Anlık Listbox1 e yansımıyor

 

Ekli dosyalar

• son.xlsm

  507.3 KB · Görüntüleme: 1

Oyla 0 Olumsuz oyla

Ömer BARAN

Yönetici

Kullanıcı

Katılım

11 Nis 2019

Mesajlar

9,667

• 4 May 2021

• #13

8 numaralı cevapta verdiğim kod satırının ikisi de olacaktı.
Kırmızı olan satırda If .... Then: ..... eklemesi vardı sadece.
Yeşil olanı eklemişsiniz zaten, kırımızı olanı da ekleyin.

.

 

Oyla 0 Olumsuz oyla

Hsn55

Yasaklanmış

Katılım

28 Tem 2022

Mesajlar

64

• 4 May 2021

• #14

Ömer hocam çok teşekkür ederim. Size zahmet verdiğim için hakkınızı helal ediniz. İyi akşamlar. Sağlıcakla kalın

 

Oyla 0 Olumsuz oyla

Hsn55

Yasaklanmış

Katılım

28 Tem 2022

Mesajlar

64

• 4 May 2021

• #15

Ömer bey yaptığınız makroyu diğer dosyana uyarladım. Fakat nerde hata yapıyorum. Bulamadım. Textbox3 te aratma yapıyorum. Ne süzüyor ne de buluyor. Bakabilir misiniz?

 

Ekli dosyalar

• İZİN TAKİP -SON.xlsm

  695 KB · Görüntüleme: 1

Oyla 0 Olumsuz oyla

AhmetRasim

Yönetici

Kullanıcı

Katılım

6 Ara 2016

Mesajlar

1,017

• 4 May 2021

• #16

Merhabalar Sn. @Hsn55
Ömer Hocam şuan çevrimiçi değil. Paylaşmış olduğu kodları dosyanıza ekledim.
TextBox3 ile arama yapıyor.

 

Ekli dosyalar

• İZİN TAKİP -SON.xlsm

  638.7 KB · Görüntüleme: 10

Oyla 0 Olumsuz oyla

Hsn55

Yasaklanmış

Katılım

28 Tem 2022

Mesajlar

64

• 6 May 2021

• #17

Ahmet bey çok teşekkür ediyorum

 

Oyla 0 Olumsuz oyla

Hsn55

Yasaklanmış

Katılım

28 Tem 2022

Mesajlar

64

• 6 May 2021

• #18

Merhabalar; ekli dosyada şöyle bir sorun var. Textboxlardan aratmadan sadece Listbox1 üzerinden seçmiş olduğum kayıtta güncelleme yaptığım zaman Listbox1 anlık yansımıyor. Ayrıca tekrar listboxtan aynı kaydı seçtiğimde yapılan kayıt güncellemesini göstermiyor. Ama Textboxlar dan aynı kaydı seçtiğimde güncellenmiş kayıt o zaman geliyor

 

Ekli dosyalar

• KADASTRO TAKİP.xlsm

  565.8 KB · Görüntüleme: 6

Oyla 0 Olumsuz oyla

AhmetRasim

Yönetici

Kullanıcı

Katılım

6 Ara 2016

Mesajlar

1,017

• 6 May 2021

• #19

Merhabalar Sn. @Hsn55

-- Modul2 içerisindeki kaydet kodlarında yer alan

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(1 satır)

ve

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(1 satır)

satırlarından sonra

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(1 satır)

satırını ekleyiniz.

Kaydet ve Güncelleme işlemlerinden sonra ListBox'a anlık kayıtlar gelir.

 

Oyla 0 Olumsuz oyla

Çözüm

Hsn55

Yasaklanmış

Katılım

28 Tem 2022

Mesajlar

64

• 28 Ocak 2025

• #20

Çok teşekkür ederim.Ellerinize sağlık

 

Oyla 0 Olumsuz oyla