Soru Satır Eklemek

[ultraslan38080]

Merhaba.
Elimde ilk 100 satırda, A ve B sütunlarında veriler var. Bu verilerden bazıları benzer. Örneğin; A10 ve B10 verileri benzer gibi.

Eğer A ve B sütunlarında aynı satıra denk gelen veriler eşit ise, bu satırın bir üst satırına boş satır eklenmesini istiyorum.
For next ile denedim ama yapamadım. Nasıl yapabiliriz?
Yardımcı olur musunuz?

 

[Ziynettin]

Deneyiniz.

Sub test()
a = [A1:B100].Value
For i = UBound(a) To 1 Step -1
    If i > 1 Then
        If Not IsEmpty(a(i, 1)) And Not IsEmpty(a(i, 2)) Then
            If a(i, 1) = a(i, 2) Then
                If Not IsEmpty(a(i - 1, 1)) And Not IsEmpty(a(i - 1, 2)) Then
                    'Rows(i).Insert shift:=xlDown ' tüm satır açar
                    Cells(i, 1).Resize(, 2).Insert shift:=xlDown ' A:B satır açar
                End If
            End If
        End If
    End If
Next i
MsgBox "İşlem tamam.", vbInformation
End Sub

 

[dEdE]

Alternatif
For...... Next ile

Sub SatirEkle()
    For i = 100 To 1 Step -1
        If Cells(i, 1) = Cells(i, 2) Then Rows(i).Insert Shift:=xlDown
    Next i
End Sub

 

[ultraslan38080]

Çok teşekkür ederim. Hem A:B satırı açma hem de tüm satırı açma çalıştı.

 

[ultraslan38080]

Alternatif
For...... Next ile

Sub SatirEkle()
    For i = 100 To 1 Step -1
        If Cells(i, 1) = Cells(i, 2) Then Rows(i).Insert Shift:=xlDown
    Next i
End Sub

Aynı kodu step -1 olmadan yaptım. Çalışmamıştı. Bu da çalıştı. Çok teşekkürler.

 

[dEdE]

Sadece A ve B sütunlarında satır açmak isterseniz

        If Cells(i, 1) = Cells(i, 2) Then Range("A" & i & ":B" & i).Insert Shift:=xlDown ' iki Hücre ekler