[Yardım]  Satır sonundaki noktalama işaretleri

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

Satır sonundaki noktalama işaretleri

İleti#1)  yurdalsldrk » 22 Kas 2021 19:53

Merhabalar ,
Bir konuda destek rica ediyorum excel de satırların sonunda ; işaretileri var normalde ctrl-h ile bul değiştir yaparım ancak satırın içinde bulunan ; işaretleri de silinecek bunu istemiyorum sadece satır sonunda kaç tane ; işareti var ise silinmesini istiyorum data kalabalık oldugu için tek tek yapmak zaman alıyor .Teşekkürler
Kullanıcı avatarı
yurdalsldrk
Yeni Başlamış
 
Kayıt: 05 Ağu 2017 02:06
Meslek: finans
Yaş: 40
İleti: 28
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/kartal

Cevap: Satır sonundaki noktalama işaretleri

İleti#2)  okutkan » 22 Kas 2021 20:48

Aşağıdaki kodu kullanabilirsiniz.

Kod: Tümünü seç
Private Sub CommandButton1_Click()
Dim s As Worksheet
Set s = Sheets("Sayfa1") 'sayfanızın ismini burdan değiştirin
son = s.Cells(Rows.Count, "A").End(3).Row ' A sütunu son satır sayısı, bunu değiştirebilirsiniz.
For i = 1 To son '1.satır ile son satır arasında döngü

hedef = Right(s.Cells(i, "A"), 1) ' A sütununu değiştirebilirsiniz.
hedefHarf = Len(s.Cells(i, "A"))
If hedef = ";" Then
s.Cells(i, "A") = Left(s.Cells(i, "A"), hedefHarf - 1)
End If

Next i
End Sub
Ali ihsan OKUTKAN
Kullanıcı avatarı
okutkan
Site Dostu
 
Kayıt: 27 May 2017 04:45
Meslek: pol. mem.
Yaş: 29
İleti: 1349
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: Satır sonundaki noktalama işaretleri

İleti#3)  okutkan » 22 Kas 2021 20:51

Bir veya daha fazla sütun olup olmadığını belirtmemişsiniz, daha fazla sütun varsa kodu değiştirmek gerekir. Kodun dosyada uygulanmış hali aşağıya ekliyorum. "A" Kodlamada açıklamaları yazdım, Sütun değiştirmek isterseniz açıklamaları göz önünde bulundurarak değiştirebilirsiniz.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Ali ihsan OKUTKAN
Kullanıcı avatarı
okutkan
Site Dostu
 
Kayıt: 27 May 2017 04:45
Meslek: pol. mem.
Yaş: 29
İleti: 1349
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: Satır sonundaki noktalama işaretleri

İleti#4)  yurdalsldrk » 22 Kas 2021 21:28

öncelikle teşekkür ederim hemen denedim örneğin , istanbul ;;; makroyu çalıştırıyorum tek tek ; siliyor yani satırın sonundaki makroları silinmesi için 3 kez çalıştırmam gerekiyor.
Kullanıcı avatarı
yurdalsldrk
Yeni Başlamış
 
Kayıt: 05 Ağu 2017 02:06
Meslek: finans
Yaş: 40
İleti: 28
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/kartal

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

Cevap: Satır sonundaki noktalama işaretleri

İleti#5)  okutkan » 22 Kas 2021 21:39

Sütunda yaklaşık kaç satır var ve sonda en fazla kaç ; virgül olabiliyor?
Ali ihsan OKUTKAN
Kullanıcı avatarı
okutkan
Site Dostu
 
Kayıt: 27 May 2017 04:45
Meslek: pol. mem.
Yaş: 29
İleti: 1349
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: Satır sonundaki noktalama işaretleri

İleti#6)  yurdalsldrk » 22 Kas 2021 21:52

a-b-c-d-e toplamda beş başlık var bu başlıklardan e başlığında bulunan verilere işlem yapmak istiyorum toplamda 1200 üstünde satır var bazı isimlerde3 adet noktalama olabilirken bazı satırlarda 5 bazılarında 2 noktalama işaretleri olabiliyor değişken bir yapı
Kullanıcı avatarı
yurdalsldrk
Yeni Başlamış
 
Kayıt: 05 Ağu 2017 02:06
Meslek: finans
Yaş: 40
İleti: 28
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/kartal

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Satır sonundaki noktalama işaretleri

İleti#7)  okutkan » 22 Kas 2021 21:58

Noktalı virgül sayısını kontrol edecek şekilde döngü oluşturdum. Aşağıdaki dosyayı deneyin.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Ali ihsan OKUTKAN
Kullanıcı avatarı
okutkan
Site Dostu
 
Kayıt: 27 May 2017 04:45
Meslek: pol. mem.
Yaş: 29
İleti: 1349
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: Satır sonundaki noktalama işaretleri

İleti#8)  yurdalsldrk » 22 Kas 2021 22:15

süper olmuş elinize sağlık teşekkür ederim son olarak a sütununa göre yapılmış ben sutunu c yada farklı bir sutun seçmek istersem koddaki A ların yerine değiştirmek istediğim sutunun adını vermek yeterli olur mu.
Kullanıcı avatarı
yurdalsldrk
Yeni Başlamış
 
Kayıt: 05 Ağu 2017 02:06
Meslek: finans
Yaş: 40
İleti: 28
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/kartal

Cevap: Satır sonundaki noktalama işaretleri

İleti#9)  hukumran » 22 Kas 2021 22:18

Regexp de alternatif olarak kullanılabilir.

microsoft vbscript regular expressions 5.5 i Referanslar kısmından etkinleştirmeniz gerekir.
Resim

Kod: Tümünü seç
Sub RegexIleSondanKarakterKaldir()
Dim stringOne As String
Dim regexOne As Object
Set regexOne = New RegExp
regexOne.Pattern = ";*$"
Dim Cel() As Variant
Cel = Application.Transpose(Application.Transpose(Cells.CurrentRegion.Value2))

For r = 1 To UBound(Cel)
    For k = 1 To UBound(Cel, 2)
       If Right(Cel(r, k), 1) = ";" Then
       Cells(r, k).Value = regexOne.Replace(Cel(r, k), "")
       End If
    Next k
Next r
End Sub
Kullanıcı avatarı
hukumran
Siteye Alışmış
 
Adı Soyadı:Hasan Salihoğlu
Kayıt: 15 Tem 2014 14:44
Konum: İstanbul
Meslek: Grafiker
Yaş: 34
İleti: 145
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Satır sonundaki noktalama işaretleri

İleti#10)  yurdalsldrk » 22 Kas 2021 22:29

teşekkür ederim
Kullanıcı avatarı
yurdalsldrk
Yeni Başlamış
 
Kayıt: 05 Ağu 2017 02:06
Meslek: finans
Yaş: 40
İleti: 28
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/kartal

Cevap: Cevap: Satır sonundaki noktalama işaretleri

İleti#11)  okutkan » 22 Kas 2021 22:49

yurdalsldrk yazdı:süper olmuş elinize sağlık teşekkür ederim son olarak a sütununa göre yapılmış ben sutunu c yada farklı bir sutun seçmek istersem koddaki A ların yerine değiştirmek istediğim sutunun adını vermek yeterli olur mu.

Kod üzerindeki tüm A sütunlarını değiştirirseniz yeterli.
Ali ihsan OKUTKAN
Kullanıcı avatarı
okutkan
Site Dostu
 
Kayıt: 27 May 2017 04:45
Meslek: pol. mem.
Yaş: 29
İleti: 1349
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: Satır sonundaki noktalama işaretleri

İleti#12)  okutkan » 22 Kas 2021 22:53

Kodlama sayfası açıkken Ctrl+H tuşlarına basın,
İlk kutuya "A" yazın (tırnak işaretleri dahil)
İkinci kutuya "C" yazın (tırnak işaretleri dahil)

Replace All butonuna basın, tümünü aynı anda değiştirmiş olacak.
Ali ihsan OKUTKAN
Kullanıcı avatarı
okutkan
Site Dostu
 
Kayıt: 27 May 2017 04:45
Meslek: pol. mem.
Yaş: 29
İleti: 1349
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: Satır sonundaki noktalama işaretleri

İleti#13)  yurdalsldrk » 22 Kas 2021 23:14

Cok teşekkürler
Kullanıcı avatarı
yurdalsldrk
Yeni Başlamış
 
Kayıt: 05 Ağu 2017 02:06
Meslek: finans
Yaş: 40
İleti: 28
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul/kartal

Cevap: Satır sonundaki noktalama işaretleri

İleti#14)  okutkan » 22 Kas 2021 23:28

Rica ederim. iyi calışmalar.
Ali ihsan OKUTKAN
Kullanıcı avatarı
okutkan
Site Dostu
 
Kayıt: 27 May 2017 04:45
Meslek: pol. mem.
Yaş: 29
İleti: 1349
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ


Forum Genel Makro Soruları

Online Kullanıcılar

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

Bumerang - Yazarkafe