Bul ve aynı olanlara değer gir

[orkuncan5]

Ekteki dosyada adres textboxunda ilçe ismi varken ( öneğin Turhal) il butonuna tıklayıp il ( örneğin Tokat )adını yazdığımda sayfada aynı ilçelerin ( Turhal adının yazılı olduğu sütunun yanındaki) yanındaki il sütununda tokat adını nasıl yazdırırım.

 

[Korhan Ayhan]

Merhaba,

İL bilgisini girdiğiniz forma aşağıdaki kodu uygulayın. İl adını yazıp "Enter" tuşuna bastığınızda eklemeler yapılacaktır.

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
    Dim BUL As Range, ADRES As String
    
    If KeyCode = 13 Then
        If UserForm2.TextBox5 <> "" Then
            If TextBox1 <> "" Then
                Set BUL = Range("D:D").Find(UserForm2.TextBox5, , , xlWhole)
                If Not BUL Is Nothing Then
                ADRES = BUL.Address
                Do
                    BUL.Offset(0, 1) = TextBox1
                Set BUL = Range("D:D").FindNext(BUL)
                Loop While Not BUL Is Nothing And BUL.Address <> ADRES
                End If
                MsgBox "İl tanımlaması tamamlanmıştır.", vbInformation
            End If
        End If
    End If
End Sub

 

[orkuncan5]

Korhan Bey teşekkür ederim.Siz bu işi biliyorsunuz.Sağolun...