Soru Birleştirilmiş Hücrede Girilen Veriye Göre Satır Genişlemesi

[Hsn55]

İyi günler ekli örnek dosyada veri girişi sayfasında D750 satırlarına ver girdiğim zaman girilen veri kadar A,B,C,D sayfalarına aynı verilerin kopyalanması ve girilen veri kadar ilgili satırların genişlemesini nasıl sağlayabiliriz. Not: Satır genişlemesi yapılacak sayfalar :Veri Girişi,A,B,C,D sayfaları olacak. Destek olursanız sevinirim.
satir_genislemesi.xlsx https://s6.dosya.tc/server22/kdllm5/satir_genislemesi.xlsx.html

 

[volki_112]

İyi günler ekli örnek dosyada veri girişi sayfasında D750 satırlarına ver girdiğim zaman girilen veri kadar A,B,C,D sayfalarına aynı verilerin kopyalanması ve girilen veri kadar ilgili satırların genişlemesini nasıl sağlayabiliriz. Not: Satır genişlemesi yapılacak sayfalar :Veri Girişi,A,B,C,D sayfaları olacak. Destek olursanız sevinirim.
satir_genislemesi.xlsx https://s6.dosya.tc/server22/kdllm5/satir_genislemesi.xlsx.html

kontrol edip dönüş yapınız.

 

[Hsn55]

Sayın volki_112 benim istediğim bu şekilde değil. Veri giriş sayfasında örneğin birleştirilmiş d7 satırına uzun bir metin girdiğim zaman girilen metin kadar satır genişleyecek

 

[volki_112]

Sayın volki_112 benim istediğim bu şekilde değil. Veri giriş sayfasında örneğin birleştirilmiş d7 satırına uzun bir metin girdiğim zaman girilen metin kadar satır genişleyecek

makro ile satır genişliği auto yapılacak. deneyeyim

 

[volki_112]

makro ile satır genişliği auto yapılacak. deneyeyim

@Hsn55 ben yapmaya çalıştım ama yapamadım

 

[Biolightant]

Merhaba,
@volki_112 kodlarını malesef göremiyorum ama şöyle bir yöntem işinize yarayabilir.

Sub EsitGenisle()

    Dim ws As Worksheet
    Dim sutunGenislik As Double
    
    Set ws = ActiveSheet
    
    ' D7:N7 hücrelerini seç ve birleştirmeyi kaldır
    ws.Range("D7:N7").UnMerge
    
    ' D sütununun genişliğini öğren
    ws.Columns("D:D").AutoFit
    sutunGenislik = ws.Columns("D:D").ColumnWidth / 11 ' 11'e böl
    
    ' Hücreleri tekrar birleştir
    ws.Range("D7:N7").Merge
    
    ' Yeni genişliği uygula
    ws.Range("D7:N7").ColumnWidth = sutunGenislik
End Sub

 

[volki_112]

Merhaba,
@volki_112 kodlarını malesef göremiyorum ama şöyle bir yöntem işinize yarayabilir.

Sub EsitGenisle()

    Dim ws As Worksheet
    Dim sutunGenislik As Double
    
    Set ws = ActiveSheet
    
    ' D7:N7 hücrelerini seç ve birleştirmeyi kaldır
    ws.Range("D7:N7").UnMerge
    
    ' D sütununun genişliğini öğren
    ws.Columns("D:D").AutoFit
    sutunGenislik = ws.Columns("D:D").ColumnWidth / 11 ' 11'e böl
    
    ' Hücreleri tekrar birleştir
    ws.Range("D7:N7").Merge
    
    ' Yeni genişliği uygula
    ws.Range("D7:N7").ColumnWidth = sutunGenislik
End Sub

Sutun genisligi değil. Satir yuksekligi artacak hocam