DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Set ara = SK.Range("A:A").Find([COLOR="blue"]Target.Value[/COLOR], , xlValues, [COLOR="Blue"]xlwhole[/COLOR])
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim SK As Worksheet
Set SK = Sheets("katalog")
If Target.Address(0, 0) <> "B1" Then Exit Sub
If Target.Value = "" Then Exit Sub
Set ara = SK.Range("A:A").Find(Target.Value, , xlValues, xlWhole)
If Not ara Is Nothing Then
Range("A3") = SK.Cells(ara.Row, "A")
Range("B3") = SK.Cells(ara.Row, "B")
'If sor = vbNo Then
'Else
SK.Rows(ara.Row).Delete
[COLOR="Blue"] Range("A9") = Range("A9") + 1[/COLOR]
'End If
Else
MsgBox "Listede Yok", vbCritical
End If
Range("B1,A3:B3") = ""
Target.Offset(0, 0).Select
Application.EnableEvents = True
End Sub
=BAĞ_DEĞ_DOLU_SAY(katalog!A:A)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Range("B1").Select
End Sub