İlgili Sayfaya Veri Aktarımı

[akmes]

Merhaba,

Ekteki örnek excel dosyasından da anlaşılacağı gibi MS sayfasındaki verileri A sütunundaki hücre değerlerine göre ilgili sayfalara aktarıyorum.Ama hergün MS sayfasına yeni veriler girdikçe ilgili sayfalardaki veri aktarımları yavaşlamaya başladı.En baştan başlayıp tekrar aktarıyor haliyle çok bekliyorum.Bu işin daha kolay bir yolu varmıdır arkadaşlar şuanda bende 5000 satır oldu bu örnektekin den daha fazla takımı iligili sayfalara aktarıyorum hergün 1 saat bu güncellemeye ayırmaya başladım MS sayfasına o ligte bir maç oynasa bile yazıyorum ilgili sayfadaki lige bu veriyide aktarmam gerektiği için veri aktar dediğimde epey bekliyorum.Durumumu umarım izah edebilmişimdir yardımlarınızı rica ediyorum.

 

[Orion1]

Tasaramınızı benim yaptığım gibi yapmalısınız.
Bu konunun böyle tasarlanması lazım.
Dosyanız ektedir

Private Sub CommandButton1_Click()
Dim sh1 As Worksheet, sat1 As Long, sat2 As Long, list(), a As Long, i As Long
Dim sh2 As Worksheet
'coder : evrengizlen@hotmail.com
'date : 22/09/2011
Application.ScreenUpdating = False
Sheets("rapor").Select
Set sh2 = Sheets("rapor")
sh2.Range("B2:F1040000").ClearContents
Set sh1 = Sheets("MS")
sh1.Range("A1").AutoFilter
sat1 = sh1.Cells(65536, "A").End(xlUp).Row
sat2 = 2
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
        sh1.Range("A1").AutoFilter field:=1, Criteria1:=ListBox1.list(i, 0)
        sh1.Range("C2:C" & sat1).SpecialCells(xlCellTypeVisible).Copy sh2.Range("B" & sat2)
        sh1.Range("D2:D" & sat1).SpecialCells(xlCellTypeVisible).Copy sh2.Range("E" & sat2)
        sh1.Range("E2:F" & sat1).SpecialCells(xlCellTypeVisible).Copy sh2.Range("C" & sat2)
        sh1.Range("A2:A" & sat1).SpecialCells(xlCellTypeVisible).Copy sh2.Range("F" & sat2)
        sat2 = sh2.Cells(65536, "B").End(xlUp).Row + 1
        'Sheets("rapor").ListBox1.Selected(i) = False
    End If
Next
If sh1.AutoFilterMode Then sh1.AutoFilterMode = False
Application.ScreenUpdating = True
Unload Me
MsgBox "İşlem tamamlandı.", vbOKOnly + vbInformation, "evrengizlen@hotmail.com"
End Sub

 

[assenucler]

Sayın Evren Gizlen,

Günaydın. Süpersiniz.

Katkınız için teşekkürler.

Sevgi ve saygılar.

 

[akmes]

Tasaramınızı benim yaptığım gibi yapmalısınız.
Bu konunun böyle tasarlanması lazım.
Dosyanız ektedir

Private Sub CommandButton1_Click()
Dim sh1 As Worksheet, sat1 As Long, sat2 As Long, list(), a As Long, i As Long
Dim sh2 As Worksheet
'coder : evrengizlen@hotmail.com
'date : 22/09/2011
Application.ScreenUpdating = False
Sheets("rapor").Select
Set sh2 = Sheets("rapor")
sh2.Range("B2:F1040000").ClearContents
Set sh1 = Sheets("MS")
sh1.Range("A1").AutoFilter
sat1 = sh1.Cells(65536, "A").End(xlUp).Row
sat2 = 2
For i = 0 To ListBox1.ListCount - 1
    If ListBox1.Selected(i) = True Then
        sh1.Range("A1").AutoFilter field:=1, Criteria1:=ListBox1.list(i, 0)
        sh1.Range("C2:C" & sat1).SpecialCells(xlCellTypeVisible).Copy sh2.Range("B" & sat2)
        sh1.Range("D2:D" & sat1).SpecialCells(xlCellTypeVisible).Copy sh2.Range("E" & sat2)
        sh1.Range("E2:F" & sat1).SpecialCells(xlCellTypeVisible).Copy sh2.Range("C" & sat2)
        sh1.Range("A2:A" & sat1).SpecialCells(xlCellTypeVisible).Copy sh2.Range("F" & sat2)
        sat2 = sh2.Cells(65536, "B").End(xlUp).Row + 1
        'Sheets("rapor").ListBox1.Selected(i) = False
    End If
Next
If sh1.AutoFilterMode Then sh1.AutoFilterMode = False
Application.ScreenUpdating = True
Unload Me
MsgBox "İşlem tamamlandı.", vbOKOnly + vbInformation, "evrengizlen@hotmail.com"
End Sub

Üstadım siz ne yapmışınız böyle; çok süper.Çok teşekkür ederim.

 

[akmes]

Üstadım yeni bir takım eklemek istediğimizde userfrom üzerine takımı nasıl ekleyeceğiz bu konuda nasıl yaparız?

 

[Orion1]

Üstadım yeni bir takım eklemek istediğimizde userfrom üzerine takımı nasıl ekleyeceğiz bu konuda nasıl yaparız?

Eğer ülke ekleyecekseniz.ULKELER sayfasındaki ilgili sütuna ekleyiniz.Eklerken aralarında boşluk olmasın.
takım için MS sayfasına normal diğer ekledikleriniz gibi eklemelisiniz.

 

[akmes]

Eğer ülke ekleyecekseniz.ULKELER sayfasındaki ilgili sütuna ekleyiniz.Eklerken aralarında boşluk olmasın.
takım için MS sayfasına normal diğer ekledikleriniz gibi eklemelisiniz.

Evet oldu.İlginiz için çok teşekker ederim.

 

[akmes]

Evet oldu.İlginiz için çok teşekker ederim.

Sayın üstadım,Ben burdaki kodlarınızı kendi excel dosyama aktardım.Fakat ULKE sayfasındaki sekmeleri görmüyor.Sizin yazmış olduğunuz kod içersindede aradım bulamadım.Userfrom1 geliyor fakat üzerinde ülke isimleri yok.Ben nasıl tanıtabilirim.Yardımınızı rica ediyorum.

 

[Orion1]

Sayın üstadım,Ben burdaki kodlarınızı kendi excel dosyama aktardım.Fakat ULKE sayfasındaki sekmeleri görmüyor.Sizin yazmış olduğunuz kod içersindede aradım bulamadım.Userfrom1 geliyor fakat üzerinde ülke isimleri yok.Ben nasıl tanıtabilirim.Yardımınızı rica ediyorum.

Ülke tanımları için ben bir ad ekledim.Ulkeler diye.
propertiestende rowsource karşısınada ulkeler yazdım.
yani tanımladığım alana bir ad vermiştimonu yazdım.
Benim verdiğim dosyadaki ad tanımlamaya bakarak sizde bir ad tanımlayabilirsiniz.

 

[akmes]

Ülke tanımları için ben bir ad ekledim.Ulkeler diye.
propertiestende rowsource karşısınada ulkeler yazdım.
yani tanımladığım alana bir ad vermiştimonu yazdım.
Benim verdiğim dosyadaki ad tanımlamaya bakarak sizde bir ad tanımlayabilirsiniz.

Üstadım properties userfrom tıklıyorum rowsource bulamıyorum.

 

[Orion1]

Üstadım properties userfrom tıklıyorum rowsource bulamıyorum.

listboxa sağ tıklayın ve properties seçin.

 

[akmes]

listboxa sağ tıklayın ve properties seçin.

Evet buldum.Benim aktardığım dosya içindekine baktım ulkeler yazısı var.Sayfa adlarınıda aynı sizin örnekteki gibi verdim.Kodlarıda aynı kopyaladım.Ama userfrom üzerine bu ULKE sayfasındaki isimler gelmiyor.Atladığım birşey var..

 

[Orion1]

Evet buldum.Benim aktardığım dosya içindekine baktım ulkeler yazısı var.Sayfa adlarınıda aynı sizin örnekteki gibi verdim.Kodlarıda aynı kopyaladım.Ama userfrom üzerine bu ULKE sayfasındaki isimler gelmiyor.Atladığım birşey var..

ad tanımlaması yaptınızmı peki.Yapmamışsınızdır büyük ihtimalle.
yolldığım dosyada ad tanımlamalarına bakarak sizde bir tane ad tanımlayın.
Ad tanımlamayı bilmiyorsanız,forumda ad tanımlama diye arama yapınız.

 

[akmes]

ad tanımlaması yaptınızmı peki.Yapmamışsınızdır büyük ihtimalle.
yolldığım dosyada ad tanımlamalarına bakarak sizde bir tane ad tanımlayın.
Ad tanımlamayı bilmiyorsanız,forumda ad tanımlama diye arama yapınız.

Teşekkür ederim ad tanımlamayı biras irdelemem gerekiyor anlaşılan.

 

[Orion1]

Üstadım properties userfrom tıklıyorum rowsource bulamıyorum.

Ad tanımlama yapmadan kod yazarakta verileri listboxta görünteleyebiliriz.
Önce propertiesten rowsource de yazdığınız ad tanımı silin.
ben listboxın row source yöntemini kod yazarak userformun initialize olayına yazdım.
Kolay gelsin.
Dosyanız ektedir.

 

[akmes]

Ad tanımlama yapmadan kod yazarakta verileri listboxta görünteleyebiliriz.
Önce propertiesten rowsource de yazdığınız ad tanımı silin.
ben listboxın row source yöntemini kod yazarak userformun initialize olayına yazdım.
Kolay gelsin.
Dosyanız ektedir.

Üstadım çok teşekkür ederim.Bu seferki kesin çözüm oldu.Kolay gelsin.

 

[manly]

Bu dosyayı excel 2003 olarak kaydedebilirmisiniz...

 

[Orion1]

Bu dosyayı excel 2003 olarak kaydedebilirmisiniz...

2003 yaptım.15 numaralı mesajdan indirebilirsiniz

 

[manly]

2003 yaptım.15 numaralı mesajdan indirebilirsiniz

Teşekkür ederim...