[Yardım]  Boşluktan sonra uyarı versin

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

Boşluktan sonra uyarı versin

İleti#1)  erseldemirel2 » 26 Kas 2020 15:04

Ardakaşlar boşluk karakterinden sonra herhangi bir karakter yoksa uyarı vermesi lazım. Yardımlarınız için teşekkürler;


Kod: Tümünü seç
Ranger("A1")="ANKARA BURSA"  ' SORUN YOK
Ranger("A1")="ANKARA " ' A HARFİNDEN SONRA 1 BOŞLUK VAR UYARI VERSİN
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 36
İleti: 958
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Boşluktan sonra uyarı versin

İleti#2)  halily » 26 Kas 2020 16:59

trim fonksiyonunu kullansanız uyarı vermek yerine doğrudan fazladan tüm boşlukları temizlese daha uygun olmaz mı?
Range("A1") = Trim(" ANKARA ") gibi
Kullanıcı avatarı
halily
Siteye Alışmış
 
Kayıt: 23 May 2019 11:16
Meslek: yok
Yaş: 41
İleti: 256
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: Boşluktan sonra uyarı versin

İleti#3)  halily » 26 Kas 2020 17:58

aşağıdaki kod aradaki fazla boşlukları da alır
Kod: Tümünü seç
Range("A1") = Application.Trim("   ANKARA        ddd   ") ' SORUN YOK
Kullanıcı avatarı
halily
Siteye Alışmış
 
Kayıt: 23 May 2019 11:16
Meslek: yok
Yaş: 41
İleti: 256
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: Boşluktan sonra uyarı versin

İleti#4)  erseldemirel2 » 26 Kas 2020 18:05

Benim çok müdahale etmek istemediğim bir dosya bu. Bu gibi olan hücreleri kırmızıya boyarsa daha iyi. Öyle çözüm olabilirmi? Değişiklik yapılmadan hücrede.
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 36
İleti: 958
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

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

Cevap: Boşluktan sonra uyarı versin

İleti#5)  halily » 26 Kas 2020 21:45

koşullu biçimlendirme ile yapabilirsiniz
1 - Alanı seçin
2 - koşullu biçimlendirmeyi açın
3 - yeni kural
4 - yalnızca şunu içeren değeri biçimlendir satırını seçin
5 - ilk açılır kutudan belirli bir metin seçin seçeneğini seçin
6 - 2. açılır kutudan biter seçeneğini seçin
7 - 3. boş kutuya boşluk karakterini girin
8 - biçimlendirmeyi yapıp onaylayın
adsız.gif
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
halily
Siteye Alışmış
 
Kayıt: 23 May 2019 11:16
Meslek: yok
Yaş: 41
İleti: 256
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: Boşluktan sonra uyarı versin

İleti#6)  erseldemirel2 » 27 Kas 2020 09:19

Koşullu biçimlendirme ile oldu. Ayrıca kodda oluşturdum iyi oldu ikiside oluyor.

Kod: Tümünü seç
Sub tespit()
For vi = 3 To 100 'satır
For vj = 1 To 50 'sütun
If Right(Sheets("test").Cells(vi, vj), 1) = " " Then
Sheets("test").Cells(vi, vj).Interior.ColorIndex = 3
End If
Next vj
Next vi
End Sub
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 36
İleti: 958
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google Adsense [Bot], NECDET KURT ve 1 misafir

Bumerang - Yazarkafe