Ara bul uyar ile ilgili alternatif kod. Için yardım

[mozakay]

ARKADAŞLAR MERHABA,

Aşağıdaki kod ile çalışan makro istediğimi karşılamıyor. Tam olarak ne istediğimi yazarak anlatmak zor. örnek dosya üzerinde ne istediğimi anlatmaya çalıştım. kondu hakkında bilgisi olan arkadaşlar yardımcı olursa çok sevinirim.
hazırladığım örnek dosya linkini paylaşıyorum.

http://s6.dosya.tc/server5/t6d6pe/ORNEK_DOSYA1.xls.html

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("B2:B65536")) Is Nothing Then GoTo 10


Set BUL = Sheets("TAKİP").Range("C:C").Find(Target, , , xlWhole)
If Not BUL Is Nothing Then
End If
With Target
If .Count > 1 Or .Column <> 2 Then Exit Sub
.Font.Color = vbBlack
.Interior.ColorIndex = 2
'.Interior.ColorIndex = xlNone
.Font.Size = 11
.Font.Bold = True
.Font.Italic = False
.Font.Underline = False
If Application.CountIf(Worksheets("TAKİP").Columns(2), .Value) > 0 Then

'.Font.Color = vbGreen
'.Font.Color = vbBlack
'.Font.Color = vbRed
.Font.Color = vbBlack
'.Interior.ColorIndex = 1
.Interior.ColorIndex = 3
.Font.Size = 11
.Font.Bold = True
.Font.Italic = False
.Font.Underline = False

MsgBox Worksheets("TAKİP").Columns(2).Find(.Value).Offset(, 1).Value

End If
End With
10

End Sub

 

[Orion1]

Dosyanız linktedir.

DOSYAYI İNDİR

Private Sub CommandButton1_Click()
Dim sat As Long
sat = Cells(Rows.Count, "C").End(xlUp).Row + 1
Cells(sat, "C").Value = ComboBox1.Value
Cells(sat, "F").Value = ComboBox2.Value
Cells(sat, "I").Value = ComboBox3.Value
Unload Me
End Sub

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "'PERSONEL LİSTESİ '!B2:B" & _
        Sheets("PERSONEL LİSTESİ ").Cells(Rows.Count, "B").End(xlUp).Row
ComboBox2.RowSource = "'PERSONEL LİSTESİ '!B2:B" & _
        Sheets("PERSONEL LİSTESİ ").Cells(Rows.Count, "B").End(xlUp).Row
ComboBox3.RowSource = "'PERSONEL LİSTESİ '!B2:B" & _
        Sheets("PERSONEL LİSTESİ ").Cells(Rows.Count, "B").End(xlUp).Row
ComboBox1.ListIndex = 0
ComboBox2.ListIndex = 0
ComboBox3.ListIndex = 0
End Sub

 

[mozakay]

Evren bey merhaba,
çok özür dilerim. yanlış dosya linki göndermişim.
doğru link aşağıdadır.

http://s6.dosya.tc/server5/mqey5p/ORNEK_DOSYA1.rar.html