Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Excel'e Yeni Başlayanlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Excel'e Yeni Başlayanlar Excel kullanmaya yeni başladıysanız sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 24-12-2017, 19:21   #1
kenann24
 
Giriş: 24/12/2017
Şehir: istanbul
Mesaj: 5
Excel Vers. ve Dili:
excel 2016 türkçe
Varsayılan Excelde doldurulması zorunlu alan yapma

Arkadaşlar merhaba excelde ve forumda yeniyim.
Elimde bir sipariş formu var ve ben bazı yerlerin doldurulmasını zorunlu yapmak istiyorum.Yardımcı olabilir misiniz?
Şimdiden teşekkürler.
kenann24 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 24-12-2017, 19:53   #2
TanerSaydam
Altın Üye
 
Giriş: 13/10/2017
Şehir: Kayseri
Mesaj: 175
Excel Vers. ve Dili:
2003-tr
Varsayılan

Geçenlerde benzer bir çalışma yaptım. Ama ben verileri UserForm ile aktardım. UserForm 'a eklediğim TextBox'lara uzunluk ve kısalık değerleri vererek doldurulması zorunlu alanlar haline
getirdim. Ama bunu hücrelerde yapabilir misin bilemiyorum. TextBox için kullanacağın kod aşağıda.

Bu kod maximum girilecek karakter sayısını belirliyor.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
TextBox4.MaxLength = 12
Bu da belirlediğim karakterin altında ya da boş girerse uyarı veriyor.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
ElseIf TextBox4.Text = "" Then
Uyarı1 = MsgBox("GTIP Numarası Girmediniz!", vbOKOnly + vbCritical, "HATA!")
TextBox4.SetFocus
Exit Sub
ElseIf Len(TextBox4.Text) < 12 Then
Uyarı1 = MsgBox("GTIP Numarasını Eksik Karakter Girdiniz. 12 Karakter Girmelisiniz!", vbOKOnly + vbCritical, "HATA!")
TextBox4.SetFocus
Exit Sub
TanerSaydam Çevrimdışı   Alıntı Yaparak Cevapla
Eski 24-12-2017, 20:01   #3
kenann24
 
Giriş: 24/12/2017
Şehir: istanbul
Mesaj: 5
Excel Vers. ve Dili:
excel 2016 türkçe
Varsayılan

Ya peki birşey daha sorabilir miyim?
Bu kodu böylece kopyala yapıştırmı yapıcam nasıl olacak hiç bilmiyorumda yardım eder msiiniz?
kenann24 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 24-12-2017, 20:09   #4
kenann24
 
Giriş: 24/12/2017
Şehir: istanbul
Mesaj: 5
Excel Vers. ve Dili:
excel 2016 türkçe
Varsayılan

Alıntı:
TanerSaydam tarafından gönderildi Mesajı Görüntüle
Geçenlerde benzer bir çalışma yaptım. Ama ben verileri UserForm ile aktardım. UserForm 'a eklediğim TextBox'lara uzunluk ve kısalık değerleri vererek doldurulması zorunlu alanlar haline
getirdim. Ama bunu hücrelerde yapabilir misin bilemiyorum. TextBox için kullanacağın kod aşağıda.

Bu kod maximum girilecek karakter sayısını belirliyor.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
TextBox4.MaxLength = 12
Bu da belirlediğim karakterin altında ya da boş girerse uyarı veriyor.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
ElseIf TextBox4.Text = "" Then
Uyarı1 = MsgBox("GTIP Numarası Girmediniz!", vbOKOnly + vbCritical, "HATA!")
TextBox4.SetFocus
Exit Sub
ElseIf Len(TextBox4.Text) < 12 Then
Uyarı1 = MsgBox("GTIP Numarasını Eksik Karakter Girdiniz. 12 Karakter Girmelisiniz!", vbOKOnly + vbCritical, "HATA!")
TextBox4.SetFocus
Exit Sub


Ben size excel dosyasını mail atsam sizde onun üzerinde yapsanız bende bakıp anlamaya çalışsam olurmu?
kenann24 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 24-12-2017, 20:16   #5
cems
Altın Üye
 
cems kullanıcısının avatarı
 
Giriş: 02/09/2005
Şehir: İstanbul
Mesaj: 1,881
Excel Vers. ve Dili:
office 2003 tr + office 2010 tr 32bit
Varsayılan

..................
cems Çevrimdışı   Alıntı Yaparak Cevapla
Eski 24-12-2017, 20:19   #6
TanerSaydam
Altın Üye
 
Giriş: 13/10/2017
Şehir: Kayseri
Mesaj: 175
Excel Vers. ve Dili:
2003-tr
Varsayılan

Mail Atmayın buraya bir adrese yükleyip koyun, bende o şekilde geri dönüş yapayım. Bu konuya giren başka arkadaşlar olursa, onlarda yararlansın.
TanerSaydam Çevrimdışı   Alıntı Yaparak Cevapla
Eski 24-12-2017, 20:23   #7
kenann24
 
Giriş: 24/12/2017
Şehir: istanbul
Mesaj: 5
Excel Vers. ve Dili:
excel 2016 türkçe
Varsayılan

Alıntı:
TanerSaydam tarafından gönderildi Mesajı Görüntüle
Mail Atmayın buraya bir adrese yükleyip koyun, bende o şekilde geri dönüş yapayım. Bu konuya giren başka arkadaşlar olursa, onlarda yararlansın.

http://s3.dosya.tc/server13/6d3ef4/s...rmu1.xlsx.html
kenann24 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 24-12-2017, 22:53   #8
TanerSaydam
Altın Üye
 
Giriş: 13/10/2017
Şehir: Kayseri
Mesaj: 175
Excel Vers. ve Dili:
2003-tr
Varsayılan

Dosyanız
https://www.dosyaupload.com/lXbS

Ben Firma adı ve Sipariş Girşi ekranını oluşturdum. Firma Adı'na "BOŞ GEÇİLEMEZ" diye Eğer kodu kodladım. Sipariş Girişinde bu kod yok, doluysa bir alt satıra yazar. Alt+F11 diyerek makro kodlarına ulaşabilirsiniz. Gerisini artık kodlardan bakarak çözersiniz.

NOT: Aşağıdaki kodlar başkaları da görsün diye. Attığım excel'de bu kodlar var.

EKRAN GÖRÜNTÜLERİ:
EXCEL SAYFASI GÖRÜNTÜSÜ


FİRMA GİRİŞİ FORMU


SİPARİŞ GİRİŞİ FORMU


Kullandığım Kodlar:
Modul 1
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub FirmaGirisi_Show()
    FirmaGirisi.Show
End Sub

Sub Sayfa_Temizle()
mesaj = MsgBox("Sayfayı temizlemek istiyor musunuz? Bu işlemin geri dönüşü yoktur!", vbYesNo + vbQuestion, "SAYFAYI TEMİZLE?")

Select Case mesaj

Case Is = vbYes
    Sayfa1.Range("E8:E13, F13, J6:J12, D16:J35").ClearContents
    MsgBox ("İşlem başarıyla gerçekleştirildi.")
Case Is = vbNo
    MsgBox ("İşlem iptal edildi.")
End Select
End Sub

Sub SiparisGirisi_Show()
   SiparisGirisi.Show
End Sub

UserForm1 - FirmaGirisi

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton1_Click()
If TextBox1.Text = "" Then
mesaj = MsgBox("Firma adı yazmadınız! Firma adı boş bırakılamaz!", vbOKOnly + vbExclamation, "UYARI!")
TextBox1.SetFocus
Exit Sub
ElseIf TextBox2.Text = "" Then
mesaj = MsgBox("Firma adresi yazmadınız! Firma adresi boş bırakılamaz!", vbOKOnly + vbExclamation, "UYARI!")
TextBox2.SetFocus
Exit Sub
ElseIf TextBox3.Text = "" Then
mesaj = MsgBox("Firma Vergi Dairesi yazmadınız! Firma Vergi Dairesi boş bırakılamaz!", vbOKOnly + vbExclamation, "UYARI!")
TextBox3.SetFocus
Exit Sub
ElseIf TextBox4.Text = "" Then
mesaj = MsgBox("Firma VN/TC no yazmadınız! Firma VN/TC no boş bırakılamaz!", vbOKOnly + vbExclamation, "UYARI!")
TextBox4.SetFocus
Exit Sub
End If

If Sayfa1.Range("E8").Value = "" Then
Sayfa1.Range("E8").Value = TextBox1.Text
ElseIf Sayfa1.Range("E8").Value <> "" Then
mesaj = MsgBox("Firma adı dolu! Aktarım yapmadan önce bilgileri temizleyin!", vbOKOnly + vbExclamation, "UYARI!")
End If
If Sayfa1.Range("E9").Value = Empty Then
Sayfa1.Range("E9").Value = TextBox2.Text
ElseIf Sayfa1.Range("E9").Value <> "" Then
mesaj = MsgBox("Firma adresi dolu! Aktarım yapmadan önce bilgileri temizleyin!", vbOKOnly + vbExclamation, "UYARI!")
End If
If Sayfa1.Range("E13").Value = "" Then
Sayfa1.Range("E13").Value = TextBox3.Text
ElseIf Sayfa1.Range("E13").Value <> "" Then
mesaj = MsgBox("Vergi / TC No bilgileri dolu! Aktarım yapmadan önce bilgileri temizleyin!", vbOKOnly + vbExclamation, "UYARI!")
End If
If Sayfa1.Range("F13").Value = "" Then
Sayfa1.Range("F13").Value = TextBox4.Text
Sayfa1.Range("F13").NumberFormat = "###########"
ElseIf Sayfa1.Range("F13").Value <> "" Then
mesaj = MsgBox("Vergi / TC No bilgileri dolu! Aktarım yapmadan önce bilgileri temizleyin!", vbOKOnly + vbExclamation, "UYARI!")
End If
Unload Me
End Sub

Private Sub CommandButton2_Click()
    Unload Me
End Sub
UserForm2 - SiparisGirisi
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub CommandButton1_Click()
If TextBox1.Text = "" Then
mesaj = MsgBox("Sip.No. Boş olamaz!", vbOKOnly + vbExclamation, "UYARI!")
TextBox1.SetFocus
Exit Sub
ElseIf TextBox2.Text = "" Then
mesaj = MsgBox("Sipariş Tarihi Boş olamaz!", vbOKOnly + vbExclamation, "UYARI!")
TextBox2.SetFocus
Exit Sub
ElseIf TextBox3.Text = "" Then
mesaj = MsgBox("Sevk Tarihi Boş olamaz!", vbOKOnly + vbExclamation, "UYARI!")
TextBox3.SetFocus
Exit Sub
ElseIf TextBox4.Text = "" Then
mesaj = MsgBox("Vade Tarihi Boş olamaz!", vbOKOnly + vbExclamation, "UYARI!")
TextBox4.SetFocus
Exit Sub
End If


If Sayfa1.Range("J6").Value = "" Then
Sayfa1.Range("J6").Value = TextBox1.Text
End If
If Sayfa1.Range("J8").Value = "" Then
Sayfa1.Range("J8").Value = TextBox2.Text
End If
If Sayfa1.Range("J10").Value = "" Then
Sayfa1.Range("J10").Value = TextBox3.Text
End If
If Sayfa1.Range("J12").Value = "" Then
Sayfa1.Range("J12").Value = TextBox4.Text
End If

son = Sayfa1.Range("F" & Rows.Count).End(xlUp).Row
son_satır = 35

If son = 35 Then
mesaj = MsgBox("Sayfa doldu! Bilgileri temizleyin ya da yeni saya açın!", vbCritical + vbOKOnly, "UYARI!")
Exit Sub
End If

Sayfa1.Range("D" & son + 1).Value = TextBox5.Text
Sayfa1.Range("E" & son + 1).Value = TextBox6.Text
Sayfa1.Range("F" & son + 1).Value = TextBox7.Text
Sayfa1.Range("G" & son + 1).Value = TextBox8.Text
Sayfa1.Range("H" & son + 1).Value = TextBox9.Text
Sayfa1.Range("I" & son + 1).Value = CDbl(TextBox10.Text)
Sayfa1.Range("I" & son + 1).NumberFormat = "#,##0.00"
Sayfa1.Range("J" & son + 1).Value = CDbl(TextBox11.Text)
Sayfa1.Range("J" & son + 1).NumberFormat = "#,##0.00"

TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
TextBox5.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
TextBox9.Text = ""
TextBox10.Text = ""
TextBox11.Text = ""

MsgBox ("İşlem Başarılı")
TextBox1.SetFocus
End Sub

Private Sub CommandButton2_Click()
Unload Me
End Sub
TanerSaydam Çevrimdışı   Alıntı Yaparak Cevapla
Eski 26-12-2017, 13:43   #9
kenann24
 
Giriş: 24/12/2017
Şehir: istanbul
Mesaj: 5
Excel Vers. ve Dili:
excel 2016 türkçe
Varsayılan

Taner bey bugün detaylıca inceleyebildim.Çok teşekkür ederim.
Bir sorum daha olacak.
Şimdi ben bi adres defteri yaptım 1. sayfaya yazdığımın 2.sayfadaki bir yere geçmesini istiyorum.
Yaptım ama hep son yazdığım geliyo?
Dosyayı atsam bakabilir misiniz ?
http://s7.dosya.tc/server/nfvcm2/Adr...si111.zip.html
Video ile anlatırsanız çok iyi olur
Şimdiden teşekkür ederim.
kenann24 Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 10:47


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Dil Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Rampa- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Şişli Avukat- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kağıt Bardak- Çorlu Havuz- Çorlu Havuz- Çorlu Perde Yıkama- Okul Danışmanlık- ADR'li taşıma kabı imalatı- Mekanik Tesisat- Çorlu Grafik Tasarım- Çorlu Sondaj- Çorlu Etüt- Futbol Cafe- Beylikdüzü Temizlik- Çorlu Kurs- Çorlu Ders- İzmit Mimar- Hurda Bakır Kablo- Hurda Bakır Kablo- Çorlu Pronet- Çorlu Yönetim- Çorlu Apartman Yönetimi- Çorlu Marangoz- Çorlu Avukat-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden