VERİ GİRİŞİ VE KAYDETME

Y

yamahato

Altın Üye
Katılım
20 Mayıs 2009
Mesajlar
233
Excel Vers. ve Dili
excel 2007
Altın Üyelik Bitiş Tarihi
30-09-2026
Bana yardımcı olabilirseniz çok sevinrim.
 
YUSUF44

YUSUF44

Destek Ekibi
Destek Ekibi
Katılım
4 Ocak 2006
Mesajlar
12,073
Excel Vers. ve Dili
İş : Ofis 365 - Türkçe
Ev: Ofis 365 - Türkçe
Neye nasıl yardımcı olmamızı istiyorsunuz?
 
byfika

byfika

Altın Üye
Altın Üye
Katılım
15 Ağustos 2009
Mesajlar
499
Excel Vers. ve Dili
Excel Vers. ve Dili : Ofis 2016 Tr
Altın Üyelik Bitiş Tarihi
13.09.2027
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
 
Orion1

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Kod: 
satır = .Range("A65536").End(3).Row + 1
Değişkenlerde Türkçe karakterler kullanmayınız.:cool:
 
Y

yamahato

Altın Üye
Katılım
20 Mayıs 2009
Mesajlar
233
Excel Vers. ve Dili
excel 2007
Altın Üyelik Bitiş Tarihi
30-09-2026
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.
 
byfika

byfika

Altın Üye
Altın Üye
Katılım
15 Ağustos 2009
Mesajlar
499
Excel Vers. ve Dili
Excel Vers. ve Dili : Ofis 2016 Tr
Altın Üyelik Bitiş Tarihi
13.09.2027
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
 
Y

yamahato

Altın Üye
Katılım
20 Mayıs 2009
Mesajlar
233
Excel Vers. ve Dili
excel 2007
Altın Üyelik Bitiş Tarihi
30-09-2026
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.
 
byfika

byfika

Altın Üye
Altın Üye
Katılım
15 Ağustos 2009
Mesajlar
499
Excel Vers. ve Dili
Excel Vers. ve Dili : Ofis 2016 Tr
Altın Üyelik Bitiş Tarihi
13.09.2027
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
 
Y

yamahato

Altın Üye
Katılım
20 Mayıs 2009
Mesajlar
233
Excel Vers. ve Dili
excel 2007
Altın Üyelik Bitiş Tarihi
30-09-2026
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
 
Y

yamahato

Altın Üye
Katılım
20 Mayıs 2009
Mesajlar
233
Excel Vers. ve Dili
excel 2007
Altın Üyelik Bitiş Tarihi
30-09-2026
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
 
byfika

byfika

Altın Üye
Altın Üye
Katılım
15 Ağustos 2009
Mesajlar
499
Excel Vers. ve Dili
Excel Vers. ve Dili : Ofis 2016 Tr
Altın Üyelik Bitiş Tarihi
13.09.2027
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:
Orion1

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
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:
 
Y

yamahato

Altın Üye
Katılım
20 Mayıs 2009
Mesajlar
233
Excel Vers. ve Dili
excel 2007
Altın Üyelik Bitiş Tarihi
30-09-2026
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.
Üst