1 sayfadan 1. sayfa

Arama ve Bulma Formülü Hakkında

İletiTarih: 01 Tem 2019 00:41
snrkrmz
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

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

İletiTarih: 01 Tem 2019 18:12
snrkrmz
Dosyayı Ekliyorum. Lütfen İlgilenebilirmisiniz

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

İletiTarih: 01 Tem 2019 21:49
feraz
For Each Kurum In Worksheets("Sayfa1").Range("KODLAR")
If Mid(UCase(Kurum.Value), 1, boyu)