Metni Sütunlara Dönüştür (2 Virgülden Sonrası Tek Sütun)

mdagistanli

Altın Üye
Katılım
5 Mayıs 2014
Mesajlar
106
Excel Vers. ve Dili
Excel Pro Plus 2019 TR
Altın Üyelik Bitiş Tarihi
12-02-2025
Merhabalar.
Berqnet güvenlik duvarından aldığım CSV logunun içeriğinde, virgülle ayrılmış 3 sütun var; Zaman,Servis,Bilgi
Bilgi sütununda virgül içeren satırlar var, bunların ayrılmaması gerekiyor. İlk iki virgülden sonra bölmemesini nasıl sağlayabiliriz?
Servis kısmında berq harici isimler de var, bu yüzden 'sabit genişlikli' seçemiyorum, sınırlandırılmış kullanmam gerekiyor.

Örnek 7 satır:
Kod:
Zaman,Servis,Bilgi
2021-08-02 15:36:57.0,berk,[main] INFO org.eclipse.jetty.util.ssl.SslContextFactory - Enabled Protocols [TLSv1.1, TLSv1.2] of [SSLv2Hello, SSLv3, TLSv1, TLSv1.1, TLSv1.2]
2021-08-02 15:36:54.0,berk,INFO: Installed AtmosphereInterceptor  Track Message Size Interceptor using | with priority BEFORE_DEFAULT
2021-08-02 15:36:54.0,berk,Aug 02, 2021 3:36:54 PM org.atmosphere.cpr.AtmosphereFramework interceptor
2021-08-02 15:36:54.0,berk,INFO: Atmosphere Framework 2.1.2.vaadin6 started.
2021-08-02 15:36:54.0,berk,Aug 02, 2021 3:36:54 PM org.atmosphere.cpr.AtmosphereFramework info
2021-08-02 15:36:54.0,berk,INFO: Atmosphere is using async support: org.atmosphere.container.JettyServlet30AsyncSupportWithWebSocket running under container: jetty/8.y.z-SNAPSHOT with WebSocket enabled.
2021-08-02 15:36:54.0,berk,Aug 02, 2021 3:36:54 PM org.atmosphere.cpr.AtmosphereFramework info
 

mdagistanli

Altın Üye
Katılım
5 Mayıs 2014
Mesajlar
106
Excel Vers. ve Dili
Excel Pro Plus 2019 TR
Altın Üyelik Bitiş Tarihi
12-02-2025
MBUL, SOLDAN ve PARÇAAL fonksiyonlarıyla istediğimi alabiliyorum, başka yöntem varsa merak ettim.
 

veyselemre

Özel Üye
Katılım
9 Mart 2005
Mesajlar
3,642
Excel Vers. ve Dili
Pro Plus 2021
Fonksiyonla çözüm için ; İlk iki virgülü | karakteriyle değiştirmek için aşağıdaki formülü kullanabilirsiniz.
Kod:
=YERİNEKOY(YERİNEKOY(A1;",";"|";1);",";"|";1)
Makro ile a sütunundaki verileri parçalamak için
Kod:
Sub test()
    For i = 1 To Cells(Rows.Count, 1).End(3).Row
        Cells(i, 2).Resize(, 3).Value = Split(Cells(i, 1).Value, ",", 3)
    Next i
End Sub
Direkt dosya üzerinden parse etmek için orjinal csv dosyasını ekleyebilirsiniz.
 
Son düzenleme:

mdagistanli

Altın Üye
Katılım
5 Mayıs 2014
Mesajlar
106
Excel Vers. ve Dili
Excel Pro Plus 2019 TR
Altın Üyelik Bitiş Tarihi
12-02-2025
Makroyu kullandım, istediğim şekilde çalıştı hocam, teşekkür ederim.
YERİNEKOY fonksiyonu 20 bin satırda işe yaradı, bir kaç yüz satırda kullanıcı sütunu yanlış bölündü.
Yapı düzgün değil galiba.

229218
 
Üst