[Yardım]  TextBox1’de ki Veriyi Textbox2’ye Şartlı Yazmak

Metin Kutucuğu. Bir programcının olmazsa olmazlarındandır.

TextBox1’de ki Veriyi Textbox2’ye Şartlı Yazmak

İleti#1)  Metin1981 » 23 Haz 2018 18:25

İyi akşamlar;
Ekli örnek dosyada bulunan Textbox1 deki verinin aynısını TextBox2 ye yazdırıyorum.Benim yapmak istediğim textbox1’in içerisindeki cümlenin sonunda tespit edilmiştir kelimesi var ise textbox2 ye yazarken bu kelimeyi silip kanaatiyle; yazdırabilir miyiz?.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Metin1981
Site Dostu
 
Adı Soyadı:Metin KOT
Kayıt: 21 Haz 2012 08:29
Konum: Samsun
Meslek: Memur
Yaş: 40
İleti: 726
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya

Cevap: TextBox1’de ki Veriyi Textbox2’ye Şartlı Yazmak

İleti#2)  feraz » 23 Haz 2018 19:19

Kod: Tümünü seç
Private Sub TextBox1_Change()

    If Right(LCase(TextBox1.Value), 18) = "tespit edilmiþtir." Then
        TextBox2.Value = Mid(TextBox1.Value, 1, (Len(TextBox1.Value) - 18)) & " kanaatiyle;"
    Else
        TextBox2.Value = TextBox1.Value
    End If

End Sub
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5747
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: TextBox1’de ki Veriyi Textbox2’ye Şartlı Yazmak

İleti#3)  feraz » 23 Haz 2018 19:26

Alttakinide diğer forumdan eklemişler.
Bundan sonra ilk önce diğer foruma bakacağım :)
Gereksiz uğraşmamış olurum :)

Kod: Tümünü seç
Private Sub TextBox1_Change()
    If TextBox1.Text Like "*tespit edilmiþtir." Then
        TextBox2.Text = Replace(TextBox1.Text, "tespit edilmiþtir.", "kanaatiyle;")
    Else
        TextBox2.Text = TextBox1.Text
    End If
End Sub
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5747
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: TextBox1’de ki Veriyi Textbox2’ye Şartlı Yazmak

İleti#4)  Metin1981 » 23 Haz 2018 19:34

Çok teşekkür ederim.Ellerinize sağlık.İyi akşamlar
Kullanıcı avatarı
Metin1981
Site Dostu
 
Adı Soyadı:Metin KOT
Kayıt: 21 Haz 2012 08:29
Konum: Samsun
Meslek: Memur
Yaş: 40
İleti: 726
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya

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

Cevap: TextBox1’de ki Veriyi Textbox2’ye Şartlı Yazmak

İleti#5)  feraz » 23 Haz 2018 19:35

Rica ederim,sizede.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5747
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: TextBox1’de ki Veriyi Textbox2’ye Şartlı Yazmak

İleti#6)  Metin1981 » 23 Haz 2018 19:50

Sayın Feraz Cümlenin ortasında örneğin "2B alanı içerisinde kaldığı Tespit edilmiştir.Orman sayılmayan yerlerden olduğu tespit edilmiştir." dediğim zaman da her ikisini de değiştiriyor.Değiştirme işlemi en son yazılan veride olacak.böyle yapar mısınız
Kullanıcı avatarı
Metin1981
Site Dostu
 
Adı Soyadı:Metin KOT
Kayıt: 21 Haz 2012 08:29
Konum: Samsun
Meslek: Memur
Yaş: 40
İleti: 726
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: TextBox1’de ki Veriyi Textbox2’ye Şartlı Yazmak

İleti#7)  feraz » 23 Haz 2018 20:14

Tam anlamadım fakat alttaki gibi deneyiniz.

Private Sub TextBox1_Change() yerine Private Sub TextBox1_LostFocus() yazın.
Ve excel hücreye tıklayın textboxa veri girme işlemi bitince.
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5747
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: TextBox1’de ki Veriyi Textbox2’ye Şartlı Yazmak

İleti#8)  feraz » 23 Haz 2018 20:28

Alttaki kodu yazan arkadaşında eline sağlık.Güzel olmuş.InStrRev bunu bende öğrenmiş oldum :)

Kod: Tümünü seç
Private Sub TextBox1_Change()
    If TextBox1.Text Like "*tespit edilmiþtir." Then
        myStr = TextBox1.Text
        str1 = "tespit edilmiþtir."
        str2 = "kanaatiyle;"
       
        Pos = InStrRev(myStr, str1)
       
        If Pos > 0 Then
            TextBox2.Text = Mid(myStr, 1, Pos - 1) & Replace(myStr, str1, str2, Pos)
        End If
    Else
        TextBox2.Text = TextBox1.Text
    End If
End Sub
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5747
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray


Forum TextBox

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 2 misafir

Bumerang - Yazarkafe