Makro İle Satır Yüksekliği

[ormann]

İyi akşamlar,
Ekli dosyada Userform1 üzerinde bulunan ; kaydet butonu ile veriler kayıt sayfasında ilgili yerlere kayıt olacak.
TextBox1,TextBox2,TextBox3,TextBox4'e girilen veri kadar veri sayfası üzerindeki D12,D13,D14 ve D15 satırları açılacak.

Hücre Biçimlendirmeleri
Yazı Boyutu:11
Yazı Tipi=Calibri (Gövde)
Yatay:İkiyanayasla
Dikey :Üst

TextBox1=D12 HÜCRESİNE
TextBox2=D13 HÜCRESİNE
TextBox3=D14 HÜCRESİNE
TextBox4=D15 HÜCRESİNE
ComboBox1=LABEL1'E
ComboBox2=LABEL2'YE
ComboBox3=LABEL3'E
ComboBox4=LABEL4'E
ComboBox5=LABEL5'E
ComboBox6=LABEL6'YA
https://dosya.co/fgnlhvurh94s/örnek.xlsb.html

 

[PLİNT]

Merhaba
"D" hücrelerinin biçimlendirmesini yukarıda belirttiğiniz gibi (+"metni kaydır" işaretli) ayarlanırsa "textbox" lardan girilen verilerin miktarına göre
satır yüksekliği otomatik ayarlanacaktır.
sayfadaki "label" ler; özelliklerden "Autosize=true","wordwrap=false" şeklinde ayarlanırsa "combobox" lardan girilen verilere göre sağa doğru genişleyecektir.

Private Sub CommandButton1_Click()
With Sheets("VERİ")
.[D12] = TextBox1.Text
.[D13] = TextBox2.Text
.[D14] = TextBox3.Text
.[D15] = TextBox4.Text
.Label1.Caption = ComboBox1
.Label2.Caption = ComboBox2
.Label3.Caption = ComboBox3
.Label4.Caption = ComboBox4
.Label5.Caption = ComboBox5
.Label6.Caption = ComboBox6
End With
End Sub