Verileri süzerek diğer sayfalara aktarmak..

[serdarinho43]

arkadaşlar açıklamayı dosya içinde yaptım kısaca : kodları aynı olanların diğer sayfalara otomatik olarak dağılmasını istiorum yardımlarınız için şimdiden teşekkürler :yardim:

konunun daha önce açılıp açılmadığını bulamadım inşallah açılmamıştır.

 

[serdarinho43]

yok mu arkadaşlar yardım edecek

 

[S.Yiğit]

yok mu arkadaşlar yardım edecek

Arkadaşım ilk mesajınla ikinci mesajın arasında 12 Dkk var, Bu acele ne?

Ayrıca sorun anlaşılmışyor.. Daha açıklayıcı olur musun ?

 

[serdarinho43]

2009 geliyo benim bunu ayın 20 sine kadar bulmak istiyorum

sorun şu veriler sayfasındaki isimlerin kodlarına göre sayfalara dağılmasını istiyorum.

 

[tahsinanarat]

Böyle birşeymi? istediğiniz.

Dosyanız ektedir, inceleyiniz.

 

[serdarinho43]

çok teşekkürler emeğine sağlık

 

[Merhum İdris SERDAR]

http://www.excel.web.tr/showthread.php?t=20271

Buradaki dosyaları inceleyin.

.

 

[serdarinho43]

SN YURTTAŞ

VERMİŞ OLDUĞUNUZ ÖRNEKTEKİ KODU KENDİME GÖRE ŞU ŞEKİLDE ;

Option Explicit

Sub DAGIT()
Dim s1 As Worksheet
Dim sY As Worksheet
Dim ALAN As Range
Dim r As Integer
Dim c As Range
Set s1 = Sheets("Döküm")
Set ALAN = Range("veritabanı")


s1.Columns("T:T").Copy _
Destination:=Range("BC1")
s1.Columns("BC:BC").AdvancedFilter _
Action:=xlFilterCopy, _
CopyToRange:=Range("BA1"), Unique:=True
r = Cells(Rows.Count, "BA").End(xlUp).Row


Range("BC1").Value = Range("T1").Value

For Each c In Range("BA2:BA" & r)

s1.Range("BC2").Value = c.Value

If SAYFA(c.Value) Then
Sheets(c.Value).Cells.Clear
ALAN.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Döküm").Range("BC1:BC2"), _
CopyToRange:=Sheets(c.Value).Range("A1"), _
Unique:=False
Else
Set sY = Sheets.Add
sY.Move After:=Worksheets(Worksheets.Count)
sY.Name = c.Value
ALAN.AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=Sheets("Döküm").Range("BC1:BC2"), _
CopyToRange:=sY.Range("A1"), _
Unique:=False
End If
Next
s1.Select
s1.Columns("BA:BC").Delete
End Sub
Function SAYFA(SAYFAADI As String) As Boolean
On Error Resume Next
SAYFA = CBool(Len(Worksheets(SAYFAADI).Name) > 0)
End Function


YAPTIM VE AKTARDI ANCAK AKTARDIĞI VERİLERİ SAYFADAN SİLMİŞ
ÖRNEK EKTE

 

[serdarinho43]

Dosyanın işlenmemiş hali altta

 

[serdarinho43]

DENEDİM DENEDİM Bİ TÜRLÜ YAPAMADIM

 

[istanbulcahan]

Dosyanız ektedir, inceleyiniz.

İyi bir bir çalışma emeğinize sağlık, burada bir isteğim olacak, rakamlara göre ilgili dosyalara verileri süzmek yerine adı ve soyadına göre veriler süzülecek bunu yapabilmek mümkünmü. ekte dosyada da belirttim.yardımlarınız için şimdiden teşekkürler.

 

[Orion1]

Aşağıdaki kodu siliniz.

s1.Columns("BA:BC").Delete

 

[serdarinho43]

Aşağıdaki kodu siliniz.

s1.Columns("BA:BC").Delete

SİLDİM AMA OLMADI

SYN YURTTAŞIN ÇOK GÜZEL BİR ÇALIŞMASI VAR;

BURDA
http://www.excel.web.tr/showthread.php?t=20271

FORMÜLLE DAĞITMIŞ BEN ONU DENEDİM AMA SADECE İLK SATIR GİTTİ DİĞERLERİNDE SAYI HATASI VERDİ

 

[tahsinanarat]

İstediğiniz dosya ekteki gibimi olacak?

Sn. istanbulcahan, dosyayı incelermisiniz, istediğiniz bu şekildemi.

 

[istanbulcahan]

Sn. istanbulcahan, dosyayı incelermisiniz, istediğiniz bu şekildemi.

Veriler kısmındaki F2 hücresinde yukarıdan aşağıya her isim görev eklemesinin "ekle" tuşunun olması isim ve bilgiler yazıldığında ekle tuşuna basıldığında ilgili kişinin sheetine gitmesi ve ekle tuşu böylece ortadan kalkmalı. her isim ve bilgi eklendiğinde bu işlem uygulanmalı. C1 blümündeki hücrede belirttiğim sarı yerde her görev eklendiğinde yeni tarihler üstte olacak. Yardımların için teşekkürler.