Satır ve sütunları ayarlama

[hakki83]

Merhaba arkadaşlar
Satır ve sütun ayarlama kodlarını doğru yazamadım. İkinci satırlar hatalı oldu. İki örnek ekliyorum

 

[ÖmerFaruk]

Satır ve sütunlarınız için aşağıdakilerden faydalanabilirsniz.

Rows("2:" & Cells(Rows.Count, 1).End(3).Row + 1).AutoFit

ActiveSheet.UsedRange.EntireColumn.AutoFit
Columns(1).ColumnWidth = 20

 

[hakki83]

Teşekkür ederim
Satır için olanı denedim, fakat 2. satırdan itibaren diğerlerinde bir daralma olmadı

 

[ÖmerFaruk]

Rows("2:" & Cells(Rows.Count, 1).End(3).Row + 1).AutoFit

Kırmızı yer A sütununu ifade eder. Sizin A sütununda veriniz yok.

Şöyle de yapabilirsiniz.
Cells.SpecialCells(xlCellTypeVisible).EntireRow.AutoFit
Rows(1).RowHeight = 50

 

[hakki83]

A sütununa veri yazdım yine olmadı
Satırları ayarlayabilmek için A sütununda veri olması gerekiyor mu hocam, anlayamadım doğrusu


Şöyle tekrar izah edeyim

İlk dosya için:
Birinci satırı kendi istediğim ölçüye ayarlamak
İkinci satırdan itibaren gerisini autofit yapmak

İkinci dosya için:
İlk sütunu kendi istediğim ölçüye ayarlamak
İkinci sütundan itibaren gerisini autofit yapmak

 

[hakki83]

2. Mesajınızdaki kodu yapıştırdım
A sütununa veri de ekledim
Fakat satırlar ayarlanmadı.

 

[ÖmerFaruk]

Rows("2:" & Cells(Rows.Count, 1).End(3).Row + 1).AutoFit
Bu kod 2.satırdan A sütununda kullanılan son satırın bir alt satırına kadar işlem yapar.
Sizin A sütununda veri yazdığım dediğiniz hücre A3 olduğu için 2:4 arasında işlem yapar.

Siz 2. satır ile son satır arasını AutoFit yapacaksanız, #4 nolu mesaja ilave yapmıştım. Siz o şekilde kullanın.

Cells.SpecialCells(xlCellTypeVisible).EntireRow.AutoFit
Rows(1).RowHeight = 50

 

[hakki83]

ÖmerFaruk hocam merhaba

Örnek dosyaya göre
Birinci satır hariç, yedinci satıra kadar olan satırların yüksekliğini autofit olarak ayarlayacak nasıl bir kod yazabilirsiniz?

Ama yedinci satırın altındakilerin satır yüksekliğine müdahale etmemesi lazım hücreler boş olduğu için.


Sadece üç satırda veri olduğu için, 3. 5. ve 7. satırlar da autofit olabilir
3 den 7 ye kadar olanların (aradakiler dahil) onlar da autofit olabilir)
Eğer mümkünse iki kodu da ayrı olarak denemek isterim.

 

[ÖmerFaruk]

Aşağıdaki kod 1.satırı 50, 3-5-7.satırları AutoFit yapar

Sub Satırlar()
    Rows(1).RowHeight = 50
    Range("A3,A5,A7").EntireRow.AutoFit
End Sub

Aşağıdaki ise 1.satırı 50, 3-4-5-6-7. satırları AutoFit yapar

Sub Satırlar()
    Rows(1).RowHeight = 50
    Range("A3:A7").EntireRow.AutoFit
End Sub

 

[hakki83]

Teşekkür ederim
Anladığım kadarıyla sadece dolu olan satırların yüksekliğini veya sadece dolu olan sütunların genişliğini autofit yaptırmanın bir yolu yok.

Çünkü ya hücreler seçilip kod ayarlanıyor, ya da hepsine uygulanıyor. İkisinden biri.
Zira bu bir örnek dosyaydı. Gerçek dosyada heryerde veri olabilir, ve verilerin yeri her zaman değişebilir. Bu yüzden her zaman her seferinde hücre aralıklarını kodlara yazmak, uğraştırıcı olacaktır. Elle menüden ayarlamak daha kolay olur bu durumda.

Gerçek dosyalarda olmasını istediğim şeyi yapamayacağımı anladım. Boş olan satır ve sütunların boyutlarının değişmemesi gerekiyor.

Yardımlarınız için tekrar teşekkür ederim hocam.

 

[ÖmerFaruk]

O da mümkün ama anlaşamadığımız nokta formatınızı tam olarak belirtemeeniz.
Ecxcel sayfanızda hangi satırda veri olduğunu anlayacağımız bir krtier belirtmelisiniz.
Mesela 2. satırdan 100. satıra kadar her hangi bir hücresinde veri olan satıır gibi.
Ya da A - B- C- D sütunlarında veri olan satırlar gibi
Ya da başka bir şey

 

[hakki83]

O da mümkün ama anlaşamadığımız nokta formatınızı tam olarak belirtemeeniz.
Ecxcel sayfanızda hangi satırda veri olduğunu anlayacağımız bir krtier belirtmelisiniz.
Mesela 2. satırdan 100. satıra kadar her hangi bir hücresinde veri olan satıır gibi.
Ya da A - B- C- D sütunlarında veri olan satırlar gibi
Ya da başka bir şey

Hocam eğer excel kodları; içinde veri olan herhangi bir hücrenin bulunduğu son satırı; ve içinde veri olan herhangi bir hücrenin bulunduğu son sütunu tespit edebiliyorsa, hah işte tam orası.
Yani sayfanın tamamını taraması gerekiyor bu durumda.

Son satır veya son sütun,
16384. Sütun da olabilir,
Bir milyonuncu satır da olabilir.

Tek istediğim, ilk satıra müdahale edilmesin, bir de içinde hiç veri olmayan satır-sütunlara. Çünkü oraların yüksekliği belirlediğim gibi kalması gerekiyor. Ki kodları normal dosyalarıma uygulayabileyim.

 

[ÖmerFaruk]

O halde aşağıdaki kod ile 3.satırdan en son dolu olan satıra kadar aralarındaki satırları da dahil ederek AutoFit yapabilirsiniz.

    SonSatır = Cells.SpecialCells(xlCellTypeLastCell).Row
    Range("A3:A" & SonSatır).EntireRow.AutoFit

 

[hakki83]

ÖmerFaruk hocam bu oldu işte (A3’ü A2 yaptım)

Oldu olacak hazır eliniz değmişken
1. sütuna dokunmayan, yukarıdaki gibi aynı şekilde yazar mısınız
SonSütun = gibi

 

[ÖmerFaruk]

SonSütun = Cells.SpecialCells(xlCellTypeLastCell).Column
Range(Cells(1, 2), Cells(1, SonSütun)).EntireColumn.AutoFit

 

[hakki83]

Emeklerinize sağlık.