Kayıt Tarihi: 01.08.2011
Toplam 36 konu açtı.
Toplam 118 yorum yaptı.
Toplam
0
puanı bulunmakta.
Beğeniler: 0 / 0
Merhaba arkadaşlar. Benim sormak istediğim şu: sayfa1 de a3 hücresine ornegin 30 yazdigimda sayfa2 de a3 hücresinde birleştir formülü ile "Bu işin suresi 30 takvim günüdür." cümlesini yazdiriyorum. Fakat bu cümlede 30 sayısının koyu hafle yazılmasını istiyorum. Bunu hangi formül ile yapabilirim? Yardımcı olursanız sevinirim arkadaşlar.
Kayıt Tarihi: 17.04.2009
Toplam 73 konu açtı.
Toplam 282 yorum yaptı.
Toplam
0
puanı bulunmakta.
Beğeniler: 0 / 1
merhaba
bu işi formül ile yapmak mümkün değildir diye düşnüyorum.
Alttakine benzer bir kod kullanman gerekir..
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("H2").Font.Bold = True Then
Range("S2").Font.Bold = True
If Range("I2").Font.Bold = True Then
Range("T2").Font.Bold = True
End If
End If
End Sub
Kayıt Tarihi: 17.04.2009
Toplam 73 konu açtı.
Toplam 282 yorum yaptı.
Toplam
0
puanı bulunmakta.
Beğeniler: 0 / 1
merhaba
bu kodu kendi dosyanda uyarlaman gerek.
Public Sub Birlestir()
[C6] = [C5] & "-" & [D5] & "-" & [E5] & "-" & [F5] & "-" & [G5] & "-" & [H5]
i = 5
j = 3
For j = j To 8
If Cells(i, j).Font.ColorIndex > 0 Then
Renk = Cells(i, j).Font.ColorIndex
Bas = (j - 2) * 3 - 1
If j = 1 Then
Uz = 3
Else
Uz = 2
End If
With Range("C6").Characters(Bas, Uz).Font
.Bold = True
.ColorIndex = Renk
End With
End If
Next j
End Sub
