Boşluktan sonra uyarı versin

**#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

**#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

**#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

**#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.

**#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

**#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

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