yazı tipi boyutunu sabit tutma

[ccuneyt13]

bu konu ile gerçekten alakası varmış.
peki bunu sadece 3. satırda mı istiyorsunuz yoksa tüm kitap'ta mı istiyorsunuz

Tüm kitapta. şöle açıklıyayım ben bu tabloyu farklı kişilere gönderiyorum sadece başlık sabit. onlar güncel verileri girerek bana tekrar geri gönderiyolar. fakat ordan bişi kopyalıyolar burdan bişi yapıştırıyolar vs. tablo bana geri geldiğinde tanınmaz halde oluyor.

sayın hocam ben tüm kitapdaki(başlık hariç o zaten sabit) hücrelerin 3. satırdaki gibi olmasını ve farklı kullanıcılar farklı biçimlerde bişi yazsalar bile benim belirlediğim düzende kalmasını istiyorum.

zaten 3. satırdan itibaren ben en sona kadar biçimleri kopyalayarak diğer sütünlarada uyguladım ama değiştirilmesini engelleyemiyorum.

İlginize çok teşekkür ederim. Saygılar

 

[İhsan Tank]

Tüm kitapta. şöle açıklıyayım ben bu tabloyu farklı kişilere gönderiyorum sadece başlık sabit. onlar güncel verileri girerek bana tekrar geri gönderiyolar. fakat ordan bişi kopyalıyolar burdan bişi yapıştırıyolar vs. tablo bana geri geldiğinde tanınmaz halde oluyor.

sayın hocam ben tüm kitapdaki(başlık hariç o zaten sabit) hücrelerin 3. satırdaki gibi olmasını ve farklı kullanıcılar farklı biçimlerde bişi yazsalar bile benim belirlediğim düzende kalmasını istiyorum.

zaten 3. satırdan itibaren ben en sona kadar biçimleri kopyalayarak diğer sütünlarada uyguladım ama değiştirilmesini engelleyemiyorum.

İlginize çok teşekkür ederim. Saygılar

merhaba
sayfanın kod bölümüne kopyalayın

Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("A1")) Is Nothing Then Exit Sub
Range("B3:F1048576,H3:H1048576").Font.Bold = True
Range("B3:F1048576,H3:H1048576").Font.Name = "Arial"
Range("B3:F1048576,H3:H1048576").Font.Size = 18
Range("G3:G1048576,J3:K1048576,Q3:R1048576"). _
Font.Bold = False
Range("G3:G1048576,J3:K1048576,Q3:R1048576"). _
Font.Name = "Arial"
Range("G3:G1048576,J3:K1048576,Q3:R1048576"). _
Font.Size = 9
Range("I3:I1048576,U3:U1048576,W3:W1048576"). _
Font.Bold = False
Range("I3:I1048576,U3:U1048576,W3:W1048576"). _
Font.Name = "Arial"
Range("I3:I1048576,U3:U1048576,W3:W1048576"). _
Font.Size = 10
Range("L3:L1048576").Font.Bold = False
Range("L3:L1048576").Name = "Arial"
Range("L3:L1048576").Font.Size = 9
Range("L3:L1048576").NumberFormat = "m/d/yyyy"
Range("M3:M1048576,O3:O1048576,V3:V1048576"). _
Font.Bold = True
Range("M3:M1048576,O3:O1048576,V3:V1048576"). _
Font.Name = "Arial"
Range("M3:M1048576,O3:O1048576,V3:V1048576"). _
Font.Size = 18
Range("M3:M1048576,O3:O1048576,V3:V1048576"). _
NumberFormat = "#,##0.00"
Range("N3:N1048576,P3:P1048576").Font.Bold = False
Range("N3:N1048576,P3:P1048576").Font.Name = "Arial"
Range("N3:N1048576,P3:P1048576").Font.Size = 9
Range("N3:N1048576,P3:P1048576").NumberFormat = "#,##0.00"
Range("S3:S1048576").Font.Bold = False
Range("S3:S1048576").Name = "Arial"
Range("S3:S1048576").Font.Size = 12
Range("T3:T1048576").Font.Bold = False
Range("T3:T1048576").Name = "Arial"
Range("T3:T1048576").Font.Size = 12
Range("T3:T1048576").NumberFormat = "m/d/yyyy"
Cells.HorizontalAlignment = xlCenter
Cells.VerticalAlignment = xlCenter
Range("B3:W1048576").Borders.LineStyle = xlContinuous
Range("B3:W1048576").Borders.LineStyle = xlContinuous
End Sub

A1 hücresini seçtiğinizde otomatik düzenleme yapar

 

[ccuneyt13]

merhaba
sayfanın kod bölümüne kopyalayın....

İhsan Bey, ne kadar teşekkür etsem azdır. Elinize kolunuza sağlık. Baya uzun bi kodmuş hakkınızı helal edin çok zahmet verdik size.
Tekrar çok teşekkür ederim. Saygılar.

 

[İhsan Tank]

İhsan Bey, ne kadar teşekkür etsem azdır. Elinize kolunuza sağlık. Baya uzun bi kodmuş hakkınızı helal edin çok zahmet verdik size.
Tekrar çok teşekkür ederim. Saygılar.

rica ederim
:yazici: