[Yardım]  kayıt kontrol

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

kayıt kontrol

İleti#1)  fatihselcuk83 » 15 Nis 2019 01:34

Arkadaşlar, şöyle bir koda ihtiyacım var:
Commandbutton3'e tıkladığımda textbox9'un değerini (metin) "soruaşama" sayfasının E4:E1000 arasındaki sütununda arasın, eğer varsa "Bu daha önce girilmiş" diye msgbox gelsin, excel sayfasında hiçbir işlem yapmasın, userformdaki textbox1,2,3,4,5,6,7,8,9 ve 10'un içeriğini temizlesin ve E sütunundaki son değerin altındaki hücreyi seçsin. Eğer textbox 9'un değeri E4:E1000 arasında yoksa E sütunundaki son değerin altındaki ilk satıra textbox 9'un değerini yazsın, userformdaki textbox1,2,3,4,5,6,7,8,9 ve 10'un içeriğini temizlesin ve kaydedildi diye msgbox uyarısı gelsin ve bu satırın hemen altındaki ilk boş satırı seçsin.
Forumda mükerrer kayıt olarak arattım ama kendi dosyama uygulayamadım.
Yardımcı olursanız sevinirim.
Kullanıcı avatarı
fatihselcuk83
Yeni Başlamış
 
Adı Soyadı:Fatih SELÇUK
Kayıt: 05 Ağu 2013 10:59
İleti: 14
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BALIKESİR

Cevap: kayıt kontrol

İleti#2)  AhmetRasim » 15 Nis 2019 11:01

Merhabalar;
Örnek olarak şu kodlar ile yapabilirsiniz.
Kod: Tümünü seç
Private Sub CommandButton3_Click()

bul = TextBox9.Text
son = Range("E1000").End(3).Row + 1

For x = 4 To Range("E1000").End(xlUp).Row
    If Cells(x, "E").Value = bul Then

MsgBox "Bu kayıt daha önce girilmiş", vbExclamation, "Uyarı"
Range("E1000").End(3).Offset(1, 0).Select

        For y = 1 To 10
            If Controls("Textbox" & y) <> Empty Then
            Controls("Textbox" & y).Value = Empty
            End If
        Next y

Exit Sub
End If
Next x

    Cells(son, "E").Value = bul
    Range("E1000").End(3).Offset(1, 0).Select
    MsgBox "Yeni Kayıt Eklendi", vbInformation, "Bilgi"
   
        For y = 1 To 10
            If Controls("Textbox" & y) <> Empty Then
            Controls("Textbox" & y).Value = Empty
            End If
        Next y

End Sub
Kullanıcı avatarı
AhmetRasim
Site Dostu
 
Adı Soyadı:Ahmet Rasim
Kayıt: 20 Kas 2013 21:40
Konum: İstanbul
Meslek: Serbest
Yaş: 33
İleti: 1133
 
Cinsiyet: Bay

Cevap: kayıt kontrol

İleti#3)  fatihselcuk83 » 16 Nis 2019 00:55

Teşekkür ederim.
Yalnız şöyle bir sıkıntı var.
daha önce girdiğim verileri dikkate almıyor.
E4:E220 arası metin girdim. Daha da gireceğim. Fırsat buldukça ekleyeceğim. Ben ekledikçe,çok önceden girmiş olduğum verileri de kontrol etsin istedim ama onları kontrol etmedi. Bu metinlerin aynısını girmeye çalıştığımda veriyi kaydediyor. Tekrar girmeye çalıştığımda yapması gerekeni yapıyor ve bu verinin daha önce girildiğini söyleyip girmeye çalıştığım veriyi siliyor. Boşluğa virgüle dikkat etmeme rağmen.
Örneğin e5 hücresinde "Ali Veli" yazmışım daha önce. e6,e7e8... diye e220 ye kadar metin girilmiş.
textbox9 da ali veli yazıldığında önceden girmiş olduğumu dikkate almayıp bunu kaydediyor. 2. kez girmeye çalıştığımda kaydetmiyor.
Bir bilgi:
textbox9 daki metin textbox1,2,3,4,5,6,7, ve 8 in birleşmesinden elde ediliyor.
Sizin kodlardan önce
TextBox9.Text = TextBox1.Text & " " & TextBox2.Text & " " & TextBox3.Text & " " & TextBox4.Text & " " & TextBox5.Text & " " & TextBox6.Text & " " & TextBox7.Text & " " & TextBox8.Text
kodu ekledim.
yine olmadı.
Textbox 9 a kendim metin girerek denedim. yine olmadı.
Sorun nerede acaba?
Kullanıcı avatarı
fatihselcuk83
Yeni Başlamış
 
Adı Soyadı:Fatih SELÇUK
Kayıt: 05 Ağu 2013 10:59
İleti: 14
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BALIKESİR

Cevap: kayıt kontrol

İleti#4)  AhmetRasim » 16 Nis 2019 10:19

Merhabalar;
Son açıklamanıza göre örnek bir dosya hazırladım.

-Örnek dosya, çalışmanıza uygun olmazsa Siz çalışma dosyanızın örnek halini ekleyiniz. ;)
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
AhmetRasim
Site Dostu
 
Adı Soyadı:Ahmet Rasim
Kayıt: 20 Kas 2013 21:40
Konum: İstanbul
Meslek: Serbest
Yaş: 33
İleti: 1133
 
Cinsiyet: Bay

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: kayıt kontrol

İleti#5)  fatihselcuk83 » 22 Nis 2019 01:55

Çok teşekkür ederim.
Kullanıcı avatarı
fatihselcuk83
Yeni Başlamış
 
Adı Soyadı:Fatih SELÇUK
Kayıt: 05 Ağu 2013 10:59
İleti: 14
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BALIKESİR

Cevap: kayıt kontrol

İleti#6)  AhmetRasim » 22 Nis 2019 11:05

Merhabalar;
Rica ederim.
Saygılarımla, iyi çalışmalar.
Kullanıcı avatarı
AhmetRasim
Site Dostu
 
Adı Soyadı:Ahmet Rasim
Kayıt: 20 Kas 2013 21:40
Konum: İstanbul
Meslek: Serbest
Yaş: 33
İleti: 1133
 
Cinsiyet: Bay

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: kayıt kontrol

İleti#7)  fatihselcuk83 » 24 Nis 2019 23:10

Ahmet rasim hocam,
son kez rahatsız ediyorum.
Müsait bir zamanınızda ilgilenirseniz sevinirim.
Örnek dosyayı ekledim. Dosyada da teferruatlı bir şekilde anlatmaya çalıştım.
Şöyle ki:
Belirli bir alanda "G4:U1000" arasında boşluksuz, rakamsız kelimeler var. Bazıları 3 harfli bazıları 7 harfli....vb.
Bu tabloda yer alan 4 harfli kelimeyi "rastgele" seçmek istiyorum. o kelimeyi ve o kelimenin bulunduğu satırın e sütunundaki metni başka bir yere ayrı ayrı kopyalasın istiyorum ve bu işi 4 harfliler için 20 kez yapmak istiyorum. Bir satırda herhangi bir kelimeyi daha önce seçmişsem o satırda bir daha işlem yapmak istemiyorum.
aynı işi 5 harfliler, 6 harfliler....en son 12 harfliler için de yapmak istiyorum.
Cılız bilgimle bir şeyler yapmaya çalıştım ama bilgisayarım çok kastı. Döngüler çok fazla ve herhangi bir değişiklik yapmaya çalıştığımda döngüden çıkamıyor ve sinir oluyorum.
Yardımcı olursan sevinirm.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
fatihselcuk83
Yeni Başlamış
 
Adı Soyadı:Fatih SELÇUK
Kayıt: 05 Ağu 2013 10:59
İleti: 14
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: BALIKESİR


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot], itouchcanmedia ve 0 misafir

Bumerang - Yazarkafe