şarta bağlı kes yapıştır

[uguristanbul]

arkadaslar ekli dosyada soru butonuna bastıgınızda açılacak formda anlatmaya çalıştım burdada kısaca bahsedeyim.
kod combo9 un clickinde olacak
sıralama sayfasında K2:S sutunları arasında R sutunu dolu ise
o satırı sıralama sayfasından kesip rapor sayfasının a sutunundan başlayarak yapıştıracak
tabi kestiği satırın altındaki satırları yukarı doğru kaydıracak
saygılar

 

[uguristanbul]

yardım edecek bir arkadaş yokmu?
çok zormu bişey sordum veya anlatamadımmı acaba

 

[Korhan Ayhan]

Selamlar,

Umarım sorunuzu doğru anlamışımdır. Aşağıdaki kodu denermisiniz.

Private Sub ComboBox9_Change()
    Dim X As Long
    TextBox10.Value = ComboBox9.Value
        Sheets("RAPOR").Range("A:I").Clear
        For X = 2 To Range("K65536").End(3).Row
            If Cells(X, "R") <> Empty Then
            If Sheets("RAPOR").Range("A1") = Empty Then
            Satır = 1
            Else
            Satır = Sheets("RAPOR").Range("A65536").End(3).Row + 1
            End If
            Range("K" & X & ":S" & X).Copy Sheets("RAPOR").Cells(Satır, "A")
            Range("K" & X & ":S" & X).Clear
            End If
        Next
    Range("K2:S65536").Sort Key1:=Range("K2"), Order1:=xlAscending
    Frame2.Visible = True
End Sub

 

[uguristanbul]

hocam yardımınıza teşekkür ederim
ancak sorun lar var.
şöyleki ekteki orijinal dosyadan da kontrol edececeğiniz gibi rapor sayfasına kayıt ediyor.Ancak sadece ilk satıra kayıt yapıp eski kayıtı siliyor (oysa veriler alt alta sıralanmalı ki sonradan süzme yapıldığında verilere tekrar ulaşılsın)
birde (rapor sayfasına bakarsanız) verileri (bazen) a sütünundan dan değilde
k sütünündan kayıt ediyor.
elinize ve emeğinize sağlık.
saygı ve teşekkürler

 

[uguristanbul]

tamam hocam çözdüm hallettim
cok teskkur ederim