hücreyi belli bir yerden bölme ama boşluğa göre

[badtr]

selam arkadaşlar,

sorunum şu bir hücrede 50 karakterlik metin var, bunu 35 karakterlik bir hücreye kalanını yandaki hücreye yazmak istiyorum, sorun şurada 35 karakterlik ilk hücreyi aldığımda eğer 35. karakter kelimeye denk geliyorsa kelimenin başını bulacak ve oradaki boşluktan bölecek.

okanali feyza mustafa abdulkadir berke murat bu hücreyi bölmek istiyorum ama 35. karakter berke nin tam ortasına geldiğinden berke den önceki boşluktan bölecek berkeyi ikinci hücreye yazacak ki kelime anlamları bozulmasın

nerde kullalacağımıda söyliyeyim, bil. programımızda adres satırı var bunları başka bir programa atacağız ama orada adres iki hücreden oluşuyor ve max. uzunluk 35 karakter. adresidirekt 35. hücreden böldüğümüzde ortadaki kelimenin anlamının bozulmamasını istiyoruz.

ilginiz için şimdiden teşekkürler

 

[hımmmmmmmm]

aşağıdaki çalışma 10 satırlık cümleyi böler ... buradaki kotlardan istifade edin..

Private Sub CommandButton1_Click()
For I = 1 To 10

HUCRE1 = "": HUCRE2 = ""
   CUMLE = Cells(I, 1).Value               'cümle alınıyor
   If CUMLE = "" Then GoTo DEVAM
   HX = Mid(CUMLE, 1, 35)                  'Cümlenin İlk 35 harfi
   If Trim(Mid(HX, 35, 1)) = "" Then      'Boşluğa denk geldi
              HUCRE1 = Trim(HX)
              HUCRE2 = Trim(Mid(CUMLE, Len(HX) + 1, Len(CUMLE)))
      Else:
          
          For K = Len(HX) To 1 Step -1             'Boşluğa denk gelmedi
            If Trim(Mid(HX, K, 1)) = "" Then         'Geriye boşluk ara
              HUCRE1 = Trim(Mid(CUMLE, 1, K))  
              HUCRE2 = Trim(Mid(CUMLE, K, Len(CUMLE)))
              GoTo DEVAM
             End If
          Next K
   End If
 
DEVAM:
Cells(I, 2).Value = HUCRE1
Cells(I, 3).Value = HUCRE2
Next I
End Sub

 

[badtr]

çok sağol ama senden bir şey daha isteyebilirmiyim zahmet olmassa
birincisi bu 2003 ofisde çalışmadı bu kodu 2003 göre ayarlama şansın varmı yok ise 2010 olan bir bilgisayar bulmaya çalışacağım

ikinciside bu kod 35 karakterlik 3 sutunada bölebilirmi ana metin 105 karaktere çıkanları varmış

 

[badtr]

kod 2003 tede çalıştı teşekkür ederim