Formda verilerin istediğim sheete otomatik gitmesi

[istanbulcahan]

Hazırladığım formda filtre yaparak bilgileri verilen kişilerin katılanlar katılmayanlar olarak belirleyebiliyorum.Bunu ben otomatik olmasını ve sheetlere ayrılması katılanlar katılamıyanlar şeklinde ayrılmasını istiyorum..Örnek dosya ektedir.

 

[İhsan Tank]

katılamayanların ne sebebple katılamadığının bir standartı var mı_?

 

[istanbulcahan]

Katılamayanların herhangi bir standardı yok. Çünküm katılamayanlar -katılamayanlar hastanede katılamayanlar il dışında vs şekilleniyor.onun için katılamayanlar başlığı altında yeter.

 

[İhsan Tank]

Katılamayanların herhangi bir standardı yok. Çünküm katılamayanlar -katılamayanlar hastanede katılamayanlar il dışında vs şekilleniyor.onun için katılamayanlar başlığı altında yeter.

merhaba
ben şu şekilde yaptım
Tüm liste sayfasının E Sütununu Sebep Olarak Belirledim.
Mesela D sütunu katılamayanlar E sütunu İl dışında gibi
sonra D sütunundaki verileri
Sekme adlarına göre düzenledim.
Katılıyor
katılmayanlar
il temsilcisi yok
gibi
sonra da kitabın thisworkbook bölümüne

Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name <> "TÜM LİSTE" Then
Dim ts, kaplan, trabzonspor, hamsi
trabzonspor = MsgBox(ActiveSheet.Name & " Verilerini Aktarıyorum", _
vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.DisplayAlerts = False
hamsi = Range("B1048576").End(xlUp).Row
Range("A2:E" & hamsi).ClearContents
kaplan = 2
For ts = 2 To Sheets("TÜM LİSTE").Cells(1048576, "B").End(xlUp).Row
If Sheets("TÜM LİSTE").Cells(ts, "D") = ActiveSheet.Name Then
Cells(kaplan, "B") = Sheets("TÜM LİSTE").Cells(ts, "B")
Cells(kaplan, "C") = Sheets("TÜM LİSTE").Cells(ts, "C")
Cells(kaplan, "D") = Sheets("TÜM LİSTE").Cells(ts, "D")
Cells(kaplan, "E") = Sheets("TÜM LİSTE").Cells(ts, "E")
kaplan = kaplan + 1
hamsi = Range("B1048576").End(xlUp).Row
Range("A2") = 1
Range("A2:A" & hamsi).DataSeries rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
step:=1, Trend:=True
End If
Next
Application.DisplayAlerts = True
MsgBox ActiveSheet.Name & " Verilerini Aktardım", vbInformation, "Bitiş"
End If
End Sub

bu kod'u kopyaladım gayet başarılı şekilde aktarım yaptı

 

[istanbulcahan]

Teşekkürler. Makro çalışıyor. tüm sheetlerde ama boş liste oluyor.

 

[İhsan Tank]

Teşekkürler. Makro çalışıyor. tüm sheetlerde ama boş liste oluyor.

D sütununda geçen isimler ile sekme adları birbiri ile aynı olmalı
mesela

KATILIYOR

bu sekme adı ile eşit olmalı KATILIYOR
bu olursa aktarır

KATILIYOR

bu sekme adı KATILIYOR.
bu olursa aktarmaz.

eki inceleyin
ben D sütununa Veri - doğrulama - liste özelliği ekledim 3 sayfa ismi dışında veri girişi yapamıyorsunuz.

 

[istanbulcahan]

Müthiş olmuş, emeğine sağlık...

 

[İhsan Tank]

Müthiş olmuş, emeğine sağlık...

kolay gelsin
:yazici: