[Yardım]  Hücre Genişliğine Dokunmadan Otomotik Satır Yüksekliği Ayarl

VBE penceresindeki menüler ve işleyiş

Hücre Genişliğine Dokunmadan Otomotik Satır Yüksekliği Ayarl

İleti#1)  Levent145 » 19 Kas 2020 22:10

A3 G3 ve
A4 G4 aralığında olmak üzere birleştirilmiş hücrelerim var
Bazen yazılar fazla olduğunda satırın içinde görünmüyor
Satır genişliği sabit kalsın dokunulmadan
Hücreye girilen metin ikinci üçüncü dördüncü beşinci satıra sattığında satır yüksekliği otomotik açılsın veya satır sayısına göre otomotik yükseklik düşsün
Böyle hazır bir koda ihtiyacım var
Kullanıcı avatarı
Levent145
Yeni Başlamış
 
Kayıt: 09 Ağu 2020 20:51
Meslek: Memur
Yaş: 27
İleti: 46
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: Hücre Genişliğine Dokunmadan Otomotik Satır Yüksekliğ

İleti#2)  Erkan Akayay » 20 Kas 2020 00:02

Sayfa koduna kopyalayın.

Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A3", "A4")) Is Nothing Then Exit Sub
Dim birlesik_genislik As Single
Dim hucre As Range
Dim alan As Range
Dim sutun_genislik As Double
Dim yukseklik As Double
    Application.ScreenUpdating = False
    On Error Resume Next
    Set alan = Range(Range(Target.Address).MergeArea.Address)
    With alan
      .MergeCells = False
      sutun_genislik = .Cells(1).ColumnWidth
      birlesik_genislik = 0
      For Each hucre In alan
          hucre.WrapText = True
          birlesik_genislik = hucre.ColumnWidth + birlesik_genislik
      Next
      birlesik_genislik = birlesik_genislik + alan.Cells.Count * 0.66
      .Cells(1).ColumnWidth = birlesik_genislik
      .EntireRow.AutoFit
      yukseklik = .RowHeight
      .Cells(1).ColumnWidth = sutun_genislik
      .MergeCells = True
      .RowHeight = yukseklik
    End With
    Application.ScreenUpdating = True
End Sub
Sorularınızı düzgün bir Türkçe ile, detay vererek ve örnek dosyayla destekleyerek sorunuz.
Örnek dosyalarınızda Application.Visible veya hide gibi sayfa gizlemelerini iptal ediniz.
Kullanıcı avatarı
Erkan Akayay
Site Dostu
 
Kayıt: 20 Ağu 2008 11:59
Konum: YALOVA
Meslek: Bilgi İşlem
Yaş: 50
İleti: 4131
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İSTANBUL

Cevap: Hücre Genişliğine Dokunmadan Otomotik Satır Yüksekliğ

İleti#3)  Levent145 » 20 Kas 2020 13:04

Çok teşekkür ederim. Kodlar çalıştı. Elinize emeğinize sağlık
Kullanıcı avatarı
Levent145
Yeni Başlamış
 
Kayıt: 09 Ağu 2020 20:51
Meslek: Memur
Yaş: 27
İleti: 46
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara


Forum VBE Penceresi

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe