Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Makro-VBA
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 13-08-2017, 18:33   #1
ASLAN7410
Altın Üye
 
ASLAN7410 kullanıcısının avatarı
 
Giriş: 15/07/2012
Şehir: Aslan ERASLAN - ANKARA
Mesaj: 1,490
Excel Vers. ve Dili:
Ofis 2013 Türkçe
Varsayılan Cümle içerisinde belirli bölümü silme

Merhaba hayırlı akşamlar.

Ekte gönderdiğim excel dosyamın F sütununda sistemden aldığımız
aşağıdaki gibi bilgiler var, bazı hücrelerde bir satır, bazı hücrelerde birden çok satır var.

[00:15,13.8.2017] +90555 555 55 55: Ali Veli
[00:15,13.8.2017] +90555 555 55 55: Ali Veli
[00:15,13.8.2017] +90555 555 55 55: Ali Veli
[00:15,13.8.2017] +90555 555 55 55: Ali Veli

Benim yapmak istediğim : (baş taraftan iki nokta kısma kadar silmek istiyorum.)

Yani sadece yazıların kalmasını istiyorum. Yardımcı olur musunuz?
.
Eklenmiş Dosyalar
Dosya Türü: xlsx Örnek.xlsx (8.1 KB, 12 Görüntülenme)
__________________
.
Her zaman yardımcı olmak güzel bir şeydir...
ASLAN7410 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-08-2017, 19:03   #2
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,285
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

Alıntı:
ASLAN7410 tarafından gönderildi Mesajı Görüntüle
Merhaba hayırlı akşamlar.

Ekte gönderdiğim excel dosyamın F sütununda sistemden aldığımız
aşağıdaki gibi bilgiler var, bazı hücrelerde bir satır, bazı hücrelerde birden çok satır var.

[00:15,13.8.2017] +90555 555 55 55: Ali Veli
[00:15,13.8.2017] +90555 555 55 55: Ali Veli
[00:15,13.8.2017] +90555 555 55 55: Ali Veli
[00:15,13.8.2017] +90555 555 55 55: Ali Veli

Benim yapmak istediğim : (baş taraftan iki nokta kısma kadar silmek istiyorum.)

Yani sadece yazıların kalmasını istiyorum. Yardımcı olur musunuz?
.
Örnek yetersiz; var olan örnek için aşağıdaki şekilde deneyiniz.
Sonuç kolonunu seçip, Giriş bölümünden Metni Kaydır Yapın.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
=YERİNEKOY(F2;PARÇAAL(F2;1;BUL(": ";F2;1));DAMGA(13))
__________________
www.asriakdeniz.com

Bu mesaj en son " 13-08-2017 " tarihinde saat 19:52 itibariyle asri tarafından düzenlenmiştir....
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-08-2017, 19:36   #3
ASLAN7410
Altın Üye
 
ASLAN7410 kullanıcısının avatarı
 
Giriş: 15/07/2012
Şehir: Aslan ERASLAN - ANKARA
Mesaj: 1,490
Excel Vers. ve Dili:
Ofis 2013 Türkçe
Varsayılan

Sayın Asri Bey, ilginiz için çok teşekkür ederim.

Yapmak istediğim şekli ekte gönderiyorum.
Eklenmiş Resimler
Dosya Türü: jpg Ekran Alıntısı.JPG (49.2 KB, 5 Görüntülenme)
__________________
.
Her zaman yardımcı olmak güzel bir şeydir...
ASLAN7410 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-08-2017, 19:48   #4
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: k.maraş
Mesaj: 1,449
Excel Vers. ve Dili:
2010-2016
Varsayılan

Aşağıdaki kodları bir modüle yapıştırıp deneyin.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub askm_Kelime_Böl()
Dim SonSatir As Long
SonSatir = Range("F" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
Application.DisplayAlerts = False
For i = 2 To SonSatir
    Kelime = Split(Cells(i, "F"), ":")(2)
    Cells(i, "G") = Split(Kelime, vbLf)(0)
Next i
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox "İşlem tamamlandır...", vbInformation, "ASKM"
End Sub
__________________
excel 2010- türkçe
askm Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-08-2017, 19:52   #5
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,285
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

Alıntı:
ASLAN7410 tarafından gönderildi Mesajı Görüntüle
Sayın Asri Bey, ilginiz için çok teşekkür ederim.

Yapmak istediğim şekli ekte gönderiyorum.
Sonuç kolonunu seçip, Giriş bölümünden Metni Kaydır Yapın.
__________________
www.asriakdeniz.com
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-08-2017, 19:55   #6
ASLAN7410
Altın Üye
 
ASLAN7410 kullanıcısının avatarı
 
Giriş: 15/07/2012
Şehir: Aslan ERASLAN - ANKARA
Mesaj: 1,490
Excel Vers. ve Dili:
Ofis 2013 Türkçe
Varsayılan

Sayın askm ilginiz için teşekkür ediyorum.

Kodlar güzel çalışıyor, ancak hücre içerisindeki Ali Veli cümlesini teke düşürüyor, ben buraya Ali Veli yazdım, ancak burada her bir cümle farklı şekilde.
__________________
.
Her zaman yardımcı olmak güzel bir şeydir...
ASLAN7410 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-08-2017, 19:56   #7
ASLAN7410
Altın Üye
 
ASLAN7410 kullanıcısının avatarı
 
Giriş: 15/07/2012
Şehir: Aslan ERASLAN - ANKARA
Mesaj: 1,490
Excel Vers. ve Dili:
Ofis 2013 Türkçe
Varsayılan

Sayın Asri Bey, bu formülle yapılan işlemi sütun için koda çevirebilir misiniz?

Veri çok olduğu kilitleniyor.
__________________
.
Her zaman yardımcı olmak güzel bir şeydir...
ASLAN7410 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-08-2017, 19:57   #8
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,285
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

Alıntı:
ASLAN7410 tarafından gönderildi Mesajı Görüntüle
Sayın Asri Bey, bu formülle yapılan işlemi sütun için koda çevirebilir misiniz?

Veri çok olduğu kilitleniyor.
En az 20 tane farklı örnek içeren bir dosya göndermezseniz çevirmem
__________________
www.asriakdeniz.com
asri Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-08-2017, 20:42   #9
ASLAN7410
Altın Üye
 
ASLAN7410 kullanıcısının avatarı
 
Giriş: 15/07/2012
Şehir: Aslan ERASLAN - ANKARA
Mesaj: 1,490
Excel Vers. ve Dili:
Ofis 2013 Türkçe
Varsayılan

Sayın Asri Bey dediğiniz gibi hazırladım, örnek dosyayı gönderiyorum.

Cümleler internetten alıntıdır.
Eklenmiş Dosyalar
Dosya Türü: xlsm Örnek1.xlsm (9.6 KB, 6 Görüntülenme)
__________________
.
Her zaman yardımcı olmak güzel bir şeydir...
ASLAN7410 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-08-2017, 21:12   #10
asri
Altın Üye
 
Giriş: 24/04/2005
Şehir: Istanbul
Mesaj: 2,285
Excel Vers. ve Dili:
Office 2016 TR 64 Bit
Varsayılan

Alıntı:
ASLAN7410 tarafından gönderildi Mesajı Görüntüle
Sayın Asri Bey dediğiniz gibi hazırladım, örnek dosyayı gönderiyorum.

Cümleler internetten alıntıdır.
Kod Alternatif; Farklı kolonda sonuç için.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub veri_temizle()
   Application.ScreenUpdating = False
   Application.DisplayAlerts = False
   Columns("F:F").Select
   Selection.Copy
   Columns("G:G").Select
   Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
   Application.CutCopyMode = False
   Range("G1").Select
    
   sonsatir = Cells(Rows.Count, "A").End(3).Row
   For i = 2 To sonsatir
    veri = Cells(i, "G").Value
    parca = Left(veri, InStr(veri, ": ") + 1)
    Cells(i, "G").Value = Replace(veri, parca, Chr(13))
   Next i
   
   Application.ScreenUpdating = True
   Application.DisplayAlerts = True
   
   Columns("G:G").Select
   With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
   End With
    Range("G2").Select
End Sub
Kod Alternatif; Aynı kolonda sonuç için

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub veri_temizle()
   Application.ScreenUpdating = False
   Application.DisplayAlerts = False
   sonsatir = Cells(Rows.Count, "A").End(3).Row
   For i = 2 To sonsatir
    veri = Cells(i, "F").Value
    parca = Left(veri, InStr(veri, ": ") + 1)
    Cells(i, "F").Value = Replace(veri, parca, Chr(13))
   Next i
   
   Application.ScreenUpdating = True
   Application.DisplayAlerts = True
   
   Columns("F:F").Select
   With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlCenter
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
   End With
    Range("G2").Select
End Sub
__________________
www.asriakdeniz.com
asri Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 22:15


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Torna - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Çorlu Temizlik- Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Su Deposu Temizliği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden