Soru Girilen Veri Kadar Hücre Genişlemesi

[Hsn55]

İyi günler ekli dosyada Vahidi Fiyat Onay Girişi sayfasında H9:H98 hücre aralığına veri giridiğinde girilen veri kadar V.BİRİM FİYAT KARARI sayfasında H9:H98 hücre aralığındaki hücrelerin girilen veri kadar satırın genişlemesini buton ile makro yardımı ile nasıl sağlarız ? Örneğin Vahidi Fiyat Onay Girişi H23 hücresinde veri kadar V.BİRİM FİYAT KARARI sayfasındaki H23 hücresindeki veriye göre genişleyecek yada daralacak

Ornek.zip dosyasını indir - download

Ornek.zip dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

 

[relaxim]

Merhaba

Sub Makro1()

Columns("H9:H98").Select
Columns("H9:H98").EntireColumn.AutoFit

End Sub

 

[Hsn55]

Sayın relaxim teşekkür ederim. Bunu sayfa için nasıl tanımlarız. Örneğin A sayfası

 

[relaxim]

A sayfası değiştiğinde olabilir veya siz hangi olaydan sonra istiyorsanız. Kod sayfasında A sayfasını tıklayıp yan taraftaki worksheet seçilerek en sağdaki yerden istediğiniz olaydan önce veya sonra seçebilir. Yada bir butona atayabilirsiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
Columns("H9:H98").Select
Columns("H9:H98").EntireColumn.AutoFit
End Sub

 

[Hsn55]

Sütün genişliyor. Satır genişlemesi gerekiyor

 

[relaxim]

Column yerine Row yazınız.

 

[Hsn55]

Sayın relaxim teşekkür ederim. Şu şekilde yaptım oldu . Acaba işlemi G:9:G98 hücresinde yaptığım zaman H9:H98 hücresindeki satırın genişlemesi için koda nasıl bir ilave yaparız

Private Sub Worksheet_Change(ByVal Target As Range)
     
    Set syf = Sheets("BİRİM FİYAT KARARI")
    syf.Range("H9:H98").EntireRow.AutoFit
    
End Sub

 

[Hsn55]

Olmuyor hocam. G9:G98 hücre aralığından veri doğrulama yöntemi ile veriler H9:H98 hücre aralığına geliyor. Fakat satırda işlem olmuyor