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 16-01-2018, 23:33   #1
nozang
Altın Üye
 
Giriş: 11/03/2010
Şehir: istanbul
Mesaj: 198
Excel Vers. ve Dili:
2010 tr
Lightbulb wordde yada excelde Satırbaşı yapmak

Merhaba wordde bir kitabım var,
her cümle sonundaki nokta işaretinden sonra bir satır alta geçip cümle yeni cümle başlamasını istiyorum.

Ayrıca birde madde imleri var kalın nokta yani aynı şekilde onuda görünce bir satır aşağıya alsın istiyorum.

word dosyası ekte yapılmamış hali sayfa 1 de ve olmasını istediğimiz yapılmış hali sayfa2.

yani sayfa1 deki tarzın sayfa2 deki gibi olmasını istiyoruz.

Excele aldık, tek tek uğraştık artık bitmiyor.

Konu ile ilgili kıymetli yardımlarınız rica olunur.
Eklenmiş Dosyalar
Dosya Türü: doc satırbaşı.doc (36.0 KB, 12 Görüntülenme)
__________________
VATANINI EN ÇOK SEVEN, GÖREVİNİ EN İYİ YAPANDIR.

Bu mesaj en son " 16-01-2018 " tarihinde saat 23:39 itibariyle nozang tarafından düzenlenmiştir....
nozang Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-01-2018, 06:48   #2
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: K.Maraş
Mesaj: 2,121
Excel Vers. ve Dili:
2010-2016
Varsayılan

Makro ile yapabilmek için noktadan bölmeyi denedim. Yalnız "Türk Medeni Kanununun 194. maddesinin 1. fıkrası, “Eşlerden biri, diğer eşin açık rızası bulunmadıkça, aile konutu ile ilgili kira sözleşmesini feshedemez, aile konutunu devredemez veya aile konutu üzerindeki hakları sınırlayamaz.” hükmünü getirmiş olduğundan, aile konutuna malik olan eş, diğer eşin rızasını almadan bu konutu devredemeyeceği gibi ipotek de veremeyecektir." cümlesini 4 parçaya bölüyor.
1.Türk Medeni Kanununun 194
2.maddesinin 1
3.fıkrası, “Eşlerden biri, diğer eşin açık rızası bulunmadıkça, aile konutu ile ilgili kira sözleşmesini feshedemez, aile konutunu devredemez veya aile konutu üzerindeki hakları sınırlayamaz
4.” hükmünü getirmiş olduğundan, aile konutuna malik olan eş, diğer eşin rızasını almadan bu konutu devredemeyeceği gibi ipotek de veremeyecektir

Bu da dosyanızı istediğiniz gibi bölmeye olanak vermiyor malesef.
__________________
excel 2010- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Eski 17-01-2018, 07:04   #3
nozang
Altın Üye
 
Giriş: 11/03/2010
Şehir: istanbul
Mesaj: 198
Excel Vers. ve Dili:
2010 tr
Varsayılan

Alıntı:
askm tarafından gönderildi Mesajı Görüntüle
Makro ile yapabilmek için noktadan bölmeyi denedim. Yalnız "Türk Medeni Kanununun 194. maddesinin 1. fıkrası, “Eşlerden biri, diğer eşin açık rızası bulunmadıkça, aile konutu ile ilgili kira sözleşmesini feshedemez, aile konutunu devredemez veya aile konutu üzerindeki hakları sınırlayamaz.” hükmünü getirmiş olduğundan, aile konutuna malik olan eş, diğer eşin rızasını almadan bu konutu devredemeyeceği gibi ipotek de veremeyecektir." cümlesini 4 parçaya bölüyor.
1.Türk Medeni Kanununun 194
2.maddesinin 1
3.fıkrası, “Eşlerden biri, diğer eşin açık rızası bulunmadıkça, aile konutu ile ilgili kira sözleşmesini feshedemez, aile konutunu devredemez veya aile konutu üzerindeki hakları sınırlayamaz
4.” hükmünü getirmiş olduğundan, aile konutuna malik olan eş, diğer eşin rızasını almadan bu konutu devredemeyeceği gibi ipotek de veremeyecektir

Bu da dosyanızı istediğiniz gibi bölmeye olanak vermiyor malesef.
Sayın askm ilgi ve alakanız için çok teşekkür ederim; sadece fikir açısından şöyle bir olay olabilir mi? makro içerisinde mesela sayı yada rakam yanındaki . yı baz alma gibi bir olay mümkünmüdür? değilse yapacak birşey yok manuel devam mümkünse makroyu rica edebilirmiyim? sizden?
__________________
VATANINI EN ÇOK SEVEN, GÖREVİNİ EN İYİ YAPANDIR.
nozang Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-01-2018, 07:15   #4
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: K.Maraş
Mesaj: 2,121
Excel Vers. ve Dili:
2010-2016
Varsayılan

Aşağıdaki şekilde yapmaya çalıştım. Ama yine de tam olmadı.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub askm_A()
Dim son As Long
son = Range("B" & Rows.Count).End(xlUp).Row
r = 1

For i = 1 To son
    Kelime = Split(Cells(i, 2), ".")
    For askm = LBound(Kelime) To UBound(Kelime)
        If IsNumeric(Right(Kelime(askm), 1)) = True Then
            Cells(r, 4) = Cells(r, 4) & " " & Kelime(askm)
        Else
            Cells(r, 4) = Cells(r, 4) & " " & Kelime(askm)
            r = r + 1
        End If
    Next askm
Next i

End Sub
__________________
excel 2010- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Eski 17-01-2018, 08:58   #5
nozang
Altın Üye
 
Giriş: 11/03/2010
Şehir: istanbul
Mesaj: 198
Excel Vers. ve Dili:
2010 tr
Thumbs up

Alıntı:
askm tarafından gönderildi Mesajı Görüntüle
Aşağıdaki şekilde yapmaya çalıştım. Ama yine de tam olmadı.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub askm_A()
Dim son As Long
son = Range("B" & Rows.Count).End(xlUp).Row
r = 1

For i = 1 To son
    Kelime = Split(Cells(i, 2), ".")
    For askm = LBound(Kelime) To UBound(Kelime)
        If IsNumeric(Right(Kelime(askm), 1)) = True Then
            Cells(r, 4) = Cells(r, 4) & " " & Kelime(askm)
        Else
            Cells(r, 4) = Cells(r, 4) & " " & Kelime(askm)
            r = r + 1
        End If
    Next askm
Next i

End Sub
Sayın askm; çok teşekkür ederim. İşime yaradı biraz daha gelişirse heralde süper bir program olacak.
__________________
VATANINI EN ÇOK SEVEN, GÖREVİNİ EN İYİ YAPANDIR.
nozang Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-01-2018, 09:00   #6
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: K.Maraş
Mesaj: 2,121
Excel Vers. ve Dili:
2010-2016
Varsayılan

Aklınıza bir fikir geliyorsa uygulamaya koymaya çalışalım.
__________________
excel 2010- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Eski 17-01-2018, 09:15   #7
nozang
Altın Üye
 
Giriş: 11/03/2010
Şehir: istanbul
Mesaj: 198
Excel Vers. ve Dili:
2010 tr
Lightbulb Teşekkür

Alıntı:
askm tarafından gönderildi Mesajı Görüntüle
Aklınıza bir fikir geliyorsa uygulamaya koymaya çalışalım.
Düşünüyorum Sn. askm;
ben pdften alıyorum bu dökümanları tek tek sarıya boyuyorum, sonra ipad e atıyorum ordan email summary yapıyorum

araştıra araştıra geldim bu noktaya,

mailden not defterine alıyorum, sonra *page* yapıp sayfa no ve gereksiz satırları excelde siliyorum, sonra f5 boşlukları sil yapıyorum. sonra not defteri sonra worde alıp tek tek birer boşluk bırakacak şekilde satır aşağıya alıyorum.
Başlıkları ve : olan başlıkları kırmızı yapıyorum manuel olarak . Çünkü bende dikkat eksikliği var yazılar içiçe cümleler içiçe geçtiğinde olaydan kopuyorum böyle anlamam daha kolay oluyor.

zaman kaybediyorum doğal olarak bunları düzenlerken.

yaptığınız makro süper; sadece wordde arada yani cümleden sonra sadece 1 satır boşluk olayı olsa muazzam olur benim için, büyük harfle yazılı olanlarda ve : olanlarda kırmızı renkli olursa dire okumaya başlayabilirim aradaki hataları kendim düzeltebilirim
aklıma gelen bu ALLAH kimseye dikkat eksikliği vermesin
__________________
VATANINI EN ÇOK SEVEN, GÖREVİNİ EN İYİ YAPANDIR.
nozang Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-01-2018, 09:26   #8
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: K.Maraş
Mesaj: 2,121
Excel Vers. ve Dili:
2010-2016
Varsayılan

"sadece wordde arada yani cümleden sonra sadece 1 satır boşluk olayı olsa muazzam olur benim için, büyük harfle yazılı olanlarda ve : olanlarda kırmızı renkli olursa dire okumaya başlayabilirim aradaki hataları kendim düzeltebilirim "
Bu kısmı excel üzerinde örnek dosyada iletirseniz yardımcı olmaya çalışırım.
__________________
excel 2010- türkçe
askm Çevrimiçi   Alıntı Yaparak Cevapla
Eski 17-01-2018, 09:55   #9
nozang
Altın Üye
 
Giriş: 11/03/2010
Şehir: istanbul
Mesaj: 198
Excel Vers. ve Dili:
2010 tr
Thumbs up Dosyaları ekledim.

Alıntı:
askm tarafından gönderildi Mesajı Görüntüle
"sadece wordde arada yani cümleden sonra sadece 1 satır boşluk olayı olsa muazzam olur benim için, büyük harfle yazılı olanlarda ve : olanlarda kırmızı renkli olursa dire okumaya başlayabilirim aradaki hataları kendim düzeltebilirim "
Bu kısmı excel üzerinde örnek dosyada iletirseniz yardımcı olmaya çalışırım.
Sayın askm;

İlgili dosyaları ekledim Excel ve word formatını. Bilgilerinize.
Ben formatı bu hale getiriyorum yani worddeki son hale ve çıktı alıyorum. böylece okuduklarımı bir şekilde hayal kurma olayına girmeden yada anahtar kelimeler ile bağlayabiliyorum.
Eklenmiş Dosyalar
Dosya Türü: doc ünite1.doc (25.0 KB, 4 Görüntülenme)
Dosya Türü: xlsx ünite1.xlsx (44.2 KB, 4 Görüntülenme)
__________________
VATANINI EN ÇOK SEVEN, GÖREVİNİ EN İYİ YAPANDIR.
nozang Çevrimdışı   Alıntı Yaparak Cevapla
Eski 17-01-2018, 11:18   #10
askm
Altın Üye
 
Giriş: 04/06/2005
Şehir: K.Maraş
Mesaj: 2,121
Excel Vers. ve Dili:
2010-2016
Varsayılan

Yazdığımız kodlar;
" Bankamızın, kredi limiti içinde kalmak şartıyla:
• bir veya birden fazla cari hesap açma,
• cari hesapların limitlerini azaltma veya çoğaltma,
• bakiyesi sıfıra inen cari hesapları yeniden çalıştırma,
• mevcut cari hesapları kapatarak istediği sayıda yeni cari hesap açma yetkisi bulunmaktadır."
satırını komple tekbir hücreye alacaktır. Zira arada ayrım yapmak için nokta yok.
Font rengini kırmızı yapmak için de genel bir kural yok.
__________________
excel 2010- türkçe
askm Çevrimiçi   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 09:36


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Rampa- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Şişli Avukat- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Çorlu Havuz- Çorlu Havuz- Çorlu Perde Yıkama- Okul Danışmanlık- ADR'li taşıma kabı imalatı- Mekanik Tesisat- Çorlu Grafik Tasarım- Çorlu Sondaj- Çorlu Etüt- Futbol Cafe- Beylikdüzü Temizlik- Çorlu Kurs- Çorlu Ders- İzmit Mimar- Hurda Bakır Kablo- Hurda Bakır Kablo- Çorlu Pronet- Çorlu Yönetim- Çorlu Apartman Yönetimi- Çorlu Marangoz- Çorlu Avukat- Çorlu Su Arıtma- Çorlu Kompresör- İstanbul İnşaat-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden