TextBox'a göre Sayfa A Sütununda ara karşılığı olan AB ve AC sütununa yaz

[cocoa35]

İyi akşamlar üstatlar, bir konuda yardımınıza ihtiyacım var, ekli örnek dosyada Kiralama sayfası bulunuyor benim istediğim Commandbutton kaydet tuşu ile, UserForm1 üstündeki TextBox1'e yazılan ismi "Kiralama" sayfası B sütununda arasın bulduğunda TextBox2'de yazılanları AB sütunundaki aynı satırdaki hücreye TextBox3'de yazılanları ise AC Sütunundaki denk gelen hücreye yazsın.

 

[cocoa35]

Forumda buldum aşağıdaki formül işimi gördü;
Private Sub CommandButton1_Click()
Dim Bul As Range
Set Bul = Worksheets("Sayfa1").Cells.Find(TextBox1)
If Bul Is Nothing Then
MsgBox "Textbox1 deki değer sayafada bulunmadı"
Else
Bul.Offset(, 8) = TextBox2
End If
Set Bul = Nothing
End Sub

 

[dEdE]

Merhaba,
Yukarıdaki kod büyük/küçük harfe duyarlı değildir. B sütununda yazılı ismin büyük/küçük harf olarak bire bir aynısını arar. Yanlışlıkla bir harf bile büyük/küçük yazılırsa bulamaz.
Aşağıdaki kod, büyük/küçük harf ayrımı yapmadan, aynı isimli kişinin farklı tarihlerde birden fazla kez kayıt edildiği durumlarda da en son kaydı bulur ve o kayıt üzerinde işlem yapar.
Dener misiniz?

Private Sub CommandButton1_Click()
Set s1 = Sheets("Sayfa1")
ss = s1.Cells(Rows.Count, "B").End(3).Row
For i = ss To 4 Step -1
    x = UCase(Replace(Replace(s1.Cells(i, 2).Value, "i", "İ"), "ı", "I"))
    y = UCase(Replace(Replace(TextBox1.Text, "i", "İ"), "ı", "I"))
    If x = y Then
        If s1.Cells(i, "AB") = "" And s1.Cells(i, "AC") = "" Then
            s1.Cells(i, "AB") = TextBox2.Text
            s1.Cells(i, "AC") = TextBox3.Text
            MsgBox "Aktarma işlemi tamamlandı.", vbInformation, "BİLGİ"
            Exit Sub
        End If
    End If
Next i
    MsgBox TextBox1.Text & " isimli kayıt bulunamadı", vbInformation, "DİKKAT !"
    TextBox1.Text = ""
End Sub

 

[cocoa35]

Sn.dEdE teşekkürler ilgi ve alakanız için evet bu şekilde daha güzel oldu, Ben bununla ile ilgili bir konu daha açmak istiyordum, şöyleki aynı belge ütünde yine TextBox1'e isim yazıldığında Sayfada arasın karşılığındaki, CepTelefonu (TextBox4'e) , Email (TextBox5'e) ,Araç Plaka(TextBox6'ya), Marka(TextBox7'e) otomotik olarak yazsın istiyorum.

 

[dEdE]

Merhaba,
Yukarıdaki kodu kendinize göre düzenlemeyi düşünmez misiniz? Mantık aynı, hücre adresi yerine TextBox yazılacak o kadar.
Malum, balık verme veya balık tutmayı öğretme hikayesi.

 

[cocoa35]

Merhaba,
Yukarıdaki kodu kendinize göre düzenlemeyi düşünmez misiniz? Mantık aynı, hücre adresi yerine TextBox yazılacak o kadar.
Malum, balık verme veya balık tutmayı öğretme hikayesi.

Tamam deneyeyim bakalım yapabilecekmiyim

 

[cocoa35]

Sn dEdE uyarlamayı yaptım ama hep aranan bulunmadı ikazı veriyor, bir siz bakarmısınız örnek dosyada nerde hata yapıyorum

 

[dEdE]

Merhaba,
Mevcut kod içinde baş kısmına '**** işareti koyduğum satırları silip öyle deneyiniz.
Ancak #4 numaralı mesajda istedikleriniz ile #7 numaralı mesaja ekli tabloda yaptıklarınız aynı değil. Cep tel no-Kira baş. tarihi gibi. Galiba bu da şaşırtmacası. Bakınız: "sarıdır, kafestedir, öter"

    If X = Y Then
        '****If s1.Cells(i, "I") = "" And s1.Cells(i, "J") = "" And s1.Cells(i, "X") = "" And s1.Cells(i, "Y") = "" Then
           
            TextBox4.Text = s1.Cells(i, "I")
            TextBox5.Text = s1.Cells(i, "J")
            TextBox6.Text = s1.Cells(i, "X")
            TextBox7.Text = s1.Cells(i, "Y")          
            MsgBox "Aktarma işlemi tamamlandı.", vbInformation, "BİLGİ"
            Exit Sub
        '*****End If
    End If

 

[cocoa35]

sn dEdE ok. oldu çok teşekkürler, programı inceleyince onlar değil şimdikilere ihtiyaç olduğunu gördüm o neden ile değiştirdim bazen oluyor öyle

 

[cocoa35]

Merhaba, bu formda çözemediğim bir başka konu oluştu Hücrede saat formatında olanı textbox'a kesirli olarak alıyor onu saat formatında nasıl alabiliriz bazı makroları denedim ama olmadı! örneğin
Private Sub TextBox6_Change()
TextBox6 = Format(TextBox6, "00:00:00")
End Sub

 

[dEdE]

Buraya bakmak lazım