userformda hata mesajı

[eseseski]

mrb
ben userfor oluşturmayı öğrenmeye çalışıyorum ve yazmış olduğum kodda kaydet butonuna tıkladığımda hata veriyor .bir türlü işin içinden çıkamadım
bilgisi olanlar yardım edebilirmi

 

[drkdrk]

mrb
ben userfor oluşturmayı öğrenmeye çalışıyorum ve yazmış olduğum kodda kaydet butonuna tıkladığımda hata veriyor .bir türlü işin içinden çıkamadım
bilgisi olanlar yardım edebilirmi

Private Sub CommandButton1_Click()
If TextBox1.Text <> "" Then
Son_Dolu_Satir = Sheets("Data").Range("A65536").End(xlUp).Row
    Bos_Satir = Son_Dolu_Satir + 1
    Sheets("Data").Range("A" & Bos_Satir).Value = _
                   Application.WorksheetFunction.Max(Sheets("Data").Range("A:A")) + 1
    Sheets("Data").Range("B" & Bos_Satir).Value = TextBox1.Text
    Sheets("Data").Range("C" & Bos_Satir).Value = TextBox2.Text
    
  [COLOR="Red"]  End If[/COLOR]
    
    
End Sub

kodunuzu yukardaki gibi değiştiriniz. Kırımızı renkle belirttiğim satırı yazmamışsınız o yüzden hata alıyorsunuz.

 

[eseseski]

teşekürler

 

[drkdrk]

teşekürler

rica ederim

 

[excelci76]

="% "&MITTELWERT(L4:L23) = 45,34567257854 şeklinde oluyor. Ben 45,34 olsun istiyorum.

arkadaşlar (Sayın drkdrk) buna bir çözüm var mı acaba?

 

[drkdrk]

="% "&MITTELWERT(L4:L23) = 45,34567257854 şeklinde oluyor. Ben 45,34 olsun istiyorum.

arkadaşlar (Sayın drkdrk) buna bir çözüm var mı acaba?

örnek dosya ekleyebilir misin?

 

[excelci76]

RUNDEN(MITTELWERT(C5:C24);2)

çözümü bu şekilede buldum ilginiz için çok teşekkürler..(drkdrk)