otomatik satır ekleme

[merhaba]

B9 hücresine veri girdiğimde otamatik satır eklesin ve alt toplama dahil olsunlar.Şimdiden teşekkür ederim.

 

[1Al2Ver]

B9 hücresine veri girdiğimde otamatik satır eklesin ve alt toplama dahil olsunlar.Şimdiden teşekkür ederim.

Merhaba,

Veri--Listele ile çözüm olabilir.

 

[bedri41]

Aşağıdaki kodları Thisworkbook sayfasına kopyalayıp deneyiz.

Option Explicit

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, Range("B5:B65536")) Is Nothing Then Exit Sub
Application.EnableEvents = False
If UCase$(Target) > 0 Then
Rows(Target.Row + 1).Insert
End If
Son:
Application.EnableEvents = True
End Sub

 

[merhaba]

hocam
otomatik satır eklemiyor

 

[ynmcan]

B9 hücresine veri girdiğimde otamatik satır eklesin ve alt toplama dahil olsunlar.Şimdiden teşekkür ederim.

Syn. Merhaba ;
Ekteki dosyayı inceleyin.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

sat = [a65536].End(3).Row - 1

If Intersect(Target, Cells(sat + 1, 2)) Is Nothing Then

If Cells(sat + 1, 2) <> "" Then
         Range("A" & sat + 2, "J" & sat + 2).Insert
               Range("A" & sat + 1, "J" & sat + 1).Copy
                     Range("A" & sat + 2, "J" & sat + 2).PasteSpecial
                           Application.CutCopyMode = False
                                 Cells(sat + 2, 2) = ""
                                 
Exit Sub
     End If
         End If
         
End Sub

 

[bedri41]

Ben denedim tarih yazdığınızda ekleme yapıyor. Dosyanız ekte

 

[merhaba]

Bana zaman ayırdığınız için hepinize sonsuz teşekkür ederim.hakkınızı helal edin.