Diğer sayfaya süzerek liste aktarma

[eskişehirli1]

Necdet Bey Merhaba,

Aynı süzme işlemi için bir kod rica edebilirmiyim. Dosya ekte mizan sayfasında bakiyesi (G sütunu) sıfır olanları sonuç sayfasına aktarmasın. Yardımınız için şimdiden teşekkürler.
Ekli dosyayı görüntüle MizanXX.xls

 

[Necdet]

Necdet Bey Merhaba,

Aynı süzme işlemi için bir kod rica edebilirmiyim. Dosya ekte mizan sayfasında bakiyesi (G sütunu) sıfır olanları sonuç sayfasına aktarmasın. Yardımınız için şimdiden teşekkürler.
Ekli dosyayı görüntüle 117080

Merhaba,

Aşağıdaki kodları bir modüle kopyalayıp deneyebilir misiniz?

Sub SuzVeAktar()
    Sheets("Sonuç").Cells.ClearContents
    Range("A2").AutoFilter
    ActiveSheet.Range("$A$2:$G$25").AutoFilter Field:=7, Criteria1:="<>0"
    Range("A2").CurrentRegion.Copy Sheets("Sonuç").Range("A1")
    Selection.AutoFilter
End Sub

 

[oguziron]

Merhaba

Elimde küçük çaplı araç takip uygulaması var fakat bazı şeyleri yapamadım bu konuda sizlerin engin bilgilerinden yararlanmak istiyorum.

Şöyleki her araç için sayfalar oluşturdum ve ayrıca her araç için alınan malzemelerin, parçaların tutulduğu bir malzeme listesi takip sayfam var.(bu listede malzeme tanımı, cinsi, fiyatı bilgileri var) Benim istediğim tutulan bu malzeme listesinden ilgili plakaya ait verilerin her araç için kendi sayfasında listelenmesi, bu işlemi nasıl yapabilirim ?

Tahminimce bu işlem öğrenci listesinin tutulduğu bir sayfadan sadece 5. sınıftaki öğrencilerin bilgilerini ilgili sayfaya aktarılmasıyla alakalı bir işlem ama yapamadım.

Şimdiden teşekkürler...

 

[Çaycı Çırağı]

Merhaba


Sub Aktar()

Dim i As Integer, _
Sat As Long, _
SSat As Long, _
SKol As Integer, _
Secim As Range, _
Liste() As String, _
s1 As Worksheet, _
s2 As Worksheet

Set s1 = Sheets("Sayfa1")
Set s2 = Sheets("Sayfa2")
s1.Select

On Error Resume Next

Application.ScreenUpdating = False
'Önceki Verilerin Silinmesi Gerekiyorsa 2 Satır Durmalı
SSat = s2.Cells(Rows.Count, "A").End(3).Row + 5
s2.Range("A1:I" & SSat).ClearContents
'Önceki Verileri Silme Sonu

SKol = Cells.Find("*", , , , xlByColumns, xlPrevious).Column + 1

Range("F:F").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Cells(1, SKol), Unique:=True
SSat = Cells(Rows.Count, SKol).End(3).Row

ReDim Liste(SSat - 1)

For i = 1 To SSat
Liste(i - 1) = Cells(i, SKol)
Next i

Columns(SKol).Clear
SSat = Cells(Rows.Count, "A").End(3).Row

Selection.AutoFilter

For i = 0 To UBound(Liste)

ActiveSheet.Range("A1:J" & SSat).AutoFilter Field:=6, Criteria1:=Liste(i)
ActiveSheet.Range("A1:J" & SSat).AutoFilter Field:=7, Criteria1:="<>"

If Cells(Rows.Count, "A").End(3).Row > 1 Then
Sat = s2.Cells(Rows.Count, "A").End(3).Row + 2
Range("A1").CurrentRegion.Copy s2.Cells(Sat, "A")
End If

Next i

ActiveSheet.ShowAllData

Application.ScreenUpdating = False
MsgBox "AKTARIM TAMAMLANMIŞTIR....", vbInformation, "N. YEŞERTENER...."

End Sub


Şu kodu kullandım tşk peki YUDUM diye geçenleri aktarmak istiyorsam?

 

[dennisf06]

merhaba

satir 14 den itibaren A,C,E sütunlarinda ayri ayri süzme islemi yaptiriyorum. süzme islemi sonucunu sayfa 2 ye nasil aktarabilirim.tesekkür ederim.

 

[dyagizoglu]

süzerek aktarma destek

hocam mükemmel olmuş benim tablomda da böyle birşey uyarlayabilrimiyiz tam bunu arıyorum
sayfa birdeki verileri ikinci sayfadaki gibi atsın çok rica etsem destek olurmusunuz saygılar

 

[yasanabilir@gmail.com]

Konuyla alakalıdır umarım !...

Merhaba
İlköncelikle yol gösteren yardımcı olan yada olmaya e teşekkür etmek isterim.
benim sorunum şu j10 hücresine + koydugumda c10:ı10 arasındaki verileri ARŞİV sayfasına aktarsın ve alt alta bu sürekli devam etsin tabi + koydugum hücreler yardımcı olursanız çok sevinirim
iyi çalışmalar dilerim...

 

[BedriA]

Merhaba,

Sayfa1 de Süz işlemini yaptıktan sonra aşağıdaki kodları kullanabilirsiniz.

Sub Aktar()
 
    Dim i   As Long, _
        s1  As Worksheet, _
        s2  As Worksheet
    
    Set s1 = Sheets("Sayfa1")
    Set s2 = Sheets("Sayfa2")
    s1.Select
    If ActiveSheet.AutoFilterMode = False Then
        MsgBox "Süzülmüş Veri Bulamadım......", vbCritical, "N. YEŞERTENER --> [URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
        Exit Sub
    End If
    i = s2.Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row + 2
    
    s1.Range("A1").CurrentRegion.Copy s2.Cells(i, "A")
    MsgBox "Aktardım.....", vbInformation, "N. YEŞERTENER --> [URL="http://www.excel.web.tr/"]www.excel.web.tr[/URL]"
    
End Sub

N. YEŞERTENER Hocam,

Örneğin A sütunundaki bir verileri alfabetik sıraya göre süzerek sayfa2 nin A sütununa nasıl aktarabiliriz?