ara_bul_yaz

[uurc1]

arkadaşlar yardımcı olursanız sevinirim iyi çalışmalar.

 

[Emir Hüseyin Çoban]

. . .

Öncelikle sorunuzun bu ekranda da olması gerekiyor.

Formül ile mi makro ile mi çözüm arıyorsunuz.

. . .

 

[uurc1]

. . .

Öncelikle sorunuzun bu ekranda da olması gerekiyor.

Formül ile mi makro ile mi çözüm arıyorsunuz.

. . .

hocam özür dilerim
sorum
bir değeri makro ile arayarak karşısında ki sütunlara benim verdiğim değeri otamatik olarak girmesini sağlamak istiyorum.
userform kullanarak olabilir.

 

[Emir Hüseyin Çoban]

. . .

Userform burada biraz anlamsız olur.

Aranacak veriyi girdiğinizde mi karışılığını getirsin yoksa
buton tıklayarak liste olarak mı kontrol ettirelim.

Bulamadığı verilerde msgbox olarak mı uyarı versin yoksa satıra Yok diye mi yazsın.

. . .

 

[uurc1]

butona tıklandığında karşısına değer olarak yazarsa güzel olur hocam.
değer bulamadığında msgbox olsun hocam.
ilginiz için teşekkür ederim.

 

[Emir Hüseyin Çoban]

. . .

Sub kod()

    Dim WF As WorksheetFunction: Set WF = Application.WorksheetFunction
    
    For i = 4 To Cells(Rows.Count, "G").End(3).Row
        On Error Resume Next
        f = WF.Match(Cells(i, "G"), Range("B:B"), 0)
        On Error GoTo 0

        If Not IsEmpty(f) Then
            Cells(i, "H") = Cells(f, "C")
            Cells(i, "I") = Cells(f, "A")
            f = Empty
        Else
            Cells(i, "H") = "Yok"
            Cells(i, "I") = "Yok"
            MsgBox Cells(i, "G") & Chr(10) & "Yok ", vbCritical
            f = Empty
        End If
    Next i

End Sub

. . .

 

[uurc1]

Hocam Çalışmadı zahmet olmaz ise kontrol edilebilirsiniz.

 

[Emir Hüseyin Çoban]

. . .

Çalışıyor.
"veli" değerinin sağ ve solunda değer olmadığı için boş getiriyor.
Bir kaç satır daha değişik veri girerek test edin.

. . .

 

[uurc1]

. . .

Çalışıyor.
"veli" değerinin sağ ve solunda değer olmadığı için boş getiriyor.
Bir kaç satır daha değişik veri girerek test edin.

. . .

hocam tam tersini yapmak istemiştim.
benim 1. değer ve 2. değere yazdığım değeri veli yazan sutunda a ve c hücrelerine yerleştirmek istiyorum.

 

[Emir Hüseyin Çoban]

hocam tam tersini yapmak istemiştim.
benim 1. değer ve 2. değere yazdığım değeri veli yazan sutunda a ve c hücrelerine yerleştirmek istiyorum.

. . .

Dikkatimden kaçmış,

Sub kod()

    Dim WF As WorksheetFunction: Set WF = Application.WorksheetFunction
    
    For i = 4 To Cells(Rows.Count, "G").End(3).Row
        On Error Resume Next
        f = WF.Match(Cells(i, "G"), Range("B:B"), 0)
        On Error GoTo 0

        If Not IsEmpty(f) Then
            Cells(f, "C") = Cells(i, "H")
            Cells(f, "A") = Cells(i, "I")
            f = Empty
        Else
            MsgBox Cells(i, "G") & Chr(10) & "Yok ", vbCritical
            f = Empty
        End If
    Next i

End Sub

. . .

 

[uurc1]

hocam çok teşekkür ederim.