veri sıralama satır kopyalama

[gelibolu]

Ekte gönderdiğim sayfada sorunum yazılı.Kısaca bir veri kümesinde bitenleri diğer sayfaya taşımak ve ilk sayfada satır eksilmesi sonucunda bozulan sıra numaralarının değişmesini sağlamak. Yardım ederseniz sevinirim.

 

[Ömer]

Ekte gönderdiğim sayfada sorunum yazılı.Kısaca bir veri kümesinde bitenleri diğer sayfaya taşımak ve ilk sayfada satır eksilmesi sonucunda bozulan sıra numaralarının değişmesini sağlamak. Yardım ederseniz sevinirim.

Merhaba,

Önce sayfa2 deki formülleri silip kodları module ekleyin ve çalıştırın.

Sub Aktar()
 
    Dim i As Long, deg As String, son As Long, sony As Long
 
    Sheets("Sayfa1").Select
    
    With Sheets("Sayfa2")
        For i = Cells(Rows.Count, "A").End(xlUp).Row To 2 Step -1
            deg = UCase(Replace(Replace(Cells(i, "E"), "ı", "I"), "i", "İ"))
            If deg = "TAMAMLANDI" Then
                son = .Cells(Rows.Count, "A").End(xlUp).Row + 1
                Rows(i).Copy .Range("A" & son)
                .Range("A" & son) = son - 1
                Rows(i).Delete
            End If
        Next i
    End With
    
    sony = Cells(Rows.Count, "A").End(xlUp).Row
    Range("A2") = 1
    Range("A2").DataSeries xlColumns, xlLinear, xlDay, 1, sony - 1
            
End Sub

.

 

[gelibolu]

Yardımınız için çok teşekkür ederim. Ancak kod sadece aktarma yapıyor. Tamamlanmamış listede kalan mevcuda göre yeni bir sıralama yapamıyor.Yeni bir sıralama yaptırmam kalan adedini bilmem gerekiyor. Tekrardan ilginize teşekkür ederim iyi geceler...

 

[Ömer]

#2 numaralı mesajı yeniden düzenledim.

 

[gelibolu]

elinize sağlık gecenin bu vaktinde yardım ettiğiniz için çok teşekkür ederim. Hayırlı geceler dilerim..