Eğer çalışma sayfasındaki aktif hücrenin değeri (seçilen hücre) 15’ten büyükse Insert metodunu kullanarak o sayının bulunduğu satırın bir altına bir satır ekleyen koddur.
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x As Range
Set x = ActiveCell
If IsNumeric(x) And x >= 15 Then
Rows(x.Offset(1, 0).Row).Insert Shift:=xlDown
End If
End Sub
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim x As Range
Set x = ActiveCell
'--------------------------------------------------
'Hücre içeriğini kontrol et, gerekli şartlar
'sağlanıyorsa şartın içindeki işlemleri uygula.
'--------------------------------------------------
If IsNumeric(x) And x >= 15 Then
'--------------------------------------------------
'Bu kod parçası seçili hücrenin bir üstüne
'yeni satır ekliyor. Eğer seçili satırın
'bir altındaki satır için bu işlemi yaparsak
'yine verilen satırın üstüne boş satır eklenmiş
'olacak.
'
'Bu şekilde istediğimiz satırın
'altına boş satır ekleyebiliyoruz.
'--------------------------------------------------
Rows(x.Offset(1, 0).Row).Insert Shift:=xlDown
End If
End Sub