excelde içeriği değiştirmeden sütun birleştirme

Kodla Büyü
Y

ybilgin

Seçkin Üye
Seçkin Üye
Mesajlar
570
arkadaşlar tübitak için sözlük hazırlıyoruz. excelde hazırlanmış yaklaşık 2000 kelime var. bütün kelimeler ve açıklamalar normal yazılmış. kelimelerin koyu açıklamaların normal olmasını istiyoruz. veri- metni sütunlara dönüştürden 2 sutuna ayırıp ilk hücreyi kalın yapıp iki hücreyi birleştirdim ama ya ikisi de kalın oluyor ya da ikiside normal oluyor. örnek kapı: açıklaması şeklinde yapmak istiyorum.
 
Hocam bütün kelimelerinizde ayraç olarak : kullanmışsanız aşağıdaki kod işinizi görecektir.
Sub KoyuYaz()

Dim i As Long, _
k As Integer


Application.ScreenUpdating = True

For i = 1 To Cells(Rows.Count, "A").End(3).Row
k = InStr(1, Cells(i, "A"), Chr(58), vbTextCompare)
If k > 0 Then
Cells(i, "A").Characters(0, k).Font.Bold = True
End If
Next i

Application.ScreenUpdating = True

End Sub
Genişletmek için tıkla ...
 
makro ile yapmayı denediniz mi ?
Kod: 
Dim i As Integer
Dim a As String
For i = 1 To 20
a = Cells(i, 2) + " " + Cells(i, 3)
Cells(i, 4) = a
poz = InStr(a, Cells(i, 3))
If poz > 0 Then
Cells(i, 4).Characters(poz, Len(a) - poz + 1).Font.Bold = True
End If
Next i
 
beyisoy' Alıntı:
makro ile yapmayı denediniz mi ?
Kod: 
Dim i As Integer
Dim a As String
For i = 1 To 20
a = Cells(i, 2) + " " + Cells(i, 3)
Cells(i, 4) = a
poz = InStr(a, Cells(i, 3))
If poz > 0 Then
Cells(i, 4).Characters(poz, Len(a) - poz + 1).Font.Bold = True
End If
Next i
Genişletmek için tıkla ...

bu kodu nasıl kullanmam gerekiyor arkadaşlar makro oluşturdum ama bir şey gelmedi. Tek hücreyi iki hücre yaptıktan sonra mı kullanmam gerekiyor.
 
b2 de kelime c2 de açıklaması olacak c3den itibaren birleştirerek yazacak hocam
 

Ekli dosyalar

  • cevap.png
    cevap.png
    5.3 KB · Görüntüleme: 88
beyisoy' Alıntı:
b2 de kelime c2 de açıklaması olacak c3den itibaren birleştirerek yazacak hocam
Genişletmek için tıkla ...
hocam dikkatimden kaçmış biz kelimelerin kalın, açıklamaların normal olmasını istiyoruz bir de hocam renk ekleyebilir miyiz. Hem kalın hem renkli olacak şekilde teşekkür ederim.
 
şu kodları deneyin.
Kod: 
Dim i As Integer
Dim a As String
For i = 2 To 20
    a = Cells(i, 2) + " " + Cells(i, 3)
    Cells(i, 4) = a
    uz = Len(Cells(i, 2))
   
    'Kalın ve Renkli olması gereken kısım
    Cells(i, 4).Characters(1, uz).Font.Bold = True
    Cells(i, 4).Characters(1, uz).Font.Color = vbRed
   
    'Normal olması gereken kısım
    Cells(i, 4).Characters(uz + 1, Len(a)).Font.Bold = False
    Cells(i, 4).Characters(uz + 1, Len(a)).Font.Color = vbBlack
   
Next i
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst