Sayfa1 deki sayıyı otomatik 1 artırmak ve diğer sayfada tarihe bağlı yazdırmak

Katılım
13 Eylül 2010
Mesajlar
8
Excel Vers. ve Dili
2003
Sayfa1 deki sayıyı otomatik 1 artırmak ve diğer sayfada tarihe bağlı listelemek

Arkadaşlar,
Çalışma 3 sayfadan ibaret,

1- BaşlangıçNo Sayfasında 5 bankaya ait işlem sıra noları elle giriliyor.
A bankası işlem no= 23
B bankası işlem no= 459 ... gibi...

2- Giriş sayfasında Banka, İşlem Sıra No, İşlem Tarihi ve İşlem sütunları var. Banka sütununda 5 banka ismini içeren Alta Açılır Liste var. En son boş satırda açılır listeden bir banka seçildiğinde, yanındaki İşlem Sıra No kısmına bir önceki sayfadan elle girdiğimiz Sıra noyu 1 artırarak otomatik yazacak. İşlem tekrarında ise bir önceki sayfadan değil, bir üstteki satırdan seçilen bankanın numarasını bulup 1 artıracak...

3- Rapor sayfasında ise A2 hücresine =bugün() kullanarak, bugünün tarihini aldırıyorum. İstediğim ise, bu tarih ile Giriş sayfasındaki İşlem Tarihi sütununu karşılaştırarak aynı olanları "banka adı","işlem sıra no","işlem tarihi" ve "işlem" bilgilerini listeleyecek.

Forumda incelediğim konularda sorulan sorulara bakınca basit geldi ama yapamadım, yardımlarınızı bekliyorum. Yaptığım çalışma ekte... Aynı çalışmanın 2003 ve 2007 versiyonlarını ekledim...
 

Ekli dosyalar

Son düzenleme:
Katılım
13 Eylül 2010
Mesajlar
8
Excel Vers. ve Dili
2003
Rapor sayfasında listelenecek verileri, forumda arayarak bulduğum bir vba kodu ile yapmaya çalıştım fakat, yapamadım. kod:

Sub Listele()
Set s1 = Sheets("Giriş")
Set s2 = Sheets("Rapor")
s2.Range("b2:f5000").ClearContents
For i = 3 To s1.[d65536].End(3).Row
For j = 3 To s1.[d65536].End(3).Row
If s1.Cells(i, "d").Value = s2.Cells(j, "a").Value Then
sat = s2.[b65536].End(3).Row + 1
s2.Cells(sat, "b").Value = sat - 1
s2.Cells(sat, "c").Value = s1.Cells(j, "b").Value
s2.Cells(sat, "d").Value = s1.Cells(j, "c").Value
s2.Cells(sat, "e").Value = s1.Cells(j, "d").Value
s2.Cells(sat, "f").Value = s1.Cells(j, "e").Value
End If
Next j
Next i
MsgBox "Bitti"
s2.Select
Set s1 = Nothing
Set s2 = Nothing
End Sub
 

muygun

Özel Üye
Katılım
6 Temmuz 2004
Mesajlar
9,182
Excel Vers. ve Dili
Excel-2003 Türkçe
Merhaba;
Doğru anladıysam fonksiyonlarla çözümü inceleyin.
İyi çalışmalar.
 

Ekli dosyalar

Katılım
13 Eylül 2010
Mesajlar
8
Excel Vers. ve Dili
2003
Sorun nerede...

Çalışma dosyasından yararlanarak foknsiyonları diğer çalışma kitabında kullandım. Formülleri iyi analiz ettiğimi sanıyorum fakat raporlama yapmıyor. Nerede hata yapıyorum, bakabilir misiniz?

Çalışma dosyalarının 2003 ve 2007 versiyonlarını ekliyorum. Formüllü alanları renklendirdim.

Özetle;

Giriş Sayfasında Banka İsimleri ve yanlarına İşlem No Başlangıç Sayıları elle giriliyor. İkinci sayfada Alta açılan listeden banka seçildiğinde İşlem numarası 1 artarak yazıyor. Burada sıkıntı yok.

Aynı sayfada AC sütununda günceltarih yazılı. AC3 hücresindeki tarih bilgisi ile j4 hücresinden başlayan tarihleri karşılaştırarak; aynı olanları 14.09.2010 isimli sayfada ve İş Dağıtım Sayfasında listeliyecek.

14.09.2010 adlı sayfada formülleri yerleştirdim fakat listeleme yapmıyor.

Ayrıca formül sanırım belirli sütun aralığını listeliyor. Fakat benim asıl listelemek istediğim sütunların hepsi yan yana değil. Yani A'dan D'ye diyemiyorum; Örneğin A, B, C, G, K, L, P sütunlarını listelemek istiyorum.


Formüllerin çoğunu yerleştirdim, yardımlarınızı bekliyorum...
 

Ekli dosyalar

muygun

Özel Üye
Katılım
6 Temmuz 2004
Mesajlar
9,182
Excel Vers. ve Dili
Excel-2003 Türkçe
Merhaba;
Eki tekrar deneyin.
Not: 26.08.2010 ve iş dağıtım sayfalarında ilk satırda rakam değerleri var. Bu rakamlar alacağınız sütun sayılarıdır. (örn:A sütunu için =1,B sütunu için =2...E sütunu için =5 vs...)
Bunları kendinize göre düzenleyebilirsiniz.
talepler,26.08.2010 ve iş dağılımı sayfalarında gri hücreler formül uygulanmış hücrelerdir. Bu kodlama yeterli değilse yeterince bu hücreleri çoğaltın.
Ayrıca dosya boyutunu küçültmek adına bazı kodları ve açılır listeleri sildim. siz gereken çoğaltmayı yaparsınız.
İyi çalışmalar.
 

Ekli dosyalar

Katılım
13 Eylül 2010
Mesajlar
8
Excel Vers. ve Dili
2003
son...

Sayın M. UYGUN, ellerinize sağlık, çok güzel yapmışsınız...
 
Katılım
13 Eylül 2010
Mesajlar
8
Excel Vers. ve Dili
2003
Son olarak... Bitti...

Sayın M. Uygun, en son olarak projeyi bitirdim sayılır...

İki yeni sayfa ekledim. Aylık ve Eylül-2010 sayfalarını. Birinde aylık İşlem toplamlarını ve diğerinde yine aylık işlem toplamlarını gün gün, ayrıntılı bir şekilde veriyor.

Yeni sayfalardaki bankaları Giriş sayfasında girişini yaptığımız bankalar sütunundan formüllere bağlı otomatik çektirebilir miyiz?

En son olarakta, yeni sayfalardan birinde yer alan tarihleri ve bunlara bağlı olan formülleri iki hücre belirleyerek. Bu iki hücreye iki tarih girip tarih aralığı oluşturarak varolan formülleri bağlayabilir miyiz?
 

Ekli dosyalar

Son düzenleme:

muygun

Özel Üye
Katılım
6 Temmuz 2004
Mesajlar
9,182
Excel Vers. ve Dili
Excel-2003 Türkçe
Syn. coverover;
Öncelikle tablo yapınızı, excel tablo kullanım mantığınızı biraz geliştirmeniz gerekir.
(bazı sayfalarınızda ya sütunun tamamı yada satırın tamamına biçimlendirme uygulanmış)
Sayfalarınızdan birinde istediğiniz iki tarih aralığını kapsayan süzmeyi oluşturmadım. Nedenini tablo içinde açıkladım.
Eki inceleyin.
İyi çalışmalar.
 

Ekli dosyalar

Katılım
13 Eylül 2010
Mesajlar
8
Excel Vers. ve Dili
2003
Allah Razı Olsun...

Öncelikle 2 gündür projemle yakından ilgilendiğiniz için çok teşekkür ederim.

Uygulamadan faydalanmak isteyen arkadaşlar için;

Projedeki AYLIK sayfasında formül çoğaltılırken olmaması gereken şekilde çoğalmış. Düzeltmek için ilgili satırlardaki;

=EĞER($A5="";"";EĞER($A5="toplam";TOPLA($F$3:F4);TOPLA(EĞER(TALEPLER!$E$4:$E$400=$A5;EĞER(AY(TALEPLER!$J$4:$J$400)=AY($B$1);EĞER(YIL(TALEPLER!$J$4:$J$400)=YIL($B$1);EĞER(TALEPLER!K4:K400=F$3;TALEPLER!$AD$4:$AD$400;"")))))))

Formülünde mavi renkli yazdığım yer, diğer satırlarda da aynı olacak şekilde düzeltin ve düzelttikten sonra formülü ENTER tuşu ile değil CTRL+SHIFT+ENTER tuşlarına birlikte basarak onaylayın...

Ellerine, aklına sağlık Muygun, değerli vaktinizi aldım, müteşekkirim...
 
Son düzenleme:
Üst