Koşula Bağlı Satır Aç Makrosu

[baydeniro]

Merhaba arkadaşlar. Koşula bağlı olarak satır açmak mümkün müdür ? B kolonundaki bir rakam C kolonundaki ve aynı satırdaki rakamdan küçükse bulunduğu satır ile bir alttaki satırın arasına bir satır açılsın ve bulunduğu satır bir aşağı satıra kopyalansın. Örnek dosya ektedir. İlgilenenlere şimdiden teşekkürler.

Not : Mümkünse kod çalıştıktan sonra oluşan duruma göre aynı denkleme uymayan satırlar varsa oralara tekrar satır açma işlemi uygulasın.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu ilgili sayfanın kod bölümüne uygulayıp denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [B3:B65536]) Is Nothing Then Exit Sub
    If Target.Count > 1 Then Exit Sub
    If Target <> "" And Target < Target.Offset(0, 1) Then
    Application.EnableEvents = False
    Rows(Target.Row).Copy
    Rows(Target.Row + 1).Insert Shift:=xlDown
    Application.CutCopyMode = False
    Application.EnableEvents = True
    End If
End Sub

 

[baydeniro]

Sayın Cost Control, ilginize teşekkürler. Kodu sayfaya uyguladım ama bir hareket olmuyor. Bir de kod Modüler bir kod olarak yani istenildiğinde çalıştırılacak bir kod olabilir mi ?

 

[Korhan Ayhan]

Selamlar,

Önerdiğim kodun çalışması için B sütununa veri girişi yapmanız gerekmektedir.

Önceki mesajımdaki önerdiğim kodu tamamen iptal edip aşağıdaki kodu bir modüle ekleyip bir butona atayın. Makronun çalışması için B sütunundan bir hücre seçin ve butona tıklayın. (Makronun çalışması için seçtiğiniz hücrenin dolu olması gerekmektedir.)

Sub SATIR_EKLE()
    If ActiveCell.Column <> 2 Or ActiveCell = "" Then Exit Sub
    If ActiveCell < ActiveCell.Offset(0, 1) Then
    Rows(ActiveCell.Row).Copy
    Rows(ActiveCell.Row + 1).Insert Shift:=xlDown
    Application.CutCopyMode = False
    End If
End Sub

 

[baydeniro]

Sayın Cost_Control sabrınız için çok müteşekkirim. Kızmayacağınıza söz verin. Ben maalesef kodu çalıştırmayı beceremedim. Haddim olmayarak kodun dosyaya uygulanmış halini eklemenizi rica etsem kabalık etmiş olur muyum acaba !!

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz.

 

[baydeniro]

Teşekkürler

Sayın Cost_Control emeğiniz ve sabrınız için çok teşekkürler. Kodu şu şekilde revize etmek mümkün mü ?

* Seçili olarak taranmış her hücre için satır-kopyala işlemini yapabilmesi !!!

Olmuyorsa da elinize sağlık, sağlıcakla kalın.