Birden fazla sütundan veri süzme

[ufukyilmaz]

Merhaba,

Ekteki dosyada aynı safada birden fazla sütunda aynı takımın oynadığı maçları altalta başka bir sayfada nasıl süzebilirim?

Ayrıca aynı şekilde son 6 maçını nasıl süzebilirim.

Yardımlarınızı bekliyorum. Şimdiden teşekkürler.

Ufuk

 

[ufukyilmaz]

Yardımcı olabilecek var mı?

Forumdan araştırdım ama aynı datanın farklı sütunlarda olduğu süzme formulunu bulamadım. Yada böyle bir konu varsa linkini gönderebilir misiniz?

Teşekkürler.

 

[Muhammet Okumuş]

Dosyayı inceleyiniz.

 

[ufukyilmaz]

Çok teşekkürler

Dosyayı inceleyiniz.

Bunu diğer sayfada olan son 6 maça göre de uyarlayabilir miyim?
Nasıl bir yol izlemeliyim?

Teşekkürler

 

[Muhammet Okumuş]

Ona sonra bakayım. Ama i.y sonuçları nedense sayı formatında atıyor.

 

[ufukyilmaz]

Elbette bekliyorum

Ona sonra bakayım. Ama i.y sonuçları nedense sayı formatında atıyor.

Bekliyourm sizi. Müsait olduğunuzda bakarsanız sevinirim.

Bir de alta doğru yeni data eklediğimde onları almıyor. Acaba ne yapmalıyım?

Teşekkürler

 

[Muhammet Okumuş]

O zaman formülleri uzatmalısınız.

 

[ufukyilmaz]

Formuldeki sayıları değiştirdim ama olmadı

O zaman formülleri uzatmalısınız.

Formuldeki sayıları değiştirdim ama olmadı, bir de dosya kitlendi sadece okuma ibaresi çıkıyor, yenileyebilir misiniz?

Formulu aşağıdaki gibi değiştirdim, olmadı.

Sub EV()
Application.ScreenUpdating = False
Sheets("Data").Range("AJ2:AP100000") = ""
Sheets("Data").Range("AJ2:AP100000") = Sheets("Data").Range("S2:Y100000").Value
Sheets("Data").Range("AJ2:AP100000").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
Range("B9:H109") = Sheets("Data").Range("AJ2:AP100002").Value
End Sub
Sub DEP()
Application.ScreenUpdating = False
Sheets("Data").Range("AR2:AX100000") = ""
Sheets("Data").Range("AR2:AX100000") = Sheets("Data").Range("AA2:AG100000").Value
Sheets("Data").Range("AR2:AX100000").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
Range("K9:Q109") = Sheets("Data").Range("AR2:AX100002").Value
End Sub

 

[ufukyilmaz]

Dosyayı başka bir isimle yenileyebilir misiniz?

Dosyayı başka bir isimle yenileyebilir misiniz?

Benim sistemimde kilit işareti çıkıyor dosya üzerinde ne yaptıysam

 

[Muhammet Okumuş]

Hocam o .xlsm uzantsı. Ben hazırladığım zaman eklerim.

 

[ufukyilmaz]

Çok teşekkürler

Hocam o .xlsm uzantsı. Ben hazırladığım zaman eklerim.

Hoca sizsiniz biz talebe

Dört gözle bekliyorum sizi, datayı 150000 satır olarak düşünün lütfen.

İyi akşamlar

 

[Muhammet Okumuş]

Data sayfasındaki S:AG sütunları arsındaki formülleri istediğiniz satıra kadar uzatabilirsiniz. Ama formül sayısı arttıkça dosya çalışması yavaşlar.

 

[Muhammet Okumuş]

Hocam bu dosyayı kullanınız. Formüller dosyayı yavaşlatacağı için filitreleme yöntemi kullandım.

 

[ufukyilmaz]

Çok teşekkürler

Hocam bu dosyayı kullanınız. Formüller dosyayı yavaşlatacağı için filitreleme yöntemi kullandım.

Çok teşekkürler, xls dosyasını ekleyecek misiniz?

İyi günler.

 

[Muhammet Okumuş]

Dosya > Farklı Kaydet > 97-2003 versiyonunda kaydediniz. Belki .xls formatında sorunlar oluşabilir.

 

[ufukyilmaz]

Çok teşekkürler

Dosya > Farklı Kaydet > 97-2003 versiyonunda kaydediniz. Belki .xls formatında sorunlar oluşabilir.

Çok teşekkürler.

Deneyeceğim, elinize sağlık,

 

[ufukyilmaz]

HATA mesajı

Dosya > Farklı Kaydet > 97-2003 versiyonunda kaydediniz. Belki .xls formatında sorunlar oluşabilir.

Merhaba Hocam,

Dataları son satırdan kopyalayıp sırala dediğimde aşağıdaki hata mesajını verdi.

Range("U3:U" & son1).SpecialCells(xlCellTypeBlanks).Delete shift:=xlUp

Ne yapmalıyım?

Teşekkürler

 

[Muhammet Okumuş]

Ne amaç için kopyaladığınızı anlamadım. Sırala butonu takım adlarını mükerrer olmadan harf sırasına göre sıralamak içindir.
Siz hatalı dosyayı hatalı olarak kaydedin ve siteye ekleyin.

 

[ufukyilmaz]

Haayı çözdüm

Ne amaç için kopyaladığınızı anlamadım. Sırala butonu takım adlarını mükerrer olmadan harf sırasına göre sıralamak içindir.
Siz hatalı dosyayı hatalı olarak kaydedin ve siteye ekleyin.

Merhaba Hocam,
Öncelikle gecikme için kusura bakmayın.

Kodlardaki satır numaralarını yükseltince hata çözüldü.

Emeğinize sağlık, çok teşekkürler.

 

[Muhammet Okumuş]

Önemli değil Hocam. Ama aklınızda bulunsun bir dosya hata vermiş ise onu o şekil kaydedin. Hatanın kaynağını dosya üzerinde bulması daha kolay oluyor.