Soru Textbox1 deki isme göre textbox2 ye adres sayfasından dosya nosunu getirme

[mars2]

İyi Günler;

Userformda bulunan Textbox1 deki yazılı isme göre adres sayfasının B sutundaki doysa nosu Textbox2 ye gelmesini istiyorum.

Diğer taraftan aynı isme kayıtlı farklı dosya nosu bulunması mümkündür.

 

[YUSUF44]

Örnek dosya paylaşmanızı öneririm.

Ayrıca "farklı dosya nosu bulunması mümkün" ise bu durumda ne yapılması gerektiğini de açıklarsanız iyi olur.

 

[mars2]

Örnek dosya ektedir
Aynı kişinin farklı dosyları bulunması halinde gelen dosya nosu yanlışlık bulunması halinde düzeltmeye imkan verilmesi

 

[YUSUF44]

Eki unuttunuz galiba.

 

[mars2]

İyi Günler;
örnek dosya yüklemede sorunla karşılaştığımdan buna ait resimi aşaığda eklemekteyim. Ancak, sorunumun çözülememsi halinde akşam farklı bir bilgisayardan yüklemeye çalışacağım.

 

[YUSUF44]

Böyle durumlarda örnek dosya paylaşmak çok önemlidir çünkü makrolarda kullanılacak sayfa adları, satır ve sütunlarda harf hatası olmaması gerekir.

Paylaştığınız ekran görüntüsüne göre tahmini bir kod hazırladım. Userforma ekleyin. Textbox1'de veri girdikçe işlem yapar:

Private Sub TextBox1_Change()
Set s1 = Sheets("adres")
son = WorksheetFunction.Max(2, s1.Cells(Rows.Count, "C").End(3).Row)

If WorksheetFunction.CountIf(s1.Range("C1:C" & son), TextBox1.Text) > 1 Then
    TextBox2.Value = "Birden fazla dosya no var, düzeltiniz!"
ElseIf WorksheetFunction.CountIf(s1.Range("C1:C" & son), TextBox1.Text) = 1 Then
    sat = WorksheetFunction.Match(TextBox1.Text, s1.Range("C1:C" & son), 0)
    TextBox2.Value = s1.Cells(sat, "B")
Else
    TextBox2 = "Yok"
End If
End Sub

 

[mars2]

Sayın YUSUF44;

Cebanız için ilgi ve emeğinize sağlık.