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 12-02-2018, 19:47   #1
talatgorkem
 
Giriş: 02/10/2016
Şehir: İZMİR
Mesaj: 24
Excel Vers. ve Dili:
.
Varsayılan kod uzunluğu en fazla kaç karakter olur

merhaba arkadaşlar
yazılan bir kodun ez uzun karakter sayısı kaç olabilir ?
[ ] içerisinde uzun bir kod ise alt satırda devam etmesi için ne yapmak gerekir ?

örn.
[C2] = [B11&" "&C11&" "&D11&" "&B12&" "&C12&" "&D12&" "&B13&" "&C13&" "&D13&" "&B14&" "&C14&" "&D14&" "&B15&" "&C15&" "&D15&" "&B16&" "&C16&" "&D16&" "&B17&" "&C17&" "&D17&" "&B18&" "&C18&" "&D18&" "&B19&" "&C19&" "&D19&" "&B20&" "&C20&" "&D20&" "&B21&" "&C21&" "&D21&" "&B22&" "&C22&" "&D22&" "&B23&" "&C23&" "&D23&" "&B24&" "&C24&" "&D24&" "&B25&" "&C25&" "&D25&" "&B26&" "&C26&" "&D26&" "&B27&" "&C27&" "&D27&" "&B28&" "&C28&" "&D28&" "&B29&" "&C29&" "&D29&" "&B30&" "&C30&" "&D30&" "&B31&" "&C31&" "&D31&" "&B32&" "&C32&" "&D32&" "&B33&" "&C33&" "&D33&" "&B34&" "&C34&" "&D34&" "&B35&" "&C35&" "&D35&" "&B36&" "&C36&" "&D36&" "&B37&" "&C37&" "&D37&" "&B38&" "&C38&" "&D38&" "&B39&" "&C39&" "&D39&" "&B40&" "&C40&" "&D40&" "&B41&" "&C41&" "&D41&" "&B42&" "&C42&" "&D42&" "&B43&" "&C43&" "&D43&" "&B44&" "&C44&" "&D44&" "&B45&" "&C45&" "&D45&" "&B46&" "&C46&" "&D46&" "&B47&" "&C47&" "&D47&" "&B48&" "&C48&" "&D48&" "&B49&" "&C49&" "&D49&" "&B50&" "&C50&" "&D50&" "&B51&" "&C51&" "&D51&" "&B52&" "&C52&" "&D52&" "&B53&" "&C53&" "&D53&" "&B54&" "&C54&" "&D54&" "&B55&" "&C55&" "&D55&" "&B56&" "&C56&" "&D56&" "&B57&" "&C57&" "&D57&" "&B58&" "&C58&" "&D58&" "&B59&" "&C59&" "&D59&" "&B60&" "&C60&" "&D60]

eğer bu kod un kısa bir yolu var mıdır ???

zaman ayırdığınız için şimdiden teşekkür ediyorum
talatgorkem Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-02-2018, 20:47   #2
talatgorkem
 
Giriş: 02/10/2016
Şehir: İZMİR
Mesaj: 24
Excel Vers. ve Dili:
.
Varsayılan

Ben şimdilik şu şekilde bir çözüm yolu üretebildim;
parçalara birleştirip parçaları da istenen hücrede toplamak gibi

Sub ABC()
[E11] = ["ARAŞTIRMA EKİBİ "&B11&" "&C11&" "&D11&" "&B12&" "&C12&" "&D12&" "&B13&" "&C13&" "&D13&" "&B14&" "&C14&" "&D14&" "&B15&" "&C15&" "&D15&" "&B16&" "&C16&" "&D16&" "&B17&" "&C17&" "&D17&" "&B18&" "&C18&" "&D18&" "&B19&" "&C19&" "&D19&" "&B20&" "&C20&" "&D20]
[E12] = [B21&" "&C21&" "&D21&" "&B22&" "&C22&" "&D22&" "&B23&" "&C23&" "&D23&" "&B24&" "&C24&" "&D24&" "&B25&" "&C25&" "&D25&" "&B26&" "&C26&" "&D26&" "&B27&" "&C27&" "&D27&" "&B28&" "&C28&" "&D28&" "&B29&" "&C29&" "&D29&" "&B30&" "&C30&" "&D30]
[E13] = [B31&" "&C31&" "&D31&" "&B32&" "&C32&" "&D32&" "&B33&" "&C33&" "&D33&" "&B34&" "&C34&" "&D34&" "&B35&" "&C35&" "&D35&" "&B36&" "&C36&" "&D36&" "&B37&" "&C37&" "&D37&" "&B38&" "&C38&" "&D38&" "&B39&" "&C39&" "&D39&" "&B40&" "&C40&" "&D40]
[E14] = [B41&" "&C41&" "&D41&" "&B42&" "&C42&" "&D42&" "&B43&" "&C43&" "&D43&" "&B44&" "&C44&" "&D44&" "&B45&" "&C45&" "&D45&" "&B46&" "&C46&" "&D46&" "&B47&" "&C47&" "&D47&" "&B48&" "&C48&" "&D48&" "&B49&" "&C49&" "&D49&" "&B50&" "&C50&" "&D50]
[E15] = [B51&" "&C51&" "&D51&" "&B52&" "&C52&" "&D52&" "&B53&" "&C53&" "&D53&" "&B54&" "&C54&" "&D54&" "&B55&" "&C55&" "&D55&" "&B56&" "&C56&" "&D56&" "&B57&" "&C57&" "&D57&" "&B58&" "&C58&" "&D58&" "&B59&" "&C59&" "&D59&" "&B60&" "&C60&" "&D60]
[C2] = [E11&" "&E12&" "&E13&" "&E14&" "&E15]
Range("E11:E15").ClearContents

End Sub

Ama varsa daha kolay bir yöntem okuyanlara da bir yardımı olur

tekrar teşekkür ediyorum
talatgorkem Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-02-2018, 21:17   #3
Tevfik_Kursun
Altın Üye
 
Giriş: 30/07/2012
Şehir: Antakya
Mesaj: 1,195
Excel Vers. ve Dili:
2010 - Türkçe 64 Bit
Varsayılan

Merhaba,
Gördüğüm kadarıyla siz burada birleştirme yapıyorsunuz. Kod içinde verdiğim KTF yi deneyin, isterse 10000 hücre olsun farketmez.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Function birleştirme(hedef As Range, Optional ayırac As String = " ") As String
    Dim alan As Range
    Dim sonuc As String
      For Each alan In hedef
        If alan.Value <> "" Then
            sonuc = sonuc & ayırac & alan.Value
        End If
    Next alan
    If sonuc <> "" Then
        sonuc = Mid(sonuc, Len(ayırac) + 1)
    End If
    birleştirme = sonuc
End Function
ilk mesajınızda yazdıklarınız ile yaptığınızı Birleştirme(B11 : D60) ifadesi ile elde edebilirsiniz.
Yukarıdaki KTF (Kullanıcı Tanımlı Fonksiyon) yi lütfen Module ün içine kopyalayınız. (Alt + F11 e basıp gelen ekranda Insert maddesini açıp orada Module e basınız)
İyi çalışmalar

Bu mesaj en son " 12-02-2018 " tarihinde saat 21:32 itibariyle Tevfik_Kursun tarafından düzenlenmiştir....
Tevfik_Kursun Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-02-2018, 20:18   #4
talatgorkem
 
Giriş: 02/10/2016
Şehir: İZMİR
Mesaj: 24
Excel Vers. ve Dili:
.
Varsayılan

Tevfik bey teşekkür ediyorum gerçekten zaman ayırıp bakmışsınız

yalnız ben function nasıl aktif hale geliyor bilmiyorum

aslında çok karmaşık olmuş şimdi fark ettim - yapmak istediğim;

BUTONA BASTIĞIM ZAMAN
B6=C8+B10+C10+D10 ve devamında da B11+C11+D11 şeklinde ilerlesin ta ki son dolu hücreye kadar - böyle bir seçenek olursa benim için mükemmel olur ama bulamadım

şu an en çok yaklaştığım for to next e cells ile yan yana toplamak oldu yani hepsini yan yana topluyorum sonrasında da toplanan yazıların alt alta toplanmasını ve sonucun tek bir hücredeki metin haline gelmesini planlıyorum ama hala alt alta hücreleri birleştirme konusunda bir şey bulamadım

ilginiz emeğiniz için ayrıca teşekkür ediyorum
talatgorkem Çevrimdışı   Alıntı Yaparak Cevapla
Eski 14-02-2018, 21:54   #5
Tevfik_Kursun
Altın Üye
 
Giriş: 30/07/2012
Şehir: Antakya
Mesaj: 1,195
Excel Vers. ve Dili:
2010 - Türkçe 64 Bit
Varsayılan

Merhaba Arkadaşım,
Şaka yaptığınızı düşünüyorum. Siteye yada DosyaTC ye örnek ekleyin hemen çözümleyelim. Mesajımda nasıl yapılacağını da göstermişim, bir daha yazıyorum =Birleştirme(B11 : D60) nereye kadarını nereye istiyorsanız getirir bu formül. Makro aramaya gerek yok. Böylelikle uzunluk mefhumu da ortadan kalkmış olur.
Kolay gelsin
Tevfik_Kursun Ç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 11:48


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- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Perde- Çorlu Havuz- Çorlu Havuz- Makina- Danışmazlar- Çorlu Perde Yıkama- Çorlu Perde Yıkama- Okul Danışmanlık- Çorlu Ayakkabı- İzmit Sigorta- ADR'li taşıma kabı imalatı- Mekanik Tesisat- Çorlu Grafik Tasarım-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden