En üste satır ekleme

[mucox]

Merhaba,

Ekte verdiğim tabloda "data" sayfasında en üst satır hep boş kalsın. Yani 2. satıra değer girdiğimde en üst satıra boş satır eklensin. Yardımcı olur musunuz?

 

[ismailem]

Merhaba,

Ekte verdiğim tabloda "data" sayfasında en üst satır hep boş kalsın. Yani 2. satıra değer girdiğimde en üst satıra boş satır eklensin. Yardımcı olur musunuz?

İlgili Sayfanın Kod bölümüne aşağıdakileri yapıştırdım sorun çözüldü.
Private Sub Worksheet_Change(ByVal Target As Range)
On Local Error GoTo Cikis
Dim t, i As Integer
t = Target.Row
i = Target.Column
If t = 2 And Cells(t, i) <> "" Then
Application.ScreenUpdating = False
Application.EnableEvents = False
Rows(i).Insert
Range("a" & t & ":M" & t).Borders.LineStyle = 1

With Range("a" & t & ":M" & t).Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
Application.ScreenUpdating = True
Application.EnableEvents = True
End If
Cikis:
End Sub

 

[BAZGİRET]

Alternatif olarak bu dosyayı da inceleyebilirsiniz.

 

[ismailem]

Alternatif olarak bu dosyayı da inceleyebilirsiniz.

Alternatif kodunuz için çok teşekkür ederim.

 

[BAZGİRET]

Alternatif kodunuz için çok teşekkür ederim.

Ben teşekkür ederim.

 

[mucox]

Asıl ikinize birden ben teşekkür ederim