Textboxta sadece rakam ve sayfaya aktarma hk

[mesuttasar]

Affınıza ve hoşgörünüze sığınarak soruyorum.

1-Diyelimki basi bir user form oluşturdum.İçinde sadece bir textbox ve aktar butonu var. Excel çalışma sayfasını açtığımda sayfanın değilde sadece user formun ekrana gelmesi için hangi kodları nereye yazmam gerekir?

2-Aktar butonuna bastığımda text box ın içindeki veriyi (sadece rakam kabul edilecek) örneğin A sütununda alt alta yazacak.Bu yüzden aktar butonuna tıkladığımda yazmam gereken kodlar nelerdir?

3-User form üzerinde bir buton daha ekledim diyelim.Bu butona tıkladığımda excel çalışma sayfasını görünür hale getirmek istiyorum.Bunu nasıl yapabilirim?

Şimdilik bu kadar. Teşekkür ederim.

Oluşturmak istediğim form budur.

 

[Ayhan Ercan]

1. soruya cevap:


module açıp modüle yazılacak kod:

Sub Autpen()
Application.Visible = False
UserForm1.Show
End Sub

 

[mesuttasar]

1. soruya cevap:


module açıp modüle yazılacak kod:

Sub Autpen()
Application.Visible = False
UserForm1.Show
End Sub

Sayende 3. soruyu ben hallettim.Kod aşağıda. Zor oldu ama

Private Sub CommandButton2_Click()
Application.Visible = True
End Sub

 

[Ayhan Ercan]

3.soruna cevap ise:

butona yazacağın kod:

application.visible=true

 

[mesuttasar]

2. soru için yazdığım kodun neresi hatalı acaba

Private Sub CommandButton1_Click()
Range("A1").Selecet
if ActiveCell="" TextBox1.Value
Else: ActiveCell.Select(0, 1) = TextBox1.Value
End If

End Sub

 

[Orion1]

Kayıt butonunuzda aşağıdaki kodlar olacak.

Private Sub CommandButton1_Click()
If Not IsNumeric(TextBox1.Value) Then
    MsgBox "Hatalı Giriş." & vbLf & "Yalnızca sayısal değer girebilirsiniz..!!", vbCritical, "HATALI GİRİŞ !"
    Exit Sub
End If
sat = Cells(65536, "A").End(xlUp).Row + 1
Cells(sat, "A").Value = TextBox1.Value * 1
Cells(sat, "A").NumberFormat = "#,##0.00"
MsgBox "Kayıt Yapıldı..!!", vbOKOnly + vbInformation, "KAYIT"
TextBox1.Value = Empty
End Sub

 

[mesuttasar]

sat = Cells(65536, "A").End(xlUp).Row + 1
Cells(sat, "A").Value = TextBox1.Value * 1
Cells(sat, "A").NumberFormat = "#,##0.00"

üstadım bu ifade neyi anlatıyor açıklaabilirmisin?

 

[Orion1]

sat = Cells(65536, "A").End(xlUp).Row + 1 [COLOR="Red"]'A sütununda son dolu satıra 1 ekle(boşsatır)[/COLOR]
Cells(sat, "A").Value = TextBox1.Value * [COLOR="red"]'1 boş satırdaki hücreyi textbox1 deki değeri sayısal olarak yaz[/COLOR]
Cells(sat, "A").NumberFormat = "#,##0.00" [COLOR="red"]'ayni hücreyi sayısal formatla[/COLOR]

 

[mesuttasar]

sat diye yeni bir değişkenmi adlandırıyoruz?

 

[Ayhan Ercan]

yalnışlıkla öyle yazılmıştır. set olacaktı herhalde...

 

[hsayar]

sat diye yeni bir değişkenmi adlandırıyoruz?

evet buradaki sat son dolu satırın bir fazlası yada şöyle söyleyelim ilkboş satırdır.

 

[Rıdvan01]

çalışma sayfasını gizle / göster


Private Sub CommandButton7_Click()
Sheets("SAYFA1").Select
Application.Visible = True
End Sub

Private Sub CommandButton8_Click()
Application.Visible = False
End Sub

 

[Rıdvan01]

çalışma sayfasını gizle / göster


Private Sub CommandButton7_Click()
Sheets("SAYFA1").Select
Application.Visible = True
End Sub

Private Sub CommandButton8_Click()
Application.Visible = False
End Sub