Kelime ve Format değiştirme sorunu

[lityum]

İyi günler,


Benim yapmak istediğim konuaslıda basit gibi görünüyor ancak bir çözüm bulamadım.


Bir sisemden Excel şablonundabir rapor alıyorum ve bir makro çalıştırarak bunu nihai rapor haline getiiryorum. Ancak sistemden aldığım raporda enter ile alt satıra geçtiğim alanlar siliniyor. Ama raporda alt satırda olması gereken yerler hep aynı şekilde başlıyor. s

Örnek olarak aldığımm rapor şu şekilde;

Kriter: xxxxxxxxxxxxxxxxxxxxxxx Tespit:yyyyyyyyyyyyyyyyyyyyyyyy Sebep: zzzzzzzzzzzzzzz Etki: ttttttttttttttttttttttttt

Ancak benim istediğim raporda aşağıdaki şekilde olması,

Kriter: xxxxxxxxxxxxxxxxxxxxxxx

Tespit:yyyyyyyyyyyyyyyyyyyyyyyy

Sebep: zzzzzzzzzzzzzzz

Etki: ttttttttttttttttttttttttt


Find ile denedim o zaman tüm kelimeleri bold yapıyor ve enterla alt satıra inemedim.

Yardımcı olabilriseniz çok sevinirm

 

[Ömer]

Merhaba,

Küçük bir örnek dosya ile olmasını istediğiniz düzenide tabloda manuel hazırlayıp eklermisiniz.

.

 

[lityum]

Örnek Dosyayı ekledim
Teşekkürler

 

[abonem]

Demek istediğinizi tam olarak anlamadım ama hücre içinde alt satıra inmek için alt + enter kullanınız ...

İyi Çalışmalar...

 

[lityum]

evet zaten bende onu makro ile yapmaya çalışıyorum.
sistemden aldığım rapor tek hücre değil bu şekilde birden çok hücre var ve her seferinde bu raporu oluşturmak çok vakit alıyor.

O yüzden makro kullanarak bu işi yapmaya çalışıyroum

 

[Ömer]

Kriter:
Tespit:
Etki ve Riskler:
Sebep:

Başlıklar sabit mi (yukardakiler mi) yoksa değişken mi? Ek olarak ":" lar başlıklara bitişik mi oluyor.

.

 

[Necdet]

Merhaba,

Ömer beyin belirtiği başlıklar eğer birden fazla sözcük içeriyorsa bunları da kodun içinde belirtmek gerek.

Kod içinde boşluk karakterine göre sözcüklere ayırma işlemi yapılıyor, başlığın kaybolma riski var. Bu yüzden başlık olabilecek sözcüklerin arasını boşluk karakteri değil Alt+0160 karekteri ile birleştiriliyor ki tek sözcükmüş gibi işlem yapılabilsin.

Ayrıca Başlıklardaki ":" nin bitişik yazıldığı varsayılmıştır.

Sub Duzenle()
    Dim i   As Long, _
        j   As Integer, _
        Bs  As Integer, _
        Uz  As Integer, _
        s, _
        Mtn As String
    
    Application.ScreenUpdating = False
    
    Columns("A:A").Replace What:="Etki ve Riskler", Replacement:="Etki ve Riskler", _
        LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
        False, ReplaceFormat:=False
        
    For i = 2 To Cells(Rows.Count, "A").End(xlUp).Row
    
        s = Split(Cells(i, "A"), " ")
        Mtn = ""
        
        For j = 0 To UBound(s)
            If s(j) Like "*:" And j > 0 Then Mtn = Mtn & Chr(10) & Chr(10)
            Mtn = Mtn & " " & s(j)
        Next j
        
        Cells(i, "A") = Mtn
        s = Split(Cells(i, "A"), " ")
        For j = 0 To UBound(s)
            If s(j) Like "*:" Then
                Uz = Len(s(j))
                Bs = InStr(1, Cells(i, "A"), s(j), vbTextCompare)
                Range("A" & i).Characters(Bs, Uz).Font.Bold = True
            End If
        Next j
    Next i
    Application.ScreenUpdating = True
    
    MsgBox "İşlem Tamamdır.....", vbInformation, "N. YEŞERTENER -- [URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
End Sub

 

[lityum]

Çok teşekkürler,

Başlıklar sabit hep bu başlıklar var,
ayrıca genel olarak ":" bitişik yazılıyor,

bu ekteki maro gayet güzel hazırlanmış ve : noktadan öncesini başlık olarak alıyor. Ama normalde başlıklar sabit

 

[Necdet]

Güle güle kullanınız.