kriterlere göre veri aktarımı makrosu lazım

86126 · 1 Mart 2007

TARİH KRİTER 1 KRİTER 2 KRİTER 3 KRİTER 4 KRİTER 5 KRİTER 6 KRİTER 7 KRİTER 8
BANDIRMA01.01.2007 A 2 4 4 4 4 4 4
İZMİR 02.01.2007 A 3 5 5 5 5 5 5
İSTANBUL02.01.2007 A 4 4 4 4 4 4 4
İSTANBUL04.01.2007 B 5 3 3 3 3 3 3
ANKARA 04.01.2007 B 6 3 3 3 3 3 3
ANKARA 04.01.2007 B 8 3 3 3 3 3 3
BANDIRMA07.01.2007 B 9 3 3 3 3 3 3
İZMİR 08.01.2007 B 1 2 2 2 2 2 2
İSTANBUL09.01.2007 B 1 2 2 2 2 2 2
İSTANBUL10.01.2007 A 1 1 1 1 1 1 1
ANKARA 11.01.2007 A 3 1 1 1 1 1 1
ANKARA 12.01.2007 C 4 1 1 1 1 1 1
BANDIRMA13.01.2007 C 5 1 1 1 1 1 1
İZMİR 14.01.2007 C 6 1 1 1 1 1 1
İSTANBUL15.01.2007 C 2 1 1 1 1 1 1
İSTANBUL16.01.2007 C 4 1 1 1 1 1 1

sayfa 1 de bu şekilde verilerim var, sayfa ikiye ili yazıp iki atrih arası B Sutunundaki verielere göre toplam almak istiyorum.

86126 · 2 Mart 2007

arkadaşlar bu işten hiçmi anlayan yok. yardımlarınızı bekliyorum.

ileriexcel · 2 Mart 2007

Kendinize göre uyarlayınız.
=+TOPLA.ÇARPIM(--(VERİLER!C2:C17="A");--(VERİLER!D2: D17))

86126 · 2 Mart 2007

İlerİ Excel ArkadaŞim İlgİn İÇİn TeŞekkÜr Ederİm. Ektekİ Doyami İnceleyebİlİrmİsİn. İl Ve İkİ Tarİh AraliĞina GÖre GÖre Bu İŞlemİ Yapmak İstİyorum.

İdris SERDAR · 2 Mart 2007

Formülle dosyanız ekte.

86126 · 2 Mart 2007

yurttaş arkadaşım eline sağlık, veriler 30 000 bini aşkın olduğundan çok yavaş çalışıyor. makro ile yazmak mümkünmü. teşekkür ederim

86126 · 2 Mart 2007

YURTTAŞ ARKADAŞIM FORMÜLÜNLE İLGİLİ BİR SORUM OLACAK.
formülde geçen =TOPLA.ÇARPIM(--(il=$A$1);--(k=B3);--(tarih>=$D$1);--(tarih<=$F$1)) ile formülün sonuna eklediğin kk ların ne anlama geldiğini anlamadım. kopyalama yaparken bu kkkkk ları otomatik çoğalmanın kısa yolu nedir. açıklayabilirsen çok memnun kalacağım

Korhan Ayhan · 2 Mart 2007

Selamlar,

Aşağıdaki kodu denermisiniz.

Kod:

Sub AKTAR()
    [C3:IV65536].ClearContents
    ŞEHİR = [A1].Address
    TARİH1 = [D1].Address
    TARİH2 = [F1].Address
    SON = Sheets("VERİLER").[A65536].End(xlUp).Row
    For X = 3 To [B65536].End(xlUp).Row
    For Y = 3 To Sheets("VERİLER").[B1].End(xlToRight).Column
    If Y = 3 Then
    Cells(X, Y) = Evaluate("SUMPRODUCT(--(VERİLER!A2:A" & SON & "=" & ŞEHİR & "),--(VERİLER!C2:C" & SON & "=B" & X & "),--(VERİLER!B2:B" & SON & ">=" & TARİH1 & "),--(VERİLER!B2:B" & SON & "<=" & TARİH2 & " ))")
    Else
    SÜTUN = WorksheetFunction.Substitute(Mid(Cells(1, Y).Address, 1, 3), "$", "")
    Cells(X, Y) = Evaluate("=SUMPRODUCT(--(VERİLER!A2:A" & SON & "=" & ŞEHİR & "),--(VERİLER!C2:C" & SON & "=B" & X & "),--(VERİLER!B2:B" & SON & ">=" & TARİH1 & "),--(VERİLER!B2:B" & SON & "<=" & TARİH2 & "),--(VERİLER!" & SÜTUN & "2:" & SÜTUN & SON & "))")
    End If
    Next: Next
    MsgBox "AKTARIM İŞLEMİ TAMAMLANMIŞTIR.", vbInformation
End Sub

86126 · 2 Mart 2007

COST CONTROL çok teşekkür ederim. A,B,C kriterini saydırmasak nasıl yapacağız. veriler çok olduğu için çok yavaş çalışıyor. kriter 2 den itibaren tolam alsın kriter 1 toplamasın. yeni örneği ekte yardımını bekliyorum.

Korhan Ayhan · 2 Mart 2007

Selamlar,

Kodu aşağıdaki gibi değiştirip denermisiniz. Ben 40.000 satır kopyalayıp denedim. "AKTARILAN" sayfasındaki 3 kriteri yaklaşık 10 saniyede hesapladı. Umarım bu haliyle işinize yarar.

Kod:

Sub AKTAR()
    [C3:IV65536].ClearContents
    ŞEHİR = [A1].Address
    TARİH1 = [D1].Address
    TARİH2 = [F1].Address
    SON = Sheets("VERİLER").[A65536].End(xlUp).Row
    For X = 3 To [B65536].End(xlUp).Row
    For Y = 4 To Sheets("VERİLER").[B1].End(xlToRight).Column
    SÜTUN = WorksheetFunction.Substitute(Mid(Cells(1, Y).Address, 1, 3), "$", "")
    Cells(X, Y) = Evaluate("=SUMPRODUCT(--(VERİLER!A2:A" & SON & "=" & ŞEHİR & "),--(VERİLER!C2:C" & SON & "=B" & X & "),--(VERİLER!B2:B" & SON & ">=" & TARİH1 & "),--(VERİLER!B2:B" & SON & "<=" & TARİH2 & "),--(VERİLER!" & SÜTUN & "2:" & SÜTUN & SON & "))")
    Next: Next
    MsgBox "AKTARIM İŞLEMİ TAMAMLANMIŞTIR.", vbInformation
End Sub

86126 · 3 Mart 2007

COST CONTROL ilgin için çok teşekkür ederim. Ben size en iyisi dosyanın aslını göndereyim. Bu kayıtlar 20.000 üzerinde. KRİTER olarak 300 ün üzerinde. bayabir zorlanıyor.. tarihe göre süzüp başka sayfaya aktarsın ondan sonra toplamı başka bir sayfada alsak daha hızlı olur diye düşünüyorum. kırmızı sutunlara göre değerlendirme yapılacak.
şimdiden teşekkür ederim.
dosyam ektedir.

86126 · 3 Mart 2007

Arkadaşlar yardımlarınızı bekliyorum.

Korhan Ayhan · 3 Mart 2007

Selamlar,

Örnek dosyanız üzerinde gerekli düzenlemeleri yaptım. İncelermisiniz. Denemelerim sonucu aşağıdaki sürelerde işlem tamamlandı.

AFYON ilinin raporu = Yaklaşık 4 dakika sürdü.
UŞAK ilinin raporu = Yaklaşık 1 dakika sürdü.

Yani veri sayınız arttıkça raporun çıkma süreside uzayacaktır. Umarım faydası olur.

86126 · 3 Mart 2007

arkadaşım eline ve beynine sağlık. il ve iki tarih aralığını süzüp ondan sonra toplama işlemini yapsak hızlanmazmı. ayrıca süzme de MAHALLE İLE CADDE SK sutununu silsin. biraz daha hızlanır düşüncesindeyim

86126 · 3 Mart 2007

başka anlaya arkadaşlar yokmu.

Korhan Ayhan · 3 Mart 2007

86126' Alıntı:
arkadaşım eline ve beynine sağlık. il ve iki tarih aralığını süzüp ondan sonra toplama işlemini yapsak hızlanmazmı. ayrıca süzme de MAHALLE İLE CADDE SK sutununu silsin. biraz daha hızlanır düşüncesindeyim

Selamlar,

Zaten eklediğim dosyadaki kodlar sizin istediğiniz süzme işlemini yaptıktan sonra değerleri aktarıyor. Maalesef daha hızlanabileceğini düşünmüyorum. Sebebi ise neredeyse 256 sütunluk bir veri tabanınız var. Doğal olarak excel hesaplarken zorlanıyor. Ve işlem süresi uzuyor.

86126 · 3 Mart 2007

süzdüğünde mahalle ve cadde bulunan sutunları sildiremezmiyiz

Korhan Ayhan · 3 Mart 2007

Selamlar,

Bahsettiğiniz sütunları sildirebiliriz tabiki. Ama bu sütunları silmek kodların çalışmasını hızlandırmayacaktır.

Korhan Ayhan · 3 Mart 2007

Selamlar,

Eğer süzme işleminde mahalle ve cadde sütunlarını sildirmek istiyorsanız. Örnek dosyadaki SÜZ kodunu aşağıdaki şekilde değiştirip deneyiniz.

Kod:

Sub SÜZ()
    Sheets("VERİLER").Select
    [A1].Select
    [A1].AutoFilter Field:=1, Criteria1:=Sheets("AKTARILAN").[A1]
    [A1].AutoFilter Field:=2, Criteria1:=">=" & CLng(CDate(Sheets("AKTARILAN").[D1])), Operator:=xlAnd, Criteria2:="<=" & CLng(CDate(Sheets("AKTARILAN").[F1]))
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("SÜZ").Select
    [A1].PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    [A1].Select
    Application.CutCopyMode = False
    Columns("B:B").NumberFormat = "m/d/yyyy"
    Columns("CL:CM").Delete
    Cells.EntireColumn.AutoFit
    Sheets("VERİLER").Select
    [A1].Select
    Selection.AutoFilter
    Sheets("AKTARILAN").Select
End Sub

İdris SERDAR · 3 Mart 2007

86126' Alıntı:
YURTTAŞ ARKADAŞIM FORMÜLÜNLE İLGİLİ BİR SORUM OLACAK.
formülde geçen =TOPLA.ÇARPIM(--(il=$A$1);--(k=B3);--(tarih>=$D$1);--(tarih<=$F$1)) ile formülün sonuna eklediğin kk ların ne anlama geldiğini anlamadım. kopyalama yaparken bu kkkkk ları otomatik çoğalmanın kısa yolu nedir. açıklayabilirsen çok memnun kalacağım

k, kk, kkk,..... bunlar alan adlarıdır. Ekle /Ad/Tanımla'ya girerseniz görürsünüz. Tıpkı il, tarih, gibi...

kriterlere göre veri aktarımı makrosu lazım

86126

86126

ileriexcel

86126

İdris SERDAR

Moderatör

86126

86126

Korhan Ayhan

Administrator

86126

Korhan Ayhan

Administrator

86126

86126

Korhan Ayhan

Administrator

86126

86126

Korhan Ayhan

Administrator

86126

Korhan Ayhan

Administrator

Korhan Ayhan

Administrator

İdris SERDAR

Moderatör