Hucre genişlik ve yüksekliğinin otomatık ayarlanması

[Ütopya1]

Arkadaslar herkese ıyı akşamlar öncelikle sorum excdel de ıkı sayfam var sayfanın bırıne a3 e metın gırdıkce dıger sayfada b5 te otomatık çıkıyor ancak ben yazdıkça sutun genişlemiyor kimi zaman genişleyecek kimi zaman daralacak bir şekilde metın ıle orantılı nasıl bır yol izlemeliyim bu arada b5 sutunu bırleşik bir satır

 

[Ütopya1]

Dim son
Private Sub Worksheet_Calculate()
If [d17] = son Then Exit Sub
Application.EnableEvents = False
[Z17].ColumnWidth = [d17].ColumnWidth + [e17].ColumnWidth + [f17].ColumnWidth + _
[g17].ColumnWidth [h17].ColumnWidth
[Z17].WrapText = True
[Z17] = [d17].Value
[Z17].EntireRow.AutoFit
son = [d17]
Application.EnableEvents = True
End Sub

 

[Ütopya1]

Kendı sorumuzu kendımız çözduk çok şukur yok dosya ekle yok suraya yaz buraya yaz
aynı sorunu yasayanlar kodu kopyalayın ordakı d 17 genişlemesini istediğin hucre d5 veya a6 is misal d17 leri d5 yapın kalan 17 leride 5 yapın canavar gıbı kod

 

[Ütopya1]

Bırleştirilmiş hucredede etkılıdır test edıldı