• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Sırala ve çalışma sayfasına aktarma...

  • Konbuyu başlatan Konbuyu başlatan manly
  • Başlangıç tarihi Başlangıç tarihi
M

manly

Katılım
25 Nisan 2005
Mesajlar
690
Excel Vers. ve Dili
Excel 2003 Türkçe
Ekte gönderdiğim dosyayı çalıştırdığımızda ekrana gelen menüde SIRALA AKTAR butonuna bastığımızda,

1. Öncelikle "Z" sütununda "*" olanlar süzülecek..

2. Daha sonra şu sıraya,

"C" Stok Numarası
"D" Firma
"W" Sipariş Durumuna göre sıralama yapıldıktan sonra tüm verilerin SIRALAAKTAR sayfasına aktarılmasını istiyorum...
 

Ekli dosyalar

Merhaba
Bunları süzmeden "*" bunları aktarsak nasıl olur_?
Sıralamayı'da ona göre yaptırırız olur mu_?
 
Önce "C" Stok Numarasına göre sonra
"D" Firmaya göre daha sonrada
"W" Sipariş Durumuna göre sıralama olacak...
 
manly' Alıntı:
farketmez... abc olabilir..
Genişletmek için tıkla ...

merhaba
Kod: 
Option Explicit
Sub aktar_sırala_61()
Dim ts, kaplan, trabzonspor
trabzonspor = MsgBox("Aktarıp Sıralıyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.ScreenUpdating = False
Sheets("SIRALAAKTAR").Range("B2:Z65536").ClearContents
kaplan = 2
For ts = 2 To Sheets("2011 SİPARİŞLER").Cells(65536, "C").End(xlUp).Row
If Sheets("2011 SİPARİŞLER").Cells(ts, "Z") = "*" Then
Sheets("SIRALAAKTAR").Cells(kaplan, "C") = Sheets("2011 SİPARİŞLER"). _
Cells(ts, "C")
Sheets("SIRALAAKTAR").Cells(kaplan, "D") = Sheets("2011 SİPARİŞLER"). _
Cells(ts, "D")
Sheets("SIRALAAKTAR").Cells(kaplan, "E") = Sheets("2011 SİPARİŞLER"). _
Cells(ts, "E")
Sheets("SIRALAAKTAR").Cells(kaplan, "F") = Sheets("2011 SİPARİŞLER"). _
Cells(ts, "F")
Sheets("SIRALAAKTAR").Cells(kaplan, "G") = Sheets("2011 SİPARİŞLER"). _
Cells(ts, "G")
Sheets("SIRALAAKTAR").Cells(kaplan, "H") = Sheets("2011 SİPARİŞLER"). _
Cells(ts, "H")
Sheets("SIRALAAKTAR").Cells(kaplan, "I") = Sheets("2011 SİPARİŞLER"). _
Cells(ts, "I")
Sheets("SIRALAAKTAR").Cells(kaplan, "J") = Sheets("2011 SİPARİŞLER"). _
Cells(ts, "J")
Sheets("SIRALAAKTAR").Cells(kaplan, "K") = Sheets("2011 SİPARİŞLER"). _
Cells(ts, "K")
Sheets("SIRALAAKTAR").Cells(kaplan, "L") = Sheets("2011 SİPARİŞLER"). _
Cells(ts, "L")
Sheets("SIRALAAKTAR").Cells(kaplan, "M") = Sheets("2011 SİPARİŞLER"). _
Cells(ts, "M")
Sheets("SIRALAAKTAR").Cells(kaplan, "N") = Sheets("2011 SİPARİŞLER"). _
Cells(ts, "N")
Sheets("SIRALAAKTAR").Cells(kaplan, "O") = Sheets("2011 SİPARİŞLER"). _
Cells(ts, "O")
Sheets("SIRALAAKTAR").Cells(kaplan, "P") = Sheets("2011 SİPARİŞLER"). _
Cells(ts, "P")
Sheets("SIRALAAKTAR").Cells(kaplan, "Q") = Sheets("2011 SİPARİŞLER"). _
Cells(ts, "Q")
Sheets("SIRALAAKTAR").Cells(kaplan, "R") = Sheets("2011 SİPARİŞLER"). _
Cells(ts, "R")
Sheets("SIRALAAKTAR").Cells(kaplan, "S") = Sheets("2011 SİPARİŞLER"). _
Cells(ts, "S")
Sheets("SIRALAAKTAR").Cells(kaplan, "T") = Sheets("2011 SİPARİŞLER"). _
Cells(ts, "T")
Sheets("SIRALAAKTAR").Cells(kaplan, "U") = Sheets("2011 SİPARİŞLER"). _
Cells(ts, "U")
Sheets("SIRALAAKTAR").Cells(kaplan, "V") = Sheets("2011 SİPARİŞLER"). _
Cells(ts, "V")
Sheets("SIRALAAKTAR").Cells(kaplan, "W") = Sheets("2011 SİPARİŞLER"). _
Cells(ts, "W")
Sheets("SIRALAAKTAR").Cells(kaplan, "X") = Sheets("2011 SİPARİŞLER"). _
Cells(ts, "X")
Sheets("SIRALAAKTAR").Cells(kaplan, "Y") = Sheets("2011 SİPARİŞLER"). _
Cells(ts, "Y")
Sheets("SIRALAAKTAR").Cells(kaplan, "Z") = Sheets("2011 SİPARİŞLER"). _
Cells(ts, "Z")
Sheets("SIRALAAKTAR").Range("B2") = 1
Sheets("SIRALAAKTAR").Range("B2:B" & kaplan).DataSeries rowcol:=xlColumns, _
Type:=xlLinear, Date:=xlDay, step:=1, Trend:=True
kaplan = kaplan + 1
End If
Next
Sheets("SIRALAAKTAR").Range("C2:Z65536").Sort key1:=Range("C2"), order1:= _
xlAscending, key2:=Range("D2"), order2:=xlAscending, key3:=Range("W2"), _
order3:=xlAscending
Application.ScreenUpdating = True
MsgBox "Aktardım ve Sıraladım", vbInformation, "Bitiş"
End Sub
bir module kopyalayın ve deneyin
 
Burada hata verdi, sarı renk oldu...

Sheets("SIRALAAKTAR").Range("C2:Z65536").Sort key1:=Range("C2"), order1:= _
xlAscending, key2:=Range("D2"), order2:=xlAscending, key3:=Range("W2"), _
order3:=xlAscending
 
manly' Alıntı:
Burada hata verdi, sarı renk oldu...

Sheets("SIRALAAKTAR").Range("C2:Z65536").Sort key1:=Range("C2"), order1:= _
xlAscending, key2:=Range("D2"), order2:=xlAscending, key3:=Range("W2"), _
order3:=xlAscending
Genişletmek için tıkla ...

Kod: 
Sheets("SIRALAAKTAR").Range("C2:Z65536").Sort key1:=Sheets("SIRALAAKTAR").Range("C2"), _
order1:=xlAscending, key2:=Sheets("SIRALAAKTAR").Range("D2"), order2:=xlAscending, _
key3:=Sheets("SIRALAAKTAR").Range("W2"), order3:=xlAscending
bununla değiştirin
 
manly' Alıntı:
Gönderiyorum...
Genişletmek için tıkla ...

Üstteki mesajımı güncelledim
Hata veren kodu
Kod: 
Sheets("SIRALAAKTAR").Range("C2:Z65536").Sort key1:=Sheets("SIRALAAKTAR").Range("C2"), _
order1:=xlAscending, key2:=Sheets("SIRALAAKTAR").Range("D2"), order2:=xlAscending, _
key3:=Sheets("SIRALAAKTAR").Range("W2"), order3:=xlAscending
bununla değiştirin
 
Tamamdır hocam...Çok teşekkür ederim...Allah razı olsun...
 
Bir konu daha açtım... o sorunumla da ilgilenirseniz sevinirim...
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst