• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

VERİ GİRİŞİ VE KAYDETME

Neye nasıl yardımcı olmamızı istiyorsunuz?
 
Merhabalar,
Userform2 kod bölümüne alttaki kodları yazınız. Userform2 textboxlarına göre A sütunundan H sütununa kadar veri girdikçe alt alta kayıt yapacaktır.
Katıttan sonra Texboxları boşaltacaktır.

Private Sub CommandButton1_Click()
With Sheets("SAHİBİNDEN")
satır = .Range("A65536").End(3).Row + 1
.Cells(satır, 1) = TextBox1 'SAHİBİNDEN NO
.Cells(satır, 2) = TextBox5 'MALZEME (Parça ismi)
.Cells(satır, 3) = TextBox4 'ÜRÜNÜN DURUMU
.Cells(satır, 4) = TextBox3 'MARKA
.Cells(satır, 5) = TextBox2 'ORJİNAL PARÇA NO
.Cells(satır, 6) = TextBox8 'ÜRETİCİ FİRMA PARÇA NO
.Cells(satır, 7) = TextBox7 'İKAME PARÇA
.Cells(satır, 8) = TextBox6 'KULLANILDIĞI ARAÇLAR
End With
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
End Sub
 
Kod: 
satır = .Range("A65536").End(3).Row + 1

Değişkenlerde Türkçe karakterler kullanmayınız.:cool:
 
byfika' Alıntı:
Merhabalar,
Userform2 kod bölümüne alttaki kodları yazınız. Userform2 textboxlarına göre A sütunundan H sütununa kadar veri girdikçe alt alta kayıt yapacaktır.
Katıttan sonra Texboxları boşaltacaktır.

Private Sub CommandButton1_Click()
With Sheets("SAHİBİNDEN")
satır = .Range("A65536").End(3).Row + 1
.Cells(satır, 1) = TextBox1 'SAHİBİNDEN NO
.Cells(satır, 2) = TextBox5 'MALZEME (Parça ismi)
.Cells(satır, 3) = TextBox4 'ÜRÜNÜN DURUMU
.Cells(satır, 4) = TextBox3 'MARKA
.Cells(satır, 5) = TextBox2 'ORJİNAL PARÇA NO
.Cells(satır, 6) = TextBox8 'ÜRETİCİ FİRMA PARÇA NO
.Cells(satır, 7) = TextBox7 'İKAME PARÇA
.Cells(satır, 8) = TextBox6 'KULLANILDIĞI ARAÇLAR
End With
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
End Sub
Genişletmek için tıkla ...
Çok teşekkür ederim
kod harika çalışıyor.
sizden ufak bir ricam daha var.
1. Userform1 deki yeni kayıt ekle butonuna basınca userform2 açılırken geride çalışmaya devam eden userform1 nasıl kapatabiliriz.
2. Userform2 de kayıt işlemi bitti, tekrar geri userform1 dönmek için oraya birtane buton koydum, butona kod olarak
CommandButton1_Click()
UserForm1.show
End Sub
odunu yazdım ama hep hata veriyor.
 
Userform1 kod bölümündeki CommandButton1_Click altına Unload Me yazınız.

Private Sub CommandButton1_Click()
Unload Me
UserForm2.Show
End Sub

Userform2 de CommandButton1_Click butonu KAYDET butonudur. Eğer Kaydet butonuna tıklayınca hem kaydetsin hemde Userform1 e dönecekseniz;
CommandButton1_Click (Userform2 deki) altlna Unload Me yazınız.

Ayrı butonla yapacaksanız; Userform2 kod bölümündeki buton ekleyin CommandButton2_Click butonuna alttaki kodu yazınız.

CommandButton2_Click()
Unload Me
UserForm1.show
End Sub
 
byfika' Alıntı:
Userform1 kod bölümündeki CommandButton1_Click altına Unload Me yazınız.

Private Sub CommandButton1_Click()
Unload Me
UserForm2.Show
End Sub

Userform2 de CommandButton1_Click butonu KAYDET butonudur. Eğer Kaydet butonuna tıklayınca hem kaydetsin hemde Userform1 e dönecekseniz;
CommandButton1_Click (Userform2 deki) altlna Unload Me yazınız.

Ayrı butonla yapacaksanız; Userform2 kod bölümündeki buton ekleyin CommandButton2_Click butonuna alttaki kodu yazınız.

CommandButton2_Click()
Unload Me
UserForm1.show
End Sub
Genişletmek için tıkla ...

Süperoldu teşekkür ederim.
Son 2 ricam olsa bu gece
1-userform2 her açıldığında sahibinden no kısmına kaydedilen verilerin saklandığı sahibinden sayfasında ki a sutununda bulunan en yüksek sayılı vh kodunun gelmesini nasıl sağlarız. çünkü kullanıcı her seferinde sahibinden sayfasına gidip aramasın kaydedeceği vh kodunu
2 mükerrer kaydı önlemek için VERİLEN VH KODU DAHA ÖNCEDE kaydedilmişse uyarı vermesini nasıl sağlarız.
 
Userform2 de CommandButton1_Click buton kodlarını alttaki gibi değiştirirseniz mükerrer kaydı yapmaz.

Private Sub CommandButton1_Click()
If Application.WorksheetFunction.CountIf(Sayfa1.Range("A:A"), TextBox1.Value) > 0 Then
MsgBox "Girmekte olduğunuz veri veritabanında kayıtlıdır!...", vbCritical
Exit Sub
With Sheets("SAHİBİNDEN")
satır = .Range("A65536").End(3).Row + 1
.Cells(satır, 1) = TextBox1 'SAHİBİNDEN NO
.Cells(satır, 2) = TextBox5 'MALZEME (Parça ismi)
.Cells(satır, 3) = TextBox4 'ÜRÜNÜN DURUMU
.Cells(satır, 4) = TextBox3 'MARKA
.Cells(satır, 5) = TextBox2 'ORJİNAL PARÇA NO
.Cells(satır, 6) = TextBox8 'ÜRETİCİ FİRMA PARÇA NO
.Cells(satır, 7) = TextBox7 'İKAME PARÇA
.Cells(satır, 8) = TextBox6 'KULLANILDIĞI ARAÇLAR
End With
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
End If
End Sub
 
byfika' Alıntı:
Userform2 de CommandButton1_Click buton kodlarını alttaki gibi değiştirirseniz mükerrer kaydı yapmaz.

Private Sub CommandButton1_Click()
If Application.WorksheetFunction.CountIf(Sayfa1.Range("A:A"), TextBox1.Value) > 0 Then
MsgBox "Girmekte olduğunuz veri veritabanında kayıtlıdır!...", vbCritical
Exit Sub
With Sheets("SAHİBİNDEN")
satır = .Range("A65536").End(3).Row + 1
.Cells(satır, 1) = TextBox1 'SAHİBİNDEN NO
.Cells(satır, 2) = TextBox5 'MALZEME (Parça ismi)
.Cells(satır, 3) = TextBox4 'ÜRÜNÜN DURUMU .Cells(satır, 4) = TextBox3 'MARKA
.Cells(satır, 5) = TextBox2 'ORJİNAL PARÇA NO
.Cells(satır, 6) = TextBox8 'ÜRETİCİ FİRMA PARÇA NO
.Cells(satır, 7) = TextBox7 'İKAME PARÇA
.Cells(satır, 8) = TextBox6 'KULLANILDIĞI ARAÇLAR
End With
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
End If
End Sub
Genişletmek için tıkla ...

Vallahi inanılmaz gidiyoruz.
Bir kaç fikir veya olursa süper olur gibi bir fikir daha geldi aklıma ?
1. Userform2 her açıldığında sahibinden no kısmına kaydedilen verilerin saklandığı sahibinden sayfasında ki A sütununda bulunan en yüksek sayılı VH kodunun 1 fazlasının gelmesini nasıl sağlarız. Bu işlemi yapabilirsek kullanıcı her seferinde yeni tanımlayacağı ürün için gireceği VH kodlu sayıyı bulabilmek adına sahibinden sayfasına gidip aramayacak. Userform açıldığında otomatik olarak gelen VH koduna kaydedecek.
2.
Cells(satır, 1) = TextBox1 'SAHİBİNDEN NO
.Cells(satır, 2) = TextBox5 'MALZEME (Parça ismi)
.Cells(satır, 3) = TextBox4 'ÜRÜNÜN DURUMU
.Cells(satır, 5) = TextBox2 'ORJİNAL PARÇA NO
.Cells(satır, 6) = TextBox8 'ÜRETİCİ FİRMA PARÇA NO
Bu textboxlara herhangi bir giriş yapılmadığı zaman kayıt yapmasını engelleye bilirseniz baya güzel olur. Böylece yanlışlıkla yada hatalı kayıt olmaz. ve kayıt kodu her seferinde kaydettiği satırdan bir sonrakine kayıt yaptığı için yanlışlıkla kaydet butonuna basıldığında veya minimum bilgiler girilmediğinde oluşan satır boşluğu olmaz gibi me geliyor.
ÖRNEK DOSYA LİNKİ
https://www.dosyaupload.com/oamA
 
byfika' Alıntı:
Userform2 de CommandButton1_Click buton kodlarını alttaki gibi değiştirirseniz mükerrer kaydı yapmaz.

Private Sub CommandButton1_Click()
If Application.WorksheetFunction.CountIf(Sayfa1.Range("A:A"), TextBox1.Value) > 0 Then
MsgBox "Girmekte olduğunuz veri veritabanında kayıtlıdır!...", vbCritical
Exit Sub
With Sheets("SAHİBİNDEN")
satır = .Range("A65536").End(3).Row + 1
.Cells(satır, 1) = TextBox1 'SAHİBİNDEN NO
.Cells(satır, 2) = TextBox5 'MALZEME (Parça ismi)
.Cells(satır, 3) = TextBox4 'ÜRÜNÜN DURUMU
.Cells(satır, 4) = TextBox3 'MARKA
.Cells(satır, 5) = TextBox2 'ORJİNAL PARÇA NO
.Cells(satır, 6) = TextBox8 'ÜRETİCİ FİRMA PARÇA NO
.Cells(satır, 7) = TextBox7 'İKAME PARÇA
.Cells(satır, 8) = TextBox6 'KULLANILDIĞI ARAÇLAR
End With
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
End If
End Sub
Genişletmek için tıkla ...

Vallahi inanılmaz gidiyoruz.
Ufak bir sorun ve olursa süper olur gibi gelen iki fikir daha geldi aklıma ?
1- Yaptığımız son değişiklikle mükerrer kayda izin Vermiyor ama bu seferde hiç kayıt yapmıyor. acaba kodumu yanlış girdim.
2-kaydet butonuna basınca KAYIT BAŞARI İLE YAPILDI yazılabilir mi?
3. Userform2 her açıldığında sahibinden no kısmına kaydedilen verilerin saklandığı sahibinden sayfasında ki A sütununda bulunan en yüksek sayılı VH kodunun 1 fazlasının gelmesini nasıl sağlarız. Bu işlemi yapabilirsek kullanıcı her seferinde yeni tanımlayacağı ürün için gireceği VH kodlu sayıyı bulabilmek adına sahibinden sayfasına gidip aramayacak. Userform açıldığında otomatik olarak gelen VH koduna kaydedecek.
3.
Cells(satır, 1) = TextBox1 'SAHİBİNDEN NO
.Cells(satır, 2) = TextBox5 'MALZEME (Parça ismi)
.Cells(satır, 3) = TextBox4 'ÜRÜNÜN DURUMU
.Cells(satır, 5) = TextBox2 'ORJİNAL PARÇA NO
.Cells(satır, 6) = TextBox8 'ÜRETİCİ FİRMA PARÇA NO
Bu textboxlara herhangi bir giriş yapılmadığı zaman kayıt yapmasını engelleye bilirseniz baya güzel olur. Böylece yanlışlıkla yada hatalı kayıt olmaz. ve kayıt kodu her seferinde kaydettiği satırdan bir sonrakine kayıt yaptığı için yanlışlıkla kaydet butonuna basıldığında veya minimum bilgiler girilmediğinde oluşan satır boşluğu olmaz gibi me geliyor.
ÖRNEK DOSYA LİNKİ
https://www.dosyaupload.com/oamA
 
Merhabalar,
Örnek dosya;
VK001, VH002 ...... şeklinde A sütununa veri giriniz. Son girilen VH.... userform üzerinde labelda görülecek ve buna göre bir üst rakamı VH nın arkasına ilave edersiniz. SAHİBİNDEN NO ve PARÇA İSMİ girilmeden kayıt yapmayacak. SAHİBİNDEN NO kontrollu mükerrer girilemeyecek şekilde ayarlı.
İyi çalışmalar...


https://www.dosyaupload.com/oano
 
Son düzenleme:
Değişken adı satır değilde satir olmalı.İngilizce Windowslar'da veya ofislerde hata verebilir.
Onun için değişken adlarında Türkçe karakterler kullanmasanız iyi olur.:cool:
 
Orion1' Alıntı:
Değişken adı satır değilde satir olmalı.İngilizce Windowslar'da veya ofislerde hata verebilir.
Onun için değişken adlarında Türkçe karakterler kullanmasanız iyi olur.:cool:
Genişletmek için tıkla ...
Teşekkür ederim. Dikkat edeceğim.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst