1 sayfadan 1. sayfa

ilk boş hücreye yazdırma

İletiTarih: 24 Ağu 2018 05:08
tolgagursel
selamlar

texbox'a yazdığım bilgileri il boş hücreye yazdırmak istiyorum ama başaramadım

Kod: Tümünü seç
Sub TextBox1_Change()

ActiveSheet.Range("A1").Select
Cells(3, 1).End(xlDown)(2, 1) = TextBox1.Value


End Sub


böyle yaptığım zaman her harfte alt satıra geçiyor :)

Cevap: ilk boş hücreye yazdırma

İletiTarih: 24 Ağu 2018 05:47
K-G
İlk olarak neresi olmalı? Satır damı sütun damı?

Cevap: Cevap: ilk boş hücreye yazdırma

İletiTarih: 25 Ağu 2018 00:37
tolgagursel
K-G yazdı:İlk olarak neresi olmalı? Satır damı sütun damı?

aşağıdaki şekilde buton ekleyerek işi çözdüm :)textbox1 e ilk tıkladığımda stundaki ilk boş hücreyi seçip butona bastığımda hücreye veri aktarıyor.
Kod: Tümünü seç
Private Sub CommandButton1_Click()
Cells(3, 1).End(xlDown)(2, 1) = TextBox1.Value
Cells(3, 1).End(xlDown)(2, 1) = TextBox2.Value
End Sub

Sub TextBox1_Change()

ActiveSheet.Range("A1").Select

End Sub

Private Sub TextBox2_Change()

End Sub