[Yardım]  check box/onay kutusu hk

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Cevap: check box/onay kutusu hk

İleti#21)  Ömer BARAN » 08 Oca 2022 03:05

Gerçek belgenin kopyası şeklinde (tüm formüller/kodlar dosya içerisinde olacak şekilde) örnek belge olmayınca cevaplar ister istemez varsayımlara dayanmak durumunda kalıyor.

Benim daha evvel verdiğim kodun hata vermesi pek mümkün değil. Kanaatim o ki; belgenizde birleştirilmiş hücreleriniz var.
Neyse HATA kontrolü için, belirttiğim özellikte örnek belge eklemelisiniz.

Son sorunuza gelince; Liste & Puan Düşümü isimli sayfa K sütununda yer alan Geldi/Gelmedi kelimelerinin tümünü birden aşağıdaki kod kolayca silecektir. Bence bu işlem için döngü oluşturmaya gerek yok, klasik CTRL+H işlemi yeterlidir ve aşağıdaki kod da bu işlemi yapar.

Kod: Tümünü seç
Sub GELDI_GELMEDI_TEMIZLE()
With Sheets("Liste & Puan Düşümü")
    adet = WorksheetFunction.CountIf(.[K:K], "Geldi") + WorksheetFunction.CountIf(.[K:K], "Gelmedi")
    If adet = 0 Then: msj = "Silinecek veri yok": GoTo bitti
    Application.EnableEvents = False: Application.DisplayAlerts = False
        .[K:K].Replace "Geldi", "", LookAt:=xlWhole: .[K:K].Replace "Gelmedi", "", LookAt:=xlWhole
    Application.DisplayAlerts = True: Application.EnableEvents = True
    msj = "Liste & Puan Düşümü isimli sayfada K sütununda" & vbLf & _
            adet & " adet Geldi/Gelmedi değeri silindi.."
End With
bitti: MsgBox msj, vbInformation, "::.. Www.ExcelDestek.Com ..::"
End Sub


.
☾✭ İnadına TÜRKÇE ✭☽

Sorularınızı bana https://www.ExcelDestek.Com 'dan da sorabilirsiniz.



.



.
Kullanıcı avatarı
Ömer BARAN
Siteye Alışmış
 
Adı Soyadı:ÖMER BARAN
Kayıt: 29 Oca 2013 18:17
Konum: ANKARA
Meslek: EMEKLİ
Yaş: 58
İleti: 356
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANKARA / ÇANKAYA

Yıllık Maaş Bordrosu Hesaplama 2022

Cevap: Cevap: check box/onay kutusu hk

İleti#22)  M-a-d » 13 Oca 2022 12:42

Ömer BARAN yazdı:Gerçek belgenin kopyası şeklinde (tüm formüller/kodlar dosya içerisinde olacak şekilde) örnek belge olmayınca cevaplar ister istemez varsayımlara dayanmak durumunda kalıyor.

Benim daha evvel verdiğim kodun hata vermesi pek mümkün değil. Kanaatim o ki; belgenizde birleştirilmiş hücreleriniz var.
Neyse HATA kontrolü için, belirttiğim özellikte örnek belge eklemelisiniz.

Son sorunuza gelince; Liste & Puan Düşümü isimli sayfa K sütununda yer alan Geldi/Gelmedi kelimelerinin tümünü birden aşağıdaki kod kolayca silecektir. Bence bu işlem için döngü oluşturmaya gerek yok, klasik CTRL+H işlemi yeterlidir ve aşağıdaki kod da bu işlemi yapar.

Kod: Tümünü seç
Sub GELDI_GELMEDI_TEMIZLE()
With Sheets("Liste & Puan Düşümü")
    adet = WorksheetFunction.CountIf(.[K:K], "Geldi") + WorksheetFunction.CountIf(.[K:K], "Gelmedi")
    If adet = 0 Then: msj = "Silinecek veri yok": GoTo bitti
    Application.EnableEvents = False: Application.DisplayAlerts = False
        .[K:K].Replace "Geldi", "", LookAt:=xlWhole: .[K:K].Replace "Gelmedi", "", LookAt:=xlWhole
    Application.DisplayAlerts = True: Application.EnableEvents = True
    msj = "Liste & Puan Düşümü isimli sayfada K sütununda" & vbLf & _
            adet & " adet Geldi/Gelmedi değeri silindi.."
End With
bitti: MsgBox msj, vbInformation, "::.. Www.ExcelDestek.Com ..::"
End Sub


.

Ömer bey desteğiniz için teşekkürler evet ilettiğiniz gibi çalışma sayfasında birleştirilmiş hücreler mevcut.

Temizleme kodu için tekrardan teşekkürler.
Kullanıcı avatarı
M-a-d
Yeni Başlamış
 
Kayıt: 17 Oca 2019 18:23
Meslek: Satış Sonrası
Yaş: 34
İleti: 37
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Ümraniye

Önceki

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Yandex[Bot] ve 2 misafir

cron
Bumerang - Yazarkafe