Plakalar Arasındaki Boşlukları Sil ve Büyükharf Yap

[SilinenUye8231]

Excel Versiyonu

Excel 2016

Excel Sürümü

64 Bit

Excel Dili

Türkçe

Merhaba, hayırlı geceler.

Ekte gönderdiğim excel dosyamın B sütununda plakalar mevcut, bazen plakalar yazılırken plakanın başına, ortasına veya sonuna boşluk konuluyor.
Yapmak istediğim hücreye boşluklu plaka yazılıp, hücreden çıkıldığı zaman örneğin plaka 06ABCD06 gibi plakadaki tüm boşluklar silinsin istiyorum.

Yardımcı olur musunuz?

 

Aktif Hücreyi Tıklanan Hücreye Geçirme

Çalışma Kitabını Kapalıyken Güncelleme

[Ömer BARAN]

Aşağıdaki gibi deneyin Sayın @SilinenUye8231 .

Görüntülemek için giriş yapmanız gerekmektedir.
(5 satır)

.

 

[SilinenUye8231]

Sayın Ömer Bey, ilginiz için çok teşekkür ediyorum, Allah razı olsun.
Ellerinize sağlık boşlukları siliyor, plakayı 06aeaae15 bu şekilde yazdığım zaman, büyük harfe çevirmiyor

 

[Ömer BARAN]

Önceki cevabımı güncelledim, sayfayı yenileyerek, düzeltilmiş halini deneyin.

.

 

[SilinenUye8231]

Sayın Ömer Bey, valla süper oldu, tam istediğim gibi çalışıyor, Allah razı olsun.

Hayırlı sabahlar diliyorum.

 

[SilinenUye8231]

Sayın Ömer Bey, ekte gönderdiğim dosyada aşağı yada yukarı butonlarına bastığımda hata veriyor.

 

[Ömer BARAN]

Sayın @SilinenUye8231 .
Verdiğim kodun en başına, If Target.Count > 1 Then Exit Sub şeklinde bir satır eklerseniz sorun yaşanmaz.

 

[SilinenUye8231]

Sayın Ömer Bey, ilginiz için çok teşekkür ediyorum.
Sayfanın kod bölümündeki aşağıdaki kodu aktif hale getirince, sayfanın yüzü kilitleniyor, bunu nasıl çözebiliriz?

Target.Cells.Replace " ", ""

 

[Ömer BARAN]

Amacınız tam olarak nedir? Açıklar mısınız?
Bu kod nerede? Change kodunda pasif hale getirdiğiniz satır mıdır?

Elle tek tek veri girişi mi yapıyorsunuz yoksa, toplu kopyala yapıştır gibi veri yazılması söz konusu mudur?

.

 

[SilinenUye8231]

Sayın Ömer Bey, Sayfa1 in kod bölümünde siyahla belirttiğim kısmı aktif hale getirince, dosyayı ilk açtığımda, sayfanın yüzünde fareyle tıklama iptal oluyor.

Verileri elle tek tek giriyorum.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub

If Not Intersect(Target, Range("B2:B" & Rows.Count)) Is Nothing Then
On Error Resume Next
If Target <> UCase(Target) Then Target = UCase(Replace(Replace(Target, "i", "İ"), "ı", "I"))

'Target.Cells.Replace " ", ""

End If
End Sub

 

[SilinenUye8231]

Sayın Ömer Bey, kendi dosyamın video görüntüsünü atıyorum, hücrede nereye tıklarsam, imleç seçmiyor.

Sayfa1 deki 'Target.Cells.Replace " ", "" bu kodu aktif yaptığımda videodaki gibi oluyor.

https://***/pmgb9ow7et57/Video.rar.html

 

[Ömer BARAN]

Ben bir soruna rastlamadım, belirttiğiniz satırı aktif hale getirdim ve belgeyi kayedederek defalarca açıp kapattım.
İsterseniz şöyle yapın.

Boş bir excel belgesi açın ve aşağıdaki kodu 1 kez çalıştırın.
Sonra asıl belgenizi tekrar açın bakalım fark olacak mı?
Sadece ilk üç satır yeterli olması lazım diye düşünüyorum, sakınca yok diğerlerinde de.

Görüntülemek için giriş yapmanız gerekmektedir.
(8 satır)

 

[SilinenUye8231]

Sayın Ömer Bey, dediğiniz gibi yaptım, orijinal dosyam hala aynı.
Gönderdiğim örnek dosyada bu dediklerim olmuyor.

 

[SilinenUye8231]

Sayın Ömer Bey, aşağıdaki bu kodu ilk açılışta pasif edip sonra tekrar aktif hala getirsek bu sorun çözülür mü?

Sayfa1 deki 'Target.Cells.Replace " ", ""

Ama bu işlem için kod nasıl olur bilemiyorum.

 

[SilinenUye8231]

Sayın Ömer Bey, daha önceki örneklerimin içerisinde ilk açılışta mesaj gelmesin diye böyle bu uygulama yapılmıştı, bu uygulamayı kendi dosyamda uyguladım istediğim şekilde çalışıyor. Belki birilerinin işine yarar diye ekliyorum.

Module1 içerisine Public Kontrol As Boolean bu kodu ekledim,
Sayfa1 in kod bölümüne çalışmayacak olan bu kodu ekledim If Kontrol = False Then Target.Cells.Replace " ", ""
İlk açılışta Private Sub Workbook_Open() bu başlık altına ilk satıra Kontrol = True, son satırada Kontrol = False şeklinde uyguladım, istediğim oldu.

 

[SilinenUye8231]

Sayın Ömer Bey, ayrıca siteden gelen bütün e mail'ler, e postamın gereksiz klasörünün içerisine düşüyor, bana gelen e postalardaki bu mesajlara gereksiz e posta değil dememe rağmen hala gereksiz klasörünün içerisine düşüyor, bu klasör içerisine düştüğü için uyarı mesajı gelmiyor.

 

[SilinenUye8231]

Bu şekilde düşüyor.

 

[Ömer BARAN]

Belgenizde sorun kalmadı diye anlıyorum, doğru mudur?

E-posta bildirimi konusu sıkıntılı konu, çözüm bulunabilir mi bilemiyorum.
Bildiğim kadarıyla durum, e-postanın otomatik bir e-posta olmasından kaynaklanıyor.

Forumun teknik tarafıyla Sayın @Admin ilgileniyor ve kendisine durumu ilettim.

.

 

[SilinenUye8231]

Sayın Ömer Bey, sorunum çözüldü.
Çok teşekkür ediyorum, hayırlı geceler diliyorum.

 

[ExcelDepo]

Yani bu kısma ne yapabilirim inanın ben de bilmiyorum.
Sırf spam olmasın diye ücretli SMTP aboneliği alıp, tüm uzantılarımızı güvenlik olacak şekilde kayıt altına aldık.