Tek tıkla sayfa biçimlendirme

[muratgunay48]

Aslında excel'e yeni başlamıyorum. Konuyu açacak uygun yer bulamadım.
Şöyle ki, biz iş yerinin adresinden her gün excel liste indiriyoruz. Bizim indirdiğimiz liste tabi ki biçimsiz oluyor.
Tek tıkla, işte birinci sütun silinecek, ilk satır 24 font olacak. Satır yükseklikleri 30 olacak.
Yani bir nevi photoshoptaki action gibi olacak.
Bu mümkün mü.

Şimdiden teşekkür ederim.
Elinize emeğinize sağlık.

 

[tugkan]

Merhaba,
Mümkün.
İstediğinizin tamamı bu kadar mı yoksa başka biçimlendirmeler de istiyor musunuz?
Örnek dosya eklerseniz. Daha sağlıklı olur.

 

[muratgunay48]

Merhaba,
Mümkün.
İstediğinizin tamamı bu kadar mı yoksa başka biçimlendirmeler de istiyor musunuz?
Örnek dosya eklerseniz. Daha sağlıklı olur.

Bu kadar değil. Aşırı çok da değil. Örnek dosya iş yerinde. Yarın gönderebilirim. Makro'lu falan bir şey mi. Çünkü makroları henüz bilmiyorum.

 

[tugkan]

İstediğiniz bütün değişikleri yazın. Ona göre yarın bakalım


GT-N7100 cihazımdan Tapatalk kullanılarak gönderildi

 

[Korhan Ayhan]

Eğer excel dosyanızın satır ve sütunları sabitse makro kaydet ile kendinizde yapabilirsiniz.

Nette arama yaparsanız nasıl uygulandığı konusunda bilgiye ulaşabilirsiniz.

 

[tugkan]

Eğer excel dosyanızın satır ve sütunları sabitse makro kaydet ile kendinizde yapabilirsiniz.

Nette arama yaparsanız nasıl uygulandığı konusunda bilgiye ulaşabilirsiniz.

Korhan hocam bütün sihri bozdun ) aynısını ben yapacaktım.
Arkadaş makroları bilmiyorum deyince telefondan tarif etmek de zor geldi

GT-N7100 cihazımdan Tapatalk kullanılarak gönderildi

 

[muratgunay48]

Bir tane taslak excel nasıl gönderebilirim.

 

[Ömer BARAN]

Merhaba.

Örnek belge özellikleri ve örnek belge yükleme yöntemine ilişkin kısa açıklama cevabımın altındaki İMZA bölümünde var.
Örnek belgenizin, gerçek belgeyle aynı yapıda olmasına ve gerçek belgedeki verileri temsil edebilecek nitelikte veriler içermesine özen gösteriniz.
Gerçek belgenizde veri alanının her zaman aynı olup olmadığını, değişkense neye göre değiştiğini mutlaka belirtin.
Amaç işlem yapılacak veri alanının tespit edilmesini sağlamak.
.

 

[muratgunay48]

Eğer excel dosyanızın satır ve sütunları sabitse makro kaydet ile kendinizde yapabilirsiniz.

Nette arama yaparsanız nasıl uygulandığı konusunda bilgiye ulaşabilirsiniz.

http://www.mediafire.com/file/1amben4j8tnkqk9/taslak.xls/file

Hocam bu örnek dosya. Sütun genişliği önemli. Font büyüklüğü önemli.
Sitemizden dosyayı indirince bu formatta olsun istiyorum.
Şimdiden teşekkür ederim.

 

[muratgunay48]

Bu kadar değil. Aşırı çok da değil. Örnek dosya iş yerinde. Yarın gönderebilirim. Makro'lu falan bir şey mi. Çünkü makroları henüz bilmiyorum.

http://www.mediafire.com/file/1amben4j8tnkqk9/taslak.xls/file

Hocam bu örnek dosya. Sütun genişliği önemli. Font büyüklüğü önemli.
Sitemizden dosyayı indirince bu formatta olsun istiyorum.
Şimdiden teşekkür ederim.

Not: aynı yazıyı hocama da yolladım.

 

[Ömer BARAN]

Keşke ayrı bir örnek belgede veya ayrı bir sayfada da verinin ham hali (indirdiğiniz hali) de olsaydı.
Bu haliyle neye göre işlem yapılacak? Verinin indirildiği yer herkese açık bir internet sayfazı mıdır yoksa belli kullanıcı adı şifre vs.
ile girilebilen sayfa mıdır onu da bilemiyoruz?
Belgenizde bir'den fazla sayfa var, indirdiğiniz belgede de durum böyle midir yoksa TÜMÜ isimli sayfaya verileri indiriyorsunuz da ardın mı biçimlendirme ve sayfalara ayrıştırma işi yapıyorsunuz belli değil. Biraz daha detay bilgi vermelisiniz bence.

 

[Ömer BARAN]

Aşağıdaki kod bloku, TÜMÜ isimli sayfayı istenildiği şekilde biçimlendirir.

Sub BICIMLER()
Set t = Sheets("Tümü"): son = t.Cells(Rows.Count, 1).End(3).Row
With t
    .Cells.Interior.Color = xlNone: .Range("A1:G" & son).Borders.LineStyle = xlNone
    .Range("A1:G1").Interior.Color = 16764057: .Range("A1:G" & son).Borders.LineStyle = xlContinuous
    .Range("A1:G" & son).Font.Name = "Arial": .Range("A1:G" & son).Font.Size = 10
    .Range("A1:G" & son).HorizontalAlignment = xlGeneral: .Range("A1:G" & son).VerticalAlignment = xlCenter
    .Columns("A:A").ColumnWidth = 4.14: .Columns("B:B").ColumnWidth = 16.57
    .Columns("C:C").ColumnWidth = 15.43: .Columns("D:D").ColumnWidth = 30.86
    .Columns("E:E").ColumnWidth = 56.14: .Columns("F:F").ColumnWidth = 24.57
    .Columns("G:G").ColumnWidth = 11.86: .Rows.AutoFit
End With
End Sub