yazı tipi boyutunu sabit tutma

ccuneyt13

Altın Üye
Katılım
20 Ocak 2011
Mesajlar
467
Excel Vers. ve Dili
Office 365 Türkçe (64 bit)
Altın Üyelik Bitiş Tarihi
01-11-2026
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

Misafir
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
Kod:
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

Altın Üye
Katılım
20 Ocak 2011
Mesajlar
467
Excel Vers. ve Dili
Office 365 Türkçe (64 bit)
Altın Üyelik Bitiş Tarihi
01-11-2026
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

Misafir
İ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:
 
Üst