karakter saydırıp - ayırma

[CONANFORCE]

:yardim: arkadaşlar göderdiğim örnek dosyada A sütununda örnek kelimeler girdim kelimelerin karakter(harf) uzununluğuna bağlı olarak bunları B den başlamak üzre harf unluğuna göre dağıtmasını istiyorum yardım ederseniz sevinirim. simdiden kolay gelsin :yardim:

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

Sub aktar()
For a = 2 To [a65536].End(3).Row
sut = Len(Cells(a, "a"))
sat = Cells(65536, sut).End(3).Row + 1
Cells(a, "a").Cut Cells(sat, sut)
Next
End Sub

 

[Korhan Ayhan]

Selamlar,

Örnek dosyanızda B2 hücresine aşağıdaki formülü uyguladıktan sonra, sağa ve aşağıya doğru kopyalayıp denermisiniz.

=EĞER(UZUNLUK($A2)=SÜTUN();$A2;"")

 

[CONANFORCE]

çok teşekkür ederim ellerinize sağlık :hihoho: oldu

 

[CONANFORCE]

sorununu devamı

daha önce vermiş olduğunuz eğerli formülü girdim oldu
şimdiki sorum ise bunları aralarında boşluk yani örn: a7 hücersine yazdığım 7 harflik kelime daha önce 2 kere çıkmış olan yeti harflik kısmına aradaki boşlukları bırakarak yani formülün olduğu yere yazıyor bunu aralarda boşluk bırakmadan nasıl yapabilirim bu birinicisi
birde girdiğim kelimeden tekrar girersem almasın dicem sizde normalde yazarken size örnekleri gösterir diceksiniz fakat iki kelimelik örn: (ki ve ke yazılmış olsun ko yazrken k başlangılarını vermiyor)
birde size ne yapmak istediğimi tam açıklıyayım ben yeni kelimeleri ilk satıra sırasıyla eklemek istiyorum diğer sütunlarda ise bu kelimelerin yerlerine gitmesi ve benim daha sonra bu kelimeleri guruplandırıp çıktı almak istiyorum. bu işi en hızlı şekilde yapacak excel sayfasını yapmak istiyorum. uzattımda uzattım