• DİKKAT

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

ödeme yapılanların ve yapılamayanların listelenmesi

S

sandokan

Katılım
22 Kasım 2005
Mesajlar
389
Excel Vers. ve Dili
XP
Ekli dosyada gondermiş oldugum dosyada ödeme yapılanları ve yapılmayanları listelemek istiyorum
kısacası ödeme listesi tablomdan ödemesi yapılanlar ve yapılmayanları listelemek istiyorum

yardımlarınız için teşekkür ederim
 

Ekli dosyalar

sandokan' Alıntı:
Ekli dosyada gondermiş oldugum dosyada ödeme yapılanları ve yapılmayanları listelemek istiyorum
kısacası ödeme listesi tablomdan ödemesi yapılanlar ve yapılmayanları listelemek istiyorum

yardımlarınız için teşekkür ederim
Genişletmek için tıkla ...

merhaba
siz makro bölümünde konu açmışsınız ama ben formül ile çözdüm
umarım işinize yarar
A2 hücresindeki formülü silmeyiniz
B5:B32 aralığındaki formüller sıra numarası çıkartır.
C5:G32 aralığındaki formüller dizi formülüdür. ( dizi formülü formül hücreye girildikten sonra enter tuşuna basmadan ctrl+shift+enter tuş kombinasyonu ile aktif olmaktadır. formülün başında ve sonunda { } bu işaretler çıkar elle eklediğiniz takdirde formül hata verir.)
 

Ekli dosyalar

sayın ihsan tank olmadı uygulamaya calıstım ama..UYGULAMAYA CALISTIM FAKAT VERİLERİ YANLIS YERLERDE GETİRDİ. .. sanırım makrolu daha kolay olucak..
 
Son düzenleme:
sandokan' Alıntı:
sayın ihsan tank olmadı uygulamaya calıstım ama .. sanırım makrolu daha kolay olucak..
Genişletmek için tıkla ...

nesi olmadı ağır mı yoksa _?
istediğiniz bilgileri mi çıkartmıyor_?
bilgi verirseniz
hem ben nerede yanlış yapmışım onu bulurum hemde diğer arkadaşlara yol göstermiş olursunuz
 
Hücrelere tek tek girip üclü ctr+shft+enterleri yapınca tarihi algıladı fakat fırma adına doviz turunu falan getirdi.
 
Dosyanız ektedir.:cool:
Kod: 
Sub odeme_bilgileri(ByVal sh As Worksheet, kriter As String)
Range("B4:G65536").ClearContents
Application.ScreenUpdating = False
sh.Range("A1").AutoFilter
sh.Range("A1").AutoFilter field:=2, Criteria1:=">=" & CLng(Range("A1").Value), _
Criteria2:="<=" & CLng(Range("B1").Value)
sh.Range("A1").AutoFilter field:=6, Criteria1:=kriter
sh.Range("A1").CurrentRegion.Copy
Range("B4").PasteSpecial xlPasteValues
sh.Range("A1").AutoFilter
Range("A1").Select
Application.ScreenUpdating = True
MsgBox "İşlem Tamamdır" & vbLf & "evrengizlen@hotmail.com", vbOKOnly + vbInformation, "EVREN"
End Sub
 

Ekli dosyalar

Merhaba evrengizlen
GÜNÜ GELEN ÖDEMELER KISMINI BOZMUS BU 1 CİSİ
2 CİSİ ÖDENMİŞ GÜNLERİ GÖSTER DİYİNCE GÖSTERİYOR
3.ÖDENMEMİŞ GÜNLERİ GÖSTER KISMI OLMAMIS
 
Sanırım modül 2 ile karısmıs...
ÖDENMİŞLERİ CIKARIKENDE ÖDEME TÜRÜ İLE FİRMA ADI KISMININ YERLERİNİ DEĞİŞTİRMİŞ.
 
Önceki dosyada eklediğim yerde tekrar günceleldim.
Oradn indirebilirsiniz
Yer değiştirme Olayı;
hepsi sayfasından verielri alıyoruz
Oradan kod ile autofilter yapıyorum.
Ve istediğiniz sayfalara istediğiniz neticeleri alarak atıyorum.
Oradan gelen veriler oradaki intizamaiyerleşime göre geliyor.
Ya oradaki yerleşimi değiştirin yada verielri aldıktan sonra buradaki yerini değiştirin.
Bunlara gerek kalmadanda olur ama bu en hızlı çalışanıdır.
Bakun sizn yazdığınız kod ile benim yadığım arasındaki hız farkına.
düşünün bu 20 satır şu anda.Ya 20 bin satır olsa ne olacak?.
Bu işlerde en önemli olay tasarımdır.
Kod yazmak %30 dur.%50 tasarımdır.Diğer konularda kalan yüzdeye girer.
Bu şekilde tasarlayın.
Kolay gelsin.:cool:
 
sayın evren gizlen olmus FAKAT BENDE HATA ÖDEME TÜRÜ İLE FİRMA ADI KISMINI YANLIS YAZMISIM .ONU DÜZELTMEMİMİZ MÜNKÜNMÜ.?
BİRDE SIRA NUMARASI VERMİYORMU LİSTELERKEN

======
No ÖDEME TARİHİ ÖDEME TÜRÜ FİRMA & ALICI ADI TUTAR UYARI
BÖYLE OLUCAKTI
=========
BUNU UYARLAYABİLRSEK İŞLEM TAMAM OLUCAK GİBİ
TEK EKSİGİ BU VE SIRALAMA LİSTESİNİ 1,2,3 SEKLINDE YAPAMİYORMUYUZ
 
Son haliyle dosya bu

SAYIN EVREN GİZLEN BEN HALLETİM YERLERİNİ DEĞİŞREKE
TEK SORUN LİSTEYİ CIKARIKEN 1,2,3,4,5,6 DİYE GİTMEMESİ
LİSTE GELİYOR İSTEDİGİM GİBİ..FAKAT SIRA NUMARALARI OLDUGU GİBİ GELİYOR
1,2,3,4,5,6,7,8,9,10 DİYE GİTMESİ MÜMKÜNMÜ
 

Ekli dosyalar

Son düzenleme:
sandokan' Alıntı:
Son haliyle dosya bu

SAYIN EVREN GİZLEN BEN HALLETİM YERLERİNİ DEĞİŞREKE
TEK SORUN LİSTEYİ CIKARIKEN 1,2,3,4,5,6 DİYE GİTMEMESİ
LİSTE GELİYOR İSTEDİGİM GİBİ..FAKAT SIRA NUMARALARI OLDUGU GİBİ GELİYOR
1,2,3,4,5,6,7,8,9,10 DİYE GİTMESİ MÜMKÜNMÜ
Genişletmek için tıkla ...
Gerekli günellemeyi yaptım.
Önceki yerinden indirebilirsiniz dosyayı.:cool:
 
Teşekkür ederim evren gizlen pişmaniye sözüm hala duruyor.unutmadımda göndermedimde o kadar günlük yasama yenigizki..
 
Tek bişey daha cıktı evren gizlen ödeme günleri gelen kısmında listeyi degiştiğimde silinip aynen sizin yapmıs oldugunuz gibi her tıkladıgımızda eksisi silinip yenisi gelmesini istiyorum...

Elle siliyorum suan

ödeme günleri gelen sayfasındaki b5 ve g sutunu arasına gelen kısmını...yani ödeme listesi hepsi sayfasında degiklik yapıp gelip günü gelenleri cıkar dedidigmde orda eksi veri kaliyor..oysa sizin yaptıgınızdaki gibi olması mümkünmü..
 
Tek bişey daha cıktı evren gizlen ödeme günleri gelen kısmında listeyi degiştiğimde silinip aynen sizin yapmıs oldugunuz gibi her tıkladıgımızda eksisi silinip yenisi gelmesini istiyorum...
 
sayın evren gizlen listeleri aliyoruzya odemesi gelenler gelmeyenler bunlar listede diyelim bir firmanın iki ödemesi var biri ve ödeme listesinde daha üst sırada 30.12.2010 olsun odeme listesi hepsinde 4 sırada birde 9 uncu sırada olsun bunun ondeme tarihide 07.10.2010 olsun listeleri alırken oncelik tarihe göre alması mümkünmü
su haliyle oldugu gibi listeye ilk gireni oncelik aliyor,
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst