[Yardım]  Arama ve Bulma Formülü Hakkında

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

Arama ve Bulma Formülü Hakkında

İleti#1)  snrkrmz » 01 Tem 2019 00:41

Arkadaşlar Kullanmış olduğum formülde Ad tanımladığım hücre içerisindeki sayıları arıyor ve buluyor Sayının olduğu hücreye gidiyor. Ancak tanımlanmış ad oalrak kullandığım hücrelerin içine yazı yazdığımda ve o yazıyı aramak için kullandığımda bulunamadı uyarısı alıyorum Formülde ki Len ve Mid komutlarıyla alakalı olduğunu düşüyorum ama başarılı bir sonuca varamadım. Aşağıdaki kodlarda ne gibi bir değişiklik yaparak hücreye yazı yazdığımda yazıyı arar ve ulur. ?



TextBoxBirimAmr.Value = UCase(Trim(TextBoxBirimAmr.Value))
boyu = Len(Trim(TextBoxBirimAmr.Value))
For Each Kurum In Worksheets("Kurum").Range("KODLAR")
If Mid(Kurum.Value, 1, boyu) = Mid(TextBoxBirimAmr.Value, 1, boyu) Then
Rows(Kurum.Row).Select
If Mid(Kurum.Value, 1, boyu) = Mid(TextBoxBirimAmr.Value, 1, boyu) Then
BirimIsmi.Value = Cells(Kurum.Row, 2).Value
TextBoxBrmAmGrv.Value = Cells(Kurum.Row, 3).Value
Kullanıcı avatarı
snrkrmz
Yeni Başlamış
 
Kayıt: 24 Haz 2019 23:36
Meslek: İŞÇİ
Yaş: 35
İleti: 16
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANAKRA

Cevap: Arama ve Bulma Formülü Hakkında

İleti#2)  snrkrmz » 01 Tem 2019 18:12

Dosyayı Ekliyorum. Lütfen İlgilenebilirmisiniz
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
snrkrmz
Yeni Başlamış
 
Kayıt: 24 Haz 2019 23:36
Meslek: İŞÇİ
Yaş: 35
İleti: 16
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANAKRA

Cevap: Arama ve Bulma Formülü Hakkında

İleti#3)  feraz » 01 Tem 2019 21:49

For Each Kurum In Worksheets("Sayfa1").Range("KODLAR")
If Mid(UCase(Kurum.Value), 1, boyu)
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 17:36
Konum: Almanya
Meslek: İşçi
Yaş: 40
İleti: 5952
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: ertugrul1956, Google Adsense [Bot], Sogou, Yandex[Bot] ve 1 misafir

Bumerang - Yazarkafe