birleştirilmiş hücrede belirlediğim yeri kalın yazmak.

[nihattt]

merhabalar ekteki dosyadaki "form" sayfasında belirlediğim yerdeki birleştirilmiş hücrede istediğim kısmın kalın diğerlerinin normal yazmasını istiyorum. baya uğraştım yapamadım.

Ağırlık: 1680 gr

gibi. "Ağırlık:" kalın olcak diğerleri normal.

VB kodlarıyla da olabilir varsa bir yöntem söyleyin lütfen.

 

[Serdar SELEN]

Peki bu hucrelerı bırlestırmeden yapsan olmuyormu. Yani A dan F ye kadar bırlestır agırlık kısmını oraya yaz. Diger hucrelerı bırlestır gerı kalan kısmı yaz

 

[nihattt]

hayır olmuyor bu dosyayı başka bir alanda kullanıyorum hücrelerini birleştirip word de. Eğer birleşik Hücre olmazsa birleştirdiğimde şunun gibi oluyor;

Ağırlık:
1680 gr

ama birleştirirsem;
Ağrlık: 1680 gr

ben yanyana yazsın istiyorum word de birleştirince. amacı sana tuhaf gelebilir ama bunu yapmanın tek yolu bu şekil oluyor. VB kodlarıyla da olabilir varsa bir yöntem söyleyin lütfen.

 

[halit3]

kod
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
a = Target.Row
b = Target.Column
If a = 11 Then
If b = 1 Then
Selection.Font.FontStyle = "Normal"
DEG1 = "AĞIRLIK : "
DEG2 = Worksheets("Sayfa1").Cells(98, 16).Value & " gr "
Worksheets(ActiveSheet.Name).Cells(a, b).Value = DEG1 & DEG2
SAYI1 = Len(DEG1)
SAYI2 = Len(Worksheets("Sayfa1").Cells(98, 16).Value) + 1
ActiveCell.Characters(Start:=1, Length:=SAYI1).Font.FontStyle = "Kalın"
End If
End If
End Sub


hücrenin içine gelin ve tıklayanız.

 

[nihattt]

çok teşekkür ederim ama tıklamadan yapmanın yolu yok mu acaba. bu istediğim şey ama kullanışsız. ben bunun gibi 25-30 satır daha yapacağım tek tek hücrelere tıklamam mı gerekecek.

 

[halit3]

aradaki virinin değişmesi için mutlaka bir işlim yapmanız gerekiyor ben örnek olsun diye hücreye tıklayınca işlem yaptırdım siz nasıl değişmesini isterdiniz.

 

[nihattt]

sayfa1 deki ağırlık kısmındaki bilgi değiştiği zaman form sayfasında da otomatik değişse daha iyi olur. veya sayfanın üzerine ilk gelindiği anda. ikisine de örnek verebilirseniz daha çok sevinirim.

 

[halit3]

ekli dosyanısı kontrol ediniz.

iki türlüde yaptım biri fazla hangisini kullanacaksanız onu kullanın

 

[nihattt]

ilki olmadı. ikiside kalın yazıyor. AĞIRLIK: 1250 gibi

 

[halit3]

dosya aşağıdaki mesajda

AĞIRLIK : 150

 

[nihattt]

çok teşekkür ederim. son bir şey daha soracağım bunun gibi 5 satır yapsam alt alta kod nasıl olacaktı(AĞIRLIK,BOY,ATEŞ,NABIZ,SOLUNUM gibi). çok mu uzun olurdu. yoksa aynı kod içinde bir takım eklemeler mi yapılacaktı.

 

[halit3]

her birirni sayı karekter sayısı farklı olacağı için yaklaşık herbirine ayrı ayrı kod uygulamak gerekir tabiki bu koda ilave yapmak şartıyla

 

[nihattt]

rica etsem koda biir ilave daha yapabilirmisiniz ben örneğe göre çoğaltabilirim. AĞIRLIK ve BOY olsa gerisini ben örneğe göre düzenlerdim.

 

[halit3]

form sayfası kod bölümüne bak 3 adet örnek var

 

[nihattt]

çok güzel olmuş. çok teşekkür ederim ilginiz için. son bir şey dedim ama bir şey daha sorsam anladığım kadarıyla form sayfasına gelince satırlar değişiyor. bunu şu şekilde ayarlayabilirmiyiz. Sayfa1 de değişiklik olunca değişiklikleri uygulasa. ben form sayfasına hiç girmeden çıktı almak istiyorum sayfa1 e buton koyup. bunu söylememin sebebi bu.

 

[halit3]

aşağıdaki mesajda dezeltilmiştir.

 

[nihattt]

bu aklıma gelmişti sorun çıkmaz inş. bu şekilde. tekrar çok teşekkür ederim halit bey.

 

[halit3]

iyi günler

 

[nihattt]

Farklı bir sorun ortaya çıktı şimdi de. Bu kısımlar boş bırakılsa bile AĞIRLIK: şeklinde boş atıyor. ben değer olmayınca hücre boş bırakılsın istiyordum. ağırlık değeri girilmezse yazıda çıkmasın istiyordum. normalde excelde bütünleşik if ile yapıyorumda vb kullandığımız için ordaki kodları tam bilmiyorum.

Aşağıdaki gibi denedim oldu bi incelerseniz sizde sevinirim. sayfa adını değiştirdim

Sheets("sgkepikriz2").Range("A17").Font.FontStyle = "Normal"
DEG3 = "BAŞ ÇEVRESİ : "
If Worksheets("Sayfa1").Cells(100, 16) = "" Then Worksheets("sgkepikriz2").Cells(17, 1).Value = "" Else Worksheets("sgkepikriz2").Cells(17, 1).Value = DEG3 & Worksheets("Sayfa1").Cells(100, 16).Value & " "
SAYI3 = Len(DEG3)
Sheets("sgkepikriz2").Range("A17").Characters(Start:=1, Length:=SAYI3).Font.FontStyle = "Kalın"
'----------------------------------------------------------------------------------------------

 

[halit3]

bu kodu denermisiniz

Sub yazdır()
Sheets("form").Select
'----------------------------------------------------------------------------------------------
If Worksheets("Sayfa1").Cells(98, 16).Value <> "" Then
Sheets("form").Range("A11").Font.FontStyle = "Normal"
deg1 = "AĞIRLIK : "
Worksheets("form").Cells(11, 1).Value = deg1 & Worksheets("Sayfa1").Cells(98, 16).Value & " "
Sheets("form").Range("A11").Characters(Start:=1, Length:=Len(deg1)).Font.FontStyle = "Kalın"
Else
Worksheets("form").Cells(11, 1).Value = ""
End If
'----------------------------------------------------------------------------------------------
If Worksheets("Sayfa1").Cells(99, 16).Value <> "" Then
Sheets("form").Range("A14").Font.FontStyle = "Normal"
deg2 = "BOY : "
Worksheets("form").Cells(14, 1).Value = deg2 & Worksheets("Sayfa1").Cells(99, 16).Value & " "
Sheets("form").Range("A14").Characters(Start:=1, Length:=Len(deg2)).Font.FontStyle = "Kalın"
Else
Worksheets("form").Cells(14, 1).Value = ""
End If
'----------------------------------------------------------------------------------------------
If Worksheets("Sayfa1").Cells(100, 16).Value <> "" Then
Sheets("form").Range("A17").Font.FontStyle = "Normal"
deg3 = "BAŞ ÇEVRESİ : "
Worksheets("form").Cells(17, 1).Value = deg3 & Worksheets("Sayfa1").Cells(100, 16).Value & " "
Sheets("form").Range("A17").Characters(Start:=1, Length:=Len(deg3)).Font.FontStyle = "Kalın"
Else
Worksheets("form").Cells(17, 1).Value = ""
End If
'----------------------------------------------------------------------------------------------
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Sheets("Sayfa1").Select
End Sub