• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Yardım Makro ile varsa eğer ilk ve sondaki özel karakteri silmek

H

herol74

Yeni Üye
Katılım
7 Nis 2020
Mesajlar
2
En iyi yanıt
0
Puanları
1
Yaş
42
Konum
Polonya
Ad Soyad
Huseyin Erol
Merhabalar,
A ve E sütunlarında ; noktalı virgül işareti olan hücreler var. Bu işaret eğer hücrenin ilk karakteri yada son karakteriyse yada her iki durum aynı anda mevcutsa tüm sütündaki bu karakterleri sadece ilk ve son karakter olmak üzere silmek istiyorum. Arada olanlar kalmalıdır. Makro ile bunu nasıl yapabilirim. Yardımcı olabilir misiniz lütfen. Teşekkürler.

Şuankiİstenen
;90394614299039461429
9039461428;9039461428
;9039459714;9039459616;9039459714;9039459616
;9039459714;90394596169039459714;9039459616
;9039459714;9039459677;9039459222;9039459714;9039459677;9039459222
9039461421;9039461421
 

Ekli dosyalar

  • Örnek.xlsx
    10.2 KB · Görüntüleme: 3
azraep

azraep

Yeni Üye
Katılım
29 Eki 2020
Mesajlar
153
En iyi yanıt
2
Puanları
28
Yaş
77
Konum
İstanbul
Ad Soyad
Azra
Office Vers.
Office 2019 TR
Formülle yaptım ama işinizi yarar mı ? Formül B sütununa yazılacak. A sütünundaki verileri temizliyor.

=EĞER(VE(SOLDAN(A1;1)=";";SAĞDAN(A1;1)=";");PARÇAAL(A1;2;UZUNLUK(A1)-2);EĞER(SOLDAN(A1;1)=";";PARÇAAL(A1;2;UZUNLUK(A1));EĞER(SAĞDAN(A1;1)=";";PARÇAAL(A1;1;UZUNLUK(A1)-1);)))
 
H

herol74

Yeni Üye
Katılım
7 Nis 2020
Mesajlar
2
En iyi yanıt
0
Puanları
1
Yaş
42
Konum
Polonya
Ad Soyad
Huseyin Erol
Merhabalar,
Formülle yaptım fakat aşırı yükleme hatası alıyorum.
 
azraep

azraep

Yeni Üye
Katılım
29 Eki 2020
Mesajlar
153
En iyi yanıt
2
Puanları
28
Yaş
77
Konum
İstanbul
Ad Soyad
Azra
Office Vers.
Office 2019 TR
datanız fazla satırlı veya sayfa fazla doluysa olabilir bendeki 3-5 örneğe göre sorunsuz çalıştı ama.
makro ile deneyim. başarılı olursam dosyayı gönderirim.
 
W

wexplorerx

Yeni Üye
Katılım
9 Tem 2019
Mesajlar
131
En iyi yanıt
5
Puanları
28
Konum
İstanbul
Ad Soyad
Murat Uzun
Office Vers.
Office 2016
Merhaba
Önce hepsini ayırıp daha sonra birleşmesi gerekenleri birleştirmeyi deneyebilirsin.

1612418846422.png1612418860107.png
 
azraep

azraep

Yeni Üye
Katılım
29 Eki 2020
Mesajlar
153
En iyi yanıt
2
Puanları
28
Yaş
77
Konum
İstanbul
Ad Soyad
Azra
Office Vers.
Office 2019 TR
aşağıdaki kodu bir module ekleseniz makro olarak istediğiniz gibi olur. Dener misiniz?
For i = 1 To 5000 sizin satır sayınız eklersiniz.


Kod: 
Sub virgulSil()

    For i = 1 To 5000
        a = Left(Cells(i, 1), 1)
        b = Right(Cells(i, 1), 1)
        c = Len(Cells(i, 1))
        If a = ";" And b = ";" Then
            Cells(i, 1).Value = Mid(Cells(i, 1), 2, c - 2)
        ElseIf a = ";" Then
            Cells(i, 1).Value = Mid(Cells(i, 1), 2, c - 1)
        ElseIf b = ";" Then
            Cells(i, 1).Value = Mid(Cells(i, 1), 1, c - 1)
        End If
    Next i
    
    For i = 1 To 5000
        a = Left(Cells(i, 5), 1)
        b = Right(Cells(i, 5), 1)
        c = Len(Cells(i, 5))
        If a = ";" And b = ";" Then
            Cells(i, 5).Value = Mid(Cells(i, 5), 2, c - 2)
        ElseIf a = ";" Then
            Cells(i, 5).Value = Mid(Cells(i, 5), 2, c - 1)
        ElseIf b = ";" Then
            Cells(i, 5).Value = Mid(Cells(i, 5), 1, c - 1)
        End If
    Next i
    
End Sub
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst Alt