Userform öğreniyorum.

[Galus]

Konu hakkında belki bir yığın mesaj var. Belki neyi nasıl aramayı beceremiyorum. Tıpkı userform oluşturmak gibi. Ekteki yapamadığım userformları tamamlayıp çalıştırabilir miyiz?

Teşekkürler..

 

[Orion1]

Ekli dosyayı inceleyiniz.
Ben Giriş için hazırladım.
Sizde ordan örnekleyerek çıkış için hazırlayabilirsiniz.

Private Sub CommandButton1_Click()
Set gr = Sheets("GIRIS")
If TextBox1.Value = Empty Then
    MsgBox "Ürün kodu boş olamaz..!!", vbCritical, Application.UserName
    TextBox1.SetFocus
    Set gr = Nothing
    Exit Sub
End If
sat = gr.Cells(65536, "A").End(xlUp).Row + 1
For i = 1 To 6
    If i < 5 Then
        gr.Cells(sat, i).Value = Controls("TextBox" & i).Value
        Controls("TextBox" & i).Value = Empty
    End If
    If i = 5 Then
        gr.Cells(sat, "E").Value = CDate(Format(TextBox5.Value, "dd.mm.yyyy"))
        TextBox5.Value = Empty
    End If
    If i = 6 Then
        gr.Cells(sat, "F").Value = TextBox6.Value * 1
        gr.Cells(sat, "F").NumberFormat = "#,##0.00"
        TextBox6.Value = Empty
    End If
Next
TextBox1.SetFocus
MsgBox "Kayıt yapıldı..!!", vbOKOnly + vbInformation, Application.UserName
Set gr = Nothing
End Sub

 

[Galus]

Hocam sizi gene yorduk. Çabanızla öğreniyoruz. İlgi ve bilginize teşekkürler.

 

[Orion1]

Hocam sizi gene yorduk. Çabanızla öğreniyoruz. İlgi ve bilginize teşekkürler.

Estafurullah.Yardımımız dokunursa ne mutlu.
Kolay gelsin.

 

[Galus]

Saol hocam. Allah (CC) razı olsun.

 

[Galus]

Hocam sonunda başardım....
Sevk dosyasını oluşturdum. Artık ileri tarihlerde verileri stok tablosuna aktarmayı öğreneceğim.

Çok teşekkürler...

 

[Orion1]

Hocam sonunda başardım....
Sevk dosyasını oluşturdum. Artık ileri tarihlerde verileri stok tablosuna aktarmayı öğreneceğim.

Çok teşekkürler...

Buna sevindim.
Kolay gelsin.

 

[Galus]

Hocam, malesef becerememişim. Olmamış...Kayıt yapıldı diyor. Ne kayıt var ne de debug..

 

[Orion1]

Hocam, malesef becerememişim. Olmamış...Kayıt yapıldı diyor. Ne kayıt var ne de debug..

............................

 

[Galus]

Son kodlardaki hatayı düzelttim. Yine kayıt var debug yok.

Private Sub TextBox11_AfterUpdate()
If IsDate(TextBox11.Value) Then
TextBox11.Value = Format(TextBox11.Value, "dd.mm.yyyy")
End If
End Sub

Private Sub TextBox12_AfterUpdate()
If IsNumeric(TextBox12.Value) Then
TextBox12.Value = Format(TextBox12.Value, "#,##0.00")
End If
End Sub

 

[Orion1]

Son kodlardaki hatayı düzelttim. Yine kayıt var debug yok.

Private Sub TextBox11_AfterUpdate()
If IsDate(TextBox11.Value) Then
TextBox11.Value = Format(TextBox11.Value, "dd.mm.yyyy")
End If
End Sub

Private Sub TextBox12_AfterUpdate()
If IsNumeric(TextBox12.Value) Then
TextBox12.Value = Format(TextBox12.Value, "#,##0.00")
End If
End Sub

Buradaki kodlar kayıt yapmıyor.Yalnızca ilgili textbox'ı veriyi girdikten sonra biçimlendiriyor.
Kayıt'ı CommandButton'daki kodlar yapıyor.

 

[Galus]

Hocam,
Textbox, label falan hepsini yeniden numaralandırdım. Kodları kontrol ediyorum, fakat ilk 4 hücre giriş yapmıyor. Ürün kodu, ürün Adı,Müşteri, ,İrsaliya No, BOŞ GELİYOR.

Nerede hata yaptığımı söylerseniz daha iyi öğrenirim.

Saygılarımla...

 

[Galus]

Çıkış formu sadece Tarih ve miktar giriyor ve hep aynı hücreye.
sat = gr.Cells(65536, "A").End(xlUp).Row + 1
çalışmıyor gibi ?

Saygılar..

 

[Orion1]

Ekli dosyayı inceleyiniz.

Private Sub CommandButton2_Click()
Set gr = Sheets("CIKIS")
If TextBox7.Value = Empty Then
    MsgBox "Ürün kodu boş olamaz..!!", vbCritical, Application.UserName
    TextBox7.SetFocus
    Set gr = Nothing
    Exit Sub
End If
sat = gr.Cells(65536, "A").End(xlUp).Row + 1
For i = 1 To 6
    If i < 5 Then
        gr.Cells(sat, i).Value = Controls("TextBox" & i + 6).Value
        Controls("TextBox" & i + 6).Value = Empty
    End If
    If i = 5 Then
        gr.Cells(sat, "E").Value = CDate(Format(TextBox11.Value, "dd.mm.yyyy"))
        TextBox11.Value = Empty
    End If
    If i = 6 Then
        gr.Cells(sat, "F").Value = TextBox12.Value * 1
        gr.Cells(sat, "F").NumberFormat = "#,##0.00"
        TextBox12.Value = Empty
    End If
Next
TextBox7.SetFocus
MsgBox "Kayıt yapıldı..!!", vbOKOnly + vbInformation, Application.UserName
Set gr = Nothing
End Sub

 

[Galus]

Hocam,

Emeğinize sağlık. Çok çok teşekkürler.. Sayenizde her gün yeni bir şey öğreniyorum.

 

[Orion1]

Hocam,

Emeğinize sağlık. Çok çok teşekkürler.. Sayenizde her gün yeni bir şey öğreniyorum.

Rica ederim.
İyi çalışmalar.

 

[Galus]

Hocam,

Affınıza ve hoşgörünüze sığınarak şu benim formun son halini inceleyebilir misiniz? Müşteri iadesi ve Üretime İadeler formları sadece Tarih ve miktar giriyor ve hep aynı hücreye.

Bir de şu combobox'ı sadecene giriş'e uyarlıyabildim. Diğerlerine malesef uyarlıyamadım.

Saygılarımla..

 

[Orion1]

Ekli dosyayı inceleyiniz.

 

[Galus]

Hocam,

Siz ne iyi insansız. Hakkınızı nasıl ödeyeceğim?
Cenab-ı Allah (CC) çabalarınızın ecrini arttırsın.

Saygılarımlaa.

 

[Orion1]

Hocam,

Siz ne iyi insansız. Hakkınızı nasıl ödeyeceğim?
Cenab-ı Allh (CC) çabalarınızın ecrini arttırsın.

Saygılarımlaa.

Rica ederim.
Cümlemizin.