Userform çalışmıyor.

[istanbulcahan]

Hayırlı geceler.
Userform çalışmıyor. Nasıl çözülebilir, sorun.

 

[ÖmerFaruk]

Oluşturduğunuz butona atadığınız makro mevcut değil uyarısı zaten veriyor.
Siz sağ tıklayıp makro ata penceresinden getir isimli makronuzu seçmelisiniz.

 

[istanbulcahan]

Oluşturduğunuz butona atadığınız makro mevcut değil uyarısı zaten veriyor.
Siz sağ tıklayıp makro ata penceresinden getir isimli makronuzu seçmelisiniz.
Seçtim, çalıştı. Ancak kayıt sonrasında aşağıdaki satırlarda hata verdi.

Private Sub CommandButton1_Click()
SonSatir = Worksheets.Function.CountA

If SonSatir = 2 Then
   Worksheets("Sayfa1").Cells, (SonSatir, 1)=1
   Worksheets("Sayfa1").Cells, (SonSatir, 2)=1 TextBox1.Value
   Worksheets("Sayfa1").Cells, (SonSatir, 3)=1 TextBox2.Value

Else
   Worksheets("Sayfa1").Cells, (SonSatir, 1)=1
   Worksheets("Sayfa1").Cells, (SonSatir, 2)=1 TextBox1.Value
   Worksheets("Sayfa1").Cells, (SonSatir, 3)=1 TextBox2.Value
   Worksheets("Sayfa1").Cells, (SonSatir, 4)=1 TextBox3.Value
  
Worksheets("Sayfa1").Cells, (SonSatir, 4)=1 TextBox3.Value

 

[ÖmerFaruk]

Örnekten faydalanabilirsiniz

Private Sub CommandButton1_Click()
Dim SonSatir As Integer
SonSatir = WorksheetFunction.CountA(Range("A:A")) + 1
Worksheets("Sayfa1").Cells(SonSatir, 1) = SonSatir - 1
Worksheets("Sayfa1").Cells(SonSatir, 2) = TextBox2.Value
Worksheets("Sayfa1").Cells(SonSatir, 3) = TextBox3.Value
End Sub

 

[relaxim]

....

 

[istanbulcahan]

Örnekten faydalanabilirsiniz

Private Sub CommandButton1_Click()
Dim SonSatir As Integer
SonSatir = WorksheetFunction.CountA(Range("A:A")) + 1
Worksheets("Sayfa1").Cells(SonSatir, 1) = SonSatir - 1
Worksheets("Sayfa1").Cells(SonSatir, 2) = TextBox2.Value
Worksheets("Sayfa1").Cells(SonSatir, 3) = TextBox3.Value
End Sub

Formda bazı ihtiyaçlar oldu, ufak tefek değişiklikler yaptım. Veri sheeti oluşturdum.Ondan mutevellit. Kaydet tuşunda bazı verileri kaydediyor, bazı verileri kaydetmiyor. Ekteki dosyada açıklamalrı yaptım.

 

[ÖmerFaruk]

Değerli arkadaşım,
#4 nolu mesajımda örnek olarak iki textboxdaki veriyi ben kaydettim.
1300. mesajınızı yazmak üzeresiniz.
Kalan diğer 4 textbox içindeki veriyi sizin sayfaya aktarabileceğinize eminim.
Sadece yapmak isteyin.