[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 20: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 10:29
Konum: Samsun
Meslek: Memur
Yaş: 40
İleti: 634
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya

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

İleti#2)  feraz » 23 Haz 2018 21: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 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5069
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

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

İleti#3)  feraz » 23 Haz 2018 21: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 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5069
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

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

İleti#4)  Metin1981 » 23 Haz 2018 21: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 10:29
Konum: Samsun
Meslek: Memur
Yaş: 40
İleti: 634
 
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 21:35

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

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

İleti#6)  Metin1981 » 23 Haz 2018 21: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 10:29
Konum: Samsun
Meslek: Memur
Yaş: 40
İleti: 634
 
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 22: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 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5069
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

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

İleti#8)  feraz » 23 Haz 2018 22: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 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5069
 
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 1 misafir

Bumerang - Yazarkafe