makrolar konusunda yardım edermisiniz.

[ardaserim]

excel dosyasının içindeki açıklamalara göre mokrolamaya ihtiyacım var

 

[Orion1]

Dosyanız ekte.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim k As Range
If Intersect(Target, [A5:A65536]) Is Nothing Then Exit Sub
On Error Resume Next
If Target.Value = "" Then Exit Sub
Set k = Sheets("plakalar").Range("A3:A65536").Find(Target.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    Target.Offset(0, 1).Value = k.Offset(0, 1).Value
End If
Set k = Nothing
End Sub

 

[ardaserim]

SaĞol Evren Usta

 

[Orion1]

SaĞol Evren Usta

Rica ederim.iyi çalışamlar