satır taşıma

[serhat2013]

arkadaşlar merhaba,
ekli dosyada sayfa1 deki sarı satır şarta bağlı olarak sayfa 2 ye taşınacak . cevabınızı bekliyorum . soru açık değilse uyarıda bulunursanız memnun olurum .

Saygılarımla

 

[Ömer]

Merhaba,

A2 hücresine yazıp dizi formülüne çevirdikten sonra yana ve alt hücrelere kopyalayın.

=EĞERHATA(İNDİS('sipariş '!A$2:A$100;KÜÇÜK(EĞER('sipariş '!$D$2:$D$100="işlendi"
 ;SATIR('sipariş '!$D$2:$D$100)-SATIR('sipariş '!$D$2)+1);SATIRSAY(A$2:A2)));"")

 

[serhat2013]

Ömer bey merhaba,

Öncelikle vakit ayırdığınız için teşekkür ederim . dediklerinizi yaptım . formül çalıştı fakat eski bilgi kaldı . yani kopyaladı . ben taşımasını istiyorum .

 

[Ömer]

Taşımadan kastınız bir sayfadan silinip diğer sayfaya yazılması mı? Evetse; silinirken satır mı silenecek hücreler aralıktaki hücreler mi?

 

[serhat2013]

sarı satır komple silinip diğer sayfaya gidecek

 

[Ömer]

Deneyiniz.

Sub tasi()
    
    Dim i As Long, s As Long, S2 As Worksheet, d As String
    
    Set S2 = Sheets("Sayfa2")
    
    Application.ScreenUpdating = False
    Sheets("sipariş ").Select
    
    s = S2.Cells(Rows.Count, "A").End(xlUp).Row + 1
    For i = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
        d = UCase(Replace(Replace(Cells(i, "D"), "ı", "I"), "i", "İ"))
        If d = "İŞLENDİ" Then
            Cells(i, "A").Resize(1, 4).Copy S2.Cells(s, "A")
            s = s + 1
            Rows(i).Delete
        End If
    Next i
        
End Sub

 

[serhat2013]

Ömer bey merhaba,
sorunum çözüldü. teşekkür ederim .