Çözüldü Otomatik Alt Satır Ekleme

Rahle · 25 Haz 2018

Değerli arkadaşlar, üstadlar,

Elimde çok uzun satırlar var. Bunları belirli bir satır genişliğinden sonra ENTER veya ALT+ENTER kullanmadan bir alt satıra otomatik olarak atmak istiyorum.

Word veya Excel platformunda tercihen makrosuz veya başka yöntemle nasıl yapabilirim?

Mevcut Durum:
ExcelTurkey.com gizliliğinizi korumak ve kullanılmakta bulunan teknolojik altyapıdan en üst seviyede yararlanmanızı sağlayabilmek amacıyla; kişisel bilgi ve veri güvenliğiniz için çeşitli gizlilik ilkeleri benimsemiştir. Bu gizlilik ilkeleri dahilinde excelturkey.com internet sitesi ve tüm alt internet sitelerinde veri toplanması ve/veya kullanımı konusunda uygulanmak üzere belirlenmiş ve beyan edilmektedir.

Olması istenen:
ExcelTurkey.com gizliliğinizi korumak ve kullanılmakta bulunan
teknolojik altyapıdan en üst seviyede yararlanmanızı
sağlayabilmek amacıyla; kişisel bilgi ve veri güvenliğiniz için
çeşitli gizlilik ilkeleri benimsemiştir. Bu gizlilik ilkeleri dahilinde
excelturkey.com internet sitesi ve tüm alt internet sitelerinde
veri toplanması ve/veya kullanımı konusunda uygulanmak
üzere belirlenmiş ve beyan edilmektedir.

Murat OSMA · 25 Haz 2018

Selâmlar,

İsterseniz makro ile çözüm sunabilirim.

Rahle · 25 Haz 2018

Merhaba,

Tamamdır. Makro ile deneyebiliriz...

İlgili VBA paylaşmanız mümkün müdür?

Murat OSMA · 25 Haz 2018

Sn. @Arkadasca,

Sonraki açacağınız konularla ilgili bazı genel bilgiler vereyim;

Konu başlığına YARDIM, DESTEK vs. ifadeler yazmayınız.
Konu hangi başlık ile ilgili ise o başlıkta konu açmaya özen gösteriniz.
Konu sizin tarafınızdan çözüme kavuşmadıysa En İyi Yanıt olarak seçmeyiniz.

İlgili sayfanın kod penceresine bu kodları yapıştırın..

PHP:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim geri As Boolean, uz%, ayir, sayi%, ortalama%, i%, al$
    If Target.Address(0, 0) <> "A1" Then Exit Sub
    On Local Error Resume Next
    uz = Len(Target.Value)
    ayir = Split(Target.Value, " ")
    sayi = UBound(ayir)
    ortalama = Round(uz / sayi, 0)
    Application.EnableEvents = False
    For i = 1 To sayi + 1
        If i Mod (ortalama + 1) = 0 Then
            GoSub devam
                Else
            If geri = True Then
                If al = "" Then al = ayir(i - 2) & " "
            End If
            al = al & ayir(i - 1) & " "
        End If
    Next i
devam: Range("B65536").End(3)(2, 1) = al
        al = Empty
        geri = True
    Return
    Application.EnableEvents = True
    al = vbNullString: i = Empty: ortalama = Empty: sayi = Empty: uz = Empty: Erase ayir
End Sub

A1 hücresine verdiğiniz metni yapıştırıp Enter'a basın.

Rahle · 25 Haz 2018

Merhaba,

Acemiliğe veriniz. Bu alt yapıyı da öğreneceğiz inşa Allah... Gözler VBULLETİN arıyor.

Dediğiniz şekilde yaptım ancak VBA çalıştıramadım. Ekteki dosyayı inceleyebilir misiniz?
Ayrıca satır uzunluğunu, kısalığını nasıl ayarlayabilirim?

Yardımlarınız için teşekkür ederim.

Murat OSMA · 25 Haz 2018

Dediğiniz gibi yavaş yavaş alışacağınızı umuyorum.

Dediğim şekilde yapmamış görünüyorsunuz.
O şekilde prosedürü çalıştıramazsınız.
Verdiğim kodları, Sayfa1'in kod penceresine yapıştırıp deneyiniz.
Yapabileceğinizi umuyorum, yapamazsanız ilgili dosyayı eklerim.

Saygılar

Rahle · 25 Haz 2018

Değerli Hocam,

Daha önce hiç sıfırdan ilk VBA eklemedim. Mevcut olanların üzerinde de çok az uğraştım. Evet kabul ediyorum bu konuda zır kara cahilim.

Epey uğraştım, dediğiniz gibi yaptım ancak muvaffak olamadım.

Ayrıca satır uzunluğunu, kısalığını nasıl ayarlayabilirim?

Son kez inceler misiniz?

Murat OSMA · 25 Haz 2018

Buyrun @Arkadasca, dosyayı ekliyorum.
Öncelikle iyice bir inceleyiniz.

Rahle · 25 Haz 2018

Tamamdır. Sizi boşu boşuna uğraştırdım, hakkınızı helal ediniz.Sizin gönderdiğiniz ile bizim ilk başta yaptığımız tamamen aynı...

En başından beri bir yere tıklamam veya tetiklemem gerektiğini sanıyordum. Meğer hücre içerisinde yazıyı seçince otomatik kırpıyor.

Teşekkür eder, başarı ve kolaylıklar dilerim.

Murat OSMA · 25 Haz 2018

Rica ederim, çözüme kavuşmasına sevindim.

Hoşça kalın.

Rahle · 2 Tem 2018

Tekrar merhabalar,

Bu konu işimi oldukça fazla kolaylaştırdı. Ancak kullanıma bağlı yeni bir geliştirme ihtiyacı hasıl oldu.

Her satırda sadece ve sadece 5 kelime alsın, gerisi bir alt satıra geçsin.
Veya ilgili makroyu parametrik olarak belirtebilir misiniz? Biz ihtiyacımıza göre arttırıp azaltalım.
Örnek dosya ve örnek paragrafı aşağıya ekliyorum.
İlginiz ve özverili yardımınız için çok teşekkür eder, hayırlı haftalar, hayırlı çalışmalar dilerim.

ÖRNEK METİN:
II. Mehmed kuşatma hazırlıklarına 1451
sonlarında başladı. Boğaz’ın Anadolu yakasında
büyük dedesi Bayezid’in yaptırmış olduğu
Anadolu Hisarı'nın karşısına o dönemde
Boğazkesen adı verilen Rumeli Hisarı’nın
inşa emrini verdi.

Murat OSMA · 2 Tem 2018

B1 hücresine satırda olmasını istediğiniz kelime sayısını yazın.
A1 hücresine de gir-çık yapın.

Bu kodları kullanabilirsiniz..

PHP:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim geri As Boolean, uz%, ayir, sayi%, ortalama%, i%, al$
    If Target.Address(0, 0) <> "A1" Then Exit Sub
    On Local Error Resume Next
    Range("B2:B10000").ClearContents
    uz = Len(Target.Value)
    ayir = Split(Target.Value, " ")
    sayi = UBound(ayir)
    Application.EnableEvents = False
    For i = 1 To sayi + 1
        If i Mod Range("B1").Value = 0 Then
            GoSub devam
                Else
            If geri = True Then
                If al = "" Then al = ayir(i - 2) & " "
            End If
            al = al & ayir(i - 1) & " "
        End If
    Next i
devam: Range("B65536").End(3)(2, 1) = al
        al = Empty
        geri = True
    Return
    Application.EnableEvents = True
    al = vbNullString: i = Empty: ortalama = Empty: sayi = Empty: uz = Empty: Erase ayir
End Sub

Rahle · 2 Tem 2018

İşte budur... Muhteşem oldu.

Teşekkür eder, başarılar dilerim.

Murat OSMA · 2 Tem 2018

Rica ederim, iyi günler.

Çözüldü Otomatik Alt Satır Ekleme

Daha fazla seçenek

Rahle

Murat OSMA

Rahle

Murat OSMA

Rahle

Ekli dosyalar

Murat OSMA

Rahle

Ekli dosyalar

Murat OSMA

Ekli dosyalar

Rahle

Murat OSMA

Rahle

Ekli dosyalar

Murat OSMA

Rahle

Murat OSMA