Satır Ekleme

[policeman]

Merhaba...
Daha öncede benzer bir soru sormuş,verilen cevabı tablomu değiştirdiğimden(Makro bilgimde alt düzeylerde olduğundan) uygulayamamıştım.
Yeni tablomu ve istediğimi detaylı biçimde dosyama ekledim..
Yardımcı olabilirseniz sevinirim...
Saygılarımla...

 

[Ömer]

Merhaba,

Korhan Bey, gerekli kodları vermiş aşağıdaki ilaveleri yapmanız yeterli olacaktır..

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    [COLOR=red]ActiveSheet.Unprotect Password:="[COLOR=blue][B]A[/B][/COLOR]"[/COLOR]
    On Error GoTo Son
    If Intersect(Target, [W:W]) Is Nothing Then Exit Sub
    If UCase(Target) = "[COLOR=red]OKEY[/COLOR]" Then
    Application.EnableEvents = False
    Range("A" & Target.Row & ":X" & Target.Row).Copy
    Cells(Target.Row + 1, "A").Insert Shift:=xlDown
    Range("F" & Target.Row + 1 & ":H" & Target.Row + 1).ClearContents
    Range("J" & Target.Row + 1).ClearContents
    [COLOR=red]Range("B" & Target.Row + 1).ClearContents[/COLOR]
    Range("M" & Target.Row + 1 & ":X" & Target.Row + 1).ClearContents
    Application.CutCopyMode = False
    Cells(Target.Row + 1, "B").Select
    End If
Son:
    Application.EnableEvents = True
    [COLOR=red]ActiveSheet.Protect Password:="[COLOR=blue][B]A[/B][/COLOR]"[/COLOR]
End Sub

.

 

[policeman]

Sayın Uzmanlar
Her ikinizden de Mevlam razı olsun;teşekkürler...