Filtreleyerek yaptığım işlemin kısa yolu varmı?

[saltinto]

Arkadaşlar ekteki dosyada Listedeki veriden (gün içersinde 3-4 defa değişiyor) filtre yardımı ile ana sayfadaki veriye kopyala-yapıştır yapıyorum. Ama bunu otomatik yapmasını sağlayacak bir işlem varmı.

aktardığım bilgiler
Order status= Planned ve Entered olanlar
Listenin sıralaması Ort sütununa göre olacak

 

[saltinto]

Arkadaşlar ekteki dosyada Listedeki veriden (gün içersinde 3-4 defa değişiyor) filtre yardımı ile ana sayfadaki veriye kopyala-yapıştır yapıyorum. Ama bunu otomatik yapmasını sağlayacak bir işlem varmı.

aktardığım bilgiler
Order status= Planned ve Entered olanlar
Listenin sıralaması Ort sütununa göre olacak

 

[Orion1]

Arkadaşlar ekteki dosyada Listedeki veriden (gün içersinde 3-4 defa değişiyor) filtre yardımı ile ana sayfadaki veriye kopyala-yapıştır yapıyorum. Ama bunu otomatik yapmasını sağlayacak bir işlem varmı.

aktardığım bilgiler
Order status= Planned ve Entered olanlar
Listenin sıralaması Ort sütununa göre olacak

Üzerine açıklama girerek örnek dosya yollayınız.

 

[Orion1]

Dosyanız ektedir.

Sub listele_59()
Dim sat1 As Long, sat2 As Long, i As Long
Sheets("Liste").Select
Application.ScreenUpdating = False
sat2 = 2
With Sheets("Anasayfa")
    sat1 = .Cells(Rows.Count, "B").End(xlUp).Row
    Range("B2:B" & Rows.Count & ",E2:E" & Rows.Count & _
        ",I2:I" & Rows.Count & ",K2:K" & Rows.Count & ",N2:N" & _
        Rows.Count & ",N2:N" & Rows.Count).ClearContents
    For i = 2 To sat1
        If .Cells(i, "B").Value = "Planned" Or _
            .Cells(i, "B").Value = "Entered" Then
            Cells(sat2, "B").Value = .Cells(i, "A").Value
            Cells(sat2, "E").Value = .Cells(i, "B").Value
            Cells(sat2, "I").Value = .Cells(i, "C").Value
            Cells(sat2, "K").Value = .Cells(i, "D").Value
            Cells(sat2, "N").Value = .Cells(i, "E").Value
        End If
        sat2 = sat2 + 1
    Next i
End With
If sat1 > 1 Then Range("A2:V" & Cells(Rows.Count, "A") _
.End(xlUp).Row).Sort Range("K2")
Application.ScreenUpdating = True
MsgBox "İşlem tamamlanmıştır." & vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "B İ T T İ"
End Sub

 

[saltinto]

Teşekkürler Orion1 çok hızlısınız, fakat ben bu işlemi Ana sayfa dediğim yere işlemesini istiyorum. Liste sayfasını database olarak yorumlayın ve bu sayfadaki bilgi sürekli artıyor, değişiyor. Örnekte olan bir liste ve benim ordan bilgileri işlediğim ana sayfa vardı.

 

[Orion1]

Teşekkürler Orion1 çok hızlısınız, fakat ben bu işlemi Ana sayfa dediğim yere işlemesini istiyorum. Liste sayfasını database olarak yorumlayın ve bu sayfadaki bilgi sürekli artıyor, değişiyor. Örnekte olan bir liste ve benim ordan bilgileri işlediğim ana sayfa vardı.

Dosyanız ektedir.

Sub listele_59()
Dim sat1 As Long, sat2 As Long, i As Long
Sheets("Anasayfa").Select
Application.ScreenUpdating = False
sat2 = 2
With Sheets("Liste")
    sat1 = .Cells(Rows.Count, "B").End(xlUp).Row
    Range("A2:E" & Rows.Count).ClearContents
    For i = 2 To sat1
        If .Cells(i, "E").Value = "Planned" Or _
            .Cells(i, "E").Value = "Entered" Then
            Cells(sat2, "A").Value = .Cells(i, "B").Value
            Cells(sat2, "B").Value = .Cells(i, "E").Value
            Cells(sat2, "C").Value = .Cells(i, "I").Value
            Cells(sat2, "D").Value = .Cells(i, "K").Value
            Cells(sat2, "E").Value = .Cells(i, "N").Value
            sat2 = sat2 + 1
        End If
    Next i
End With
If sat1 > 1 Then Range("A2:V" & Cells(Rows.Count, "A") _
.End(xlUp).Row).Sort Range("K2")
Application.ScreenUpdating = True
MsgBox "İşlem tamamlanmıştır." & vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "B İ T T İ"
End Sub

 

[saltinto]

excel dosyaya yeni veri (Liste) girdim çalıştırdım ve sadece Entered olanları yazdı planlaned olanları yazmadı. dosyayı ekte gönderiyorum

 

[Orion1]

excel dosyaya yeni veri (Liste) girdim çalıştırdım ve sadece Entered olanları yazdı planlaned olanları yazmadı. dosyayı ekte gönderiyorum

Gerekli düzenlemetyi yaptım.
6 nolu mesajdan indirebilitsiniz.

 

[saltinto]

Hocam çok teşekkür ederim, süpersiniz :bravo:

 

[saltinto]

Sayın orion1, tekrar merhaba. Ben veriyi "Ana Sayfa" da A2 den başlatıp işlem yaptırıyoruz.A3 veya A4 başlaması için nasıl bir kod yazmalıyım ?

 

[Orion1]

Sayın orion1, tekrar merhaba. Ben veriyi "Ana Sayfa" da A2 den başlatıp işlem yaptırıyoruz.A3 veya A4 başlaması için nasıl bir kod yazmalıyım ?

kırmızı satırdaki gibi olacak ,ilgili yer.

Sub listele_59()
Dim sat1 As Long, sat2 As Long, i As Long
Sheets("Anasayfa").Select
Application.ScreenUpdating = False
[B][COLOR="Red"]sat2 = 3[/COLOR][/B]
With Sheets("Liste")

 

[saltinto]

sat2 = 3 yaptım fakat

If sat1 > 1 Then Range("A2:V" & Cells(Rows.Count, "A") _
.End(xlUp).Row).Sort Range("[B]K2[/B]")

yerine E2 yapınca bir işe yaramıyor. (sort yerine K daki değerlere göre almam gerekti)