User Formdan Kayit Yapamiyorum

[mixser]

Merhaba

Yaptığım user formdaki txtlerin tamamını doldurup data sayfasına kayıt yaptırmak istiyorum ama başaramadım.
sıralı bir şekilde nasıl kayıt yaptırırım yardımcı olabilirmisiniz arkadaşlar

 

[Orion1]

Ekli dosyayı inceleyiniz

Private Sub CommandButton1_Click()
Dim i As Byte, sat As Long
Sheets("data").Select
sat = Sheets("data").Cells(65536, "B").End(xlUp).Row + 1
If sat >= 65536 - 9 Then
    MsgBox "Satır doldu başka kayıt yapamazsınız..!!", vbCritical, "DİKKAT"
    Exit Sub
End If
For i = 1 To 10
    If Not IsDate(Controls("txtTarih" & i).Value) Then GoTo atla
    If IsDate(Controls("txtTarih" & i).Value) Then
        Cells(sat, "B").Value = CDate(Controls("txtTarih" & i).Value)
    End If
    Cells(sat, "C").Value = Controls("txtSatıcı" & i).Value
    Cells(sat, "D").Value = Controls("txtKod" & i).Value
    Cells(sat, "E").Value = Controls("txtCins" & i).Value
    If IsNumeric(Controls("txtMiktar" & i).Value) Then
        Cells(sat, "F").Value = Controls("txtMiktar" & i).Value * 1
    End If
    If IsNumeric(Controls("txtFiyat" & i).Value) Then
        Cells(sat, "G").Value = Controls("txtFiyat" & i).Value * 1
    End If
    sat = sat + 1
atla:
Next i
MsgBox "Kayıt Girildi..!!", vbOKOnly + vbInformation, Application.UserName
End Sub

 

[mixser]

Sn.Orion2

Cevabınız için teşekkür ederim. bu kodlar işimi büyük ölçüde halledecek inşallah
ilerleyen aşamalarda tekrar bilgilerinize başvurabilirim.
Sağolun var olun

 

[Orion1]

Sn.Orion2

Cevabınız için teşekkür ederim. bu kodlar işimi büyük ölçüde halledecek inşallah
ilerleyen aşamalarda tekrar bilgilerinize başvurabilirim.
Sağolun var olun

Rica ederim.
İyi çalışmalar.

 

[mixser]

sn.orion

tarih txt lerde sorun oluştu yazılan tarihler otomadık olarak "dd.mm.yyyy" formatına dönmüyor aynen text şeklinde kalıyor. bunları nasıl tarih formatına çevireceğiz biraz daha yardım lütfen

 

[Orion1]

Aşağıdaki kodu kendi tarih textboxlarınıza uyarlayınız.

If IsDate(txtTarih1.Value) Then
    txtTarih1.Value = Format(txtTarih1.Value, "dd.mm.yyyy")
End If

 

[mixser]

bunu her tarih txt si için ayrı ayrı mı uygulayacağız yoksa bir döngü içinde kullanılabilinirmi hocam
ayrıca txt lerin içine girilecek metin yada sayı kısıtlanabilnirmi. Yani rakam girilecek yere harf girilmesini önleme açısından
saygılarımla

 

[mixser]

hocam rica edicem bide bu enson yazdığınız kodu yukarıdaki kodun hangi bölümüne ekleyeceğiz onuda belirtebilirmisiniz

 

[Orion1]

hocam rica edicem bide bu enson yazdığınız kodu yukarıdaki kodun hangi bölümüne ekleyeceğiz onuda belirtebilirmisiniz

VBA editöründeyken tarih textboxlarına çift tıklayınız.ve açılan kod penceresinden olayları gösterir Comboboxlardan AfterUpdate'yi seçiniz.Ve dağa önce yazdığım kodları her txtbox'a göre uyarlayınız.

 

[mixser]

Merhaba sn.orion2

verdiğiniz cevaba teşekkür edemedim kusura bakmayın işler çok yoğun bir şekilde devam ettiğinden projemi bu günlük askıya almak zorunda kalmıştım. Cevabınız işimi fazlasıyla halletti sağolun teşekkür ederim.

 

[Orion1]

Merhaba sn.orion2

verdiğiniz cevaba teşekkür edemedim kusura bakmayın işler çok yoğun bir şekilde devam ettiğinden projemi bu günlük askıya almak zorunda kalmıştım. Cevabınız işimi fazlasıyla halletti sağolun teşekkür ederim.

Rica ederim.
İyi çalışmalar.