Checkbox2 Ile Tek Personel X Aktarımı

  • Konuyu başlatan Konuyu başlatan sedat2161
  • Başlangıç tarihi Başlangıç tarihi

sedat2161

Kullanıcı
Katılım
11 Tem 2021
Mesajlar
534
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Hayırlı akşamlar arkadaşlar ekli dosyamda CheckBox2 ile yeni kayıt veya güncelleme yaptığım personelin FİŞ teslim dosyasındaki teslim edildi sütununa X koymak ve kaldırmak istiyorum. CheckBox2 ye tıkladığımda aktif personele X aktarsın tıklamayı kaldırdığım da X silinsin yardımlarınızı bekliyorum.
 
Combobox1 Ile Sayfaya Aktar Sorunu
Combobox1 Ile Sayfaya Aktar Sorunu
CheckBox ile Personeli Pasifleştirme

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
Dosyayı incelemedim fakat önceki sorunuz ile aynı dosya sanırım. Aşağıdaki kodu deneyin.

Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(13 satır)
 
Oyla 0 Olumsuz oyla
okutkan' Alıntı:
Dosyayı incelemedim fakat önceki sorunuz ile aynı dosya sanırım. Aşağıdaki kodu deneyin.

Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(13 satır)
Genişletmek için tıklayın ...
Hocam iyi akşamlar.
Dosya aynı ama soru aynı değil . Değir sorumda toplu olarak X leri tüm personellere aktarım yapıyorum. Bunda ise Fiş teslim dosyasında teslim edilmeyen fişlerin X lerini kaldırmak ve yeni eklediğim personele X tanıtmak.
Paylaştığınız kodu uyguladım ekli resimdeki sorunu verdi hocam,
 

Ekli dosyalar

  • Ekran Alıntısı.webp
    Ekran Alıntısı.webp
    10.4 KB · Görüntüleme: 39
Oyla 0 Olumsuz oyla
Telefondan yazdığım için end if eksikliğini farketmemişim. Aşağıdaki şekilde bir deneyin.
Kod şu şekilde çalışır; checkbox2 işaretliyse g sütunundaki hücrelerin hepsine X yazar, tersi halde de X leri kaldırır. Önceki konunuzdaki işlemin X lerin kaldırılması işlemini içeren hali.
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(10 satır)
 
Oyla 0 Olumsuz oyla
okutkan' Alıntı:
Telefondan yazdığım için end if eksikliğini farketmemişim. Aşağıdaki şekilde bir deneyin.
Kod şu şekilde çalışır; checkbox2 işaretliyse g sütunundaki hücrelerin hepsine X yazar, tersi halde de X leri kaldırır. Önceki konunuzdaki işlemin X lerin kaldırılması işlemini içeren hali.
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(10 satır)
Genişletmek için tıklayın ...
Hocam kod bu hatayı veriyor
 

Ekli dosyalar

  • Ekran Alıntısı.webp
    Ekran Alıntısı.webp
    9.2 KB · Görüntüleme: 41
Oyla 0 Olumsuz oyla
Turuncu ile işaretliğim yerleri enter tuşu ile aşağı satıra kaydırın.
if satırı ve sf.cells satırları.
Birde checkbox1 = true yazan satırdaki 1 i 2 yapın.
Screenshot_20220706-223421_Chrome.webp
 
Oyla 0 Olumsuz oyla
okutkan' Alıntı:
Telefondan yazdığım için end if eksikliğini farketmemişim. Aşağıdaki şekilde bir deneyin.
Kod şu şekilde çalışır; checkbox2 işaretliyse g sütunundaki hücrelerin hepsine X yazar, tersi halde de X leri kaldırır. Önceki konunuzdaki işlemin X lerin kaldırılması işlemini içeren hali.
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(10 satır)
Genişletmek için tıklayın ...
Hocam ben sorunumu anlatamadım.
Hocam önceki sorumda checkbox1 ile tüm personelin G sütununa X ler toplu aktarılmaktadır.
Benim bu sorudaki amacım herhangi bir personele fiş teslim edilmediğinde o personeli bul komutu ile bulup X i kaldırmak.
Yeni eklediğim personele X aktarmak ve ya silmek.
Son paylaştığınız kod G sütunundaki tüm X ler kaldırılıyor.
 
Oyla 0 Olumsuz oyla
@sedat2161

Yanlış anlamıyorsam; başka bir yöntem önereyim.
Şu kodu userformun kod bölümüne eklediğinizde,
Listview satırına çift tıklamayla X varsa silinir, boşsa X yazılır (tabii ki sayfadaki ilgili alana da aynı şekilde X eklenir veya silinir)

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(5 satır)
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
@sedat2161

Yanlış anlamıyorsam; başka bir yöntem önereyim.
Şu kodu userformun kod bölümüne eklediğinizde,
Listview satırına çift tıklamayla X varsa silinir, boşsa X yazılır (tabii ki sayfadaki ilgili alana da aynı şekilde X eklenir veya silinir)

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(11 satır)
Genişletmek için tıklayın ...
Evet hocam yanlış anlamdanız. Ben anlatamıyorum. Çok teşekkür ederim. okutkan hocama ve Ömer BARAN hocama ilgilerinden dolayı çok teşekkür ederim. İyiki varsınız.
 
Oyla 0 Olumsuz oyla
sedat2161' Alıntı:
Evet hocam yanlış anlamdanız. Ben anlatamıyorum. Çok teşekkür ederim. okutkan hocama ve Ömer BARAN hocama ilgilerinden dolayı çok teşekkür ederim. İyiki varsınız.
Genişletmek için tıklayın ...
Son mesajınızda anlaşılır şekilde açıklama yapmışsınız. 8. Mesajdaki kodu kullanmayacaksanız ve 7. Mesajınızdaki isteğiniz geçerliyse yardımcı olayım.
 
Oyla 0 Olumsuz oyla
Bir önerim daha olsun.
Userform açıldığında, mevcut kayıtların Listview'de görünür olması sanırım daha anlamlı olacak.
Bunun için UserForm_Initalize kod blokunda, End Sub satırından hemen önce
TextBox4_Change
şeklinde bir satır ekleyin.
Böylece açılışta userformdaki liste boş gelmez.
 
Oyla 0 Olumsuz oyla
Ömer BARAN' Alıntı:
Bir önerim daha olsun.
Userform açıldığında, mevcut kayıtların Listview'de görünür olması sanırım daha anlamlı olacak.
Bunun için UserForm_Initalize kod blokunda, End Sub satırından hemen önce
TextBox4_Change
şeklinde bir satır ekleyin.
Böylece açılışta userformdaki liste boş gelmez.
Genişletmek için tıklayın ...
Hocam inanın aklımdan çok geçti. Bir türlü nasıl anlatacağımı bilemedim. Hocalarım sağ olsun benim söylediğim şekilde sorunlarımı çözüyorlar. İşte eksik bilgi vermenin sonucu. Çok teşekkür ederim.
 
Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt