Kritere göre seçtikten sonra aktarma yapmak

[erselonur]

Herkese kolay gelsin,

Bu siteden öğrendiğim ve kopyalayıp değiştirerek yaptığım bir çok güzel iş sahibi oldum.

Bu ara kullandığım personel listesinde personel bilgileri içinden bazı bilgileri döküm olarak (daha doğrusu liste olarak) almak istiyorum.

Şöyleki;

Mesala kan grupları olarak A RH (+) kan grubunda olap personellerin dökümünü
user formda bir buton ile yeni bir çalışma sayfasına veya boş bir sekmeye atmasını istiyorum.

Şöylede olabilir;

User formda açılır kutudan istediğim kan grubunu seçip, seçtiğim o kan grubuna ait personel isimlerini kan grupları ile birlikte bir buton ile de boş bir sekmeye veya yeni bir çalışma sayfasına atmak istiyorum.

Bu işlemi ünvanlar için ve bayan erkek ayrımı ile de yapmak istiyorum.

Bu konuda engin bilgi, tecrübe ve yardımlarınızı bekliyorum.

Herkese kolay gelsin

 

[f_desat]

merhaba bu hahsettiğin işlemlerin tamamını özet tablo kullanarak yapabilirsin

 

[erselonur]

merhaba bu hahsettiğin işlemlerin tamamını özet tablo kullanarak yapabilirsin

Kusura bakma,

Özet tablo'yu anlayamadım.
Yani nasıl ve nereden yapılıyor.
İzah edersen memnun olurum.

Şimdiden teşekkürler

 

[Korhan Ayhan]

Merhaba,

Aşağıdaki linki inceleyerek özet tablo hazırlamayı öğrenebilirsiniz.

Özet Tablo Hazırlamak (Resimli Anlatım)

 

[Orion1]

Dosyanız ektedir.
Veriler sayfa2 de listeleniyor.

Private Sub UserForm_Initialize()
Dim sat As Long
Me.Caption = "coder by : evrengizlen@hotmail.com"
Sheets("DATA").Select
ListBox1.ColumnCount = 7
ListBox1.ColumnHeads = True
Range("A1").AutoFilter
sat = Sheets("DATA").Cells(Rows.Count, "C").End(xlUp).Row
If sat > 2 Then ListBox1.RowSource = "DATA!A3:G" & sat

End Sub
Private Sub liste_59()
Dim sh As Worksheet
Set sh = Sheets("Sayfa2")
Application.CutCopyMode = False
ListBox1.RowSource = ""
sh.Range("A2:G" & Rows.Count).Clear
Sheets("DATA").Select
Range("A1").AutoFilter
If TextBox1.Text <> "" Then
    Range("A1").AutoFilter field:=3, Criteria1:=TextBox1.Text & "*"
End If
If TextBox2.Text <> "" Then
    Range("A1").AutoFilter field:=4, Criteria1:=TextBox2.Text & "*"
End If
If TextBox3.Text <> "" Then
    Range("A1").AutoFilter field:=6, Criteria1:=TextBox3.Text & "*"
End If
If TextBox4.Text <> "" Then
    Range("A1").AutoFilter field:=7, Criteria1:=TextBox4.Text & "*"
End If
Range("A2").CurrentRegion.Copy sh.Range("A2")
sat = sh.Cells(Rows.Count, "C").End(xlUp).Row
If sat > 2 Then
    ListBox1.RowSource = "sayfa2!A3:G" & sat
End If
Range("A2").AutoFilter
End Sub

 

[erselonur]

Dosyanız ektedir.
Veriler sayfa2 de listeleniyor.

Hocam çok teşekkür ederim, harika birşey olmuş.

Ben bu örneğinizi daha önceden siteden bana yardım eden üstadların vasıtasıyla hazırladığımız herşeyi ile çok güzel çalışan bir personel takip programının içine entegre etmeye çalıştım.

Yeni bir userform yaparak yapmaya çalıştım fakat istediğim gibi olmadı.

Çünkü benim listem yanlış hatırlamıyorsam 24 sütun.
Bunun içinden; ünvan, kan grubu, adı soyadı, görev yeri şeklinde bir liste yapmak istedim ama başarılı olamadım.

Sizin hazırladığınız gibi sayfa2'ye seçileni atıyor ancak diğer sütunlarda sayfa2'de gözüküyor,

Ben seçim yaptığımda mesala A RH + kan grubunu seçtiğimde, o kan grubuna mensup ;
adı soyadı, ünvanı, kan grubunun sayfaya atmasını diğer sütunların olmamasını istiyorum çok uğraştım senin örneğin üzerinde oynamalar yaptım ama başaramadım.

Ayrıca yeni personel geldiğinde bilgileri kaydediyorum ama en sona atıyor,
acaba alfabetik olarak data içindeki listeye atılabilirmi,
keza arsive gidenleri atıyorum o da aynı şekilde olabilirmi.

Ayrıca data sayfasına veya arsiv sayfasına bir defa manuel olarak bilgi girdikten sonra, silmeye çalışıyorum ama değişiklik yapmaya müsade etmiyor, onu anlayamadım. Aynı şey sayfa2 içinde geçerli.

Birde userformda yer alan liste aralığında mesala sıra no çok geniş, adı soyadı yazan yer dar çıkıyor, siyah zeminli yeşil yazılı senin hazırladığın örnekte olduğu gibi. Bunu nasıl düzeltebiliriz.


Konuyla ilgilenirseniz çok memnun olurum,

Şimdiden teşekkürler.

 

[Orion1]

Dosyanız ektedir.

 

[erselonur]

Üstad ellerine sağlık,

Yalnız, çalışmayı ilk açtığımda hata1'i veriyor

hata birdeki zaman kodlarını sildiğimde çalışmayı açıyorum

rapor butonuna tıklayıp açtığımda açılan yerde mesela cinsiyetten seçim yaptığımda bu sefer 2 nolu hatayı veriyor

3 nolu hatada, 2 nolu hatanın devamı

Üstad ilgilenirsen memnun olurum.

İlgi ve alakan, desteğin ve yardımın için Teşekkürler

 

[erselonur]

mesaj çift oldu onunu için içeriğini sildim

 

[erselonur]

Dosyanız ektedir.
Veriler sayfa2 de listeleniyor.

Private Sub UserForm_Initialize()
Dim sat As Long
Me.Caption = "coder by : evrengizlen@hotmail.com"
Sheets("DATA").Select
[COLOR="Red"]ListBox1.ColumnCount = 7
ListBox1.ColumnHeads = True[/COLOR]Range("A1").AutoFilter
sat = Sheets("DATA").Cells(Rows.Count, "C").End(xlUp).Row
If sat > 2 Then ListBox1.RowSource = "DATA!A3:G" & sat

End Sub
Private Sub liste_59()
Dim sh As Worksheet
Set sh = Sheets("Sayfa2")
Application.CutCopyMode = False
ListBox1.RowSource = ""
sh.Range("A2:G" & Rows.Count).Clear
Sheets("DATA").Select
Range("A1").AutoFilter
If TextBox1.Text <> "" Then
    Range("A1").AutoFilter field:=3, Criteria1:=TextBox1.Text & "*"
End If
If TextBox2.Text <> "" Then
    Range("A1").AutoFilter field:=4, Criteria1:=TextBox2.Text & "*"
End If
If TextBox3.Text <> "" Then
    Range("A1").AutoFilter field:=6, Criteria1:=TextBox3.Text & "*"
End If
If TextBox4.Text <> "" Then
    Range("A1").AutoFilter field:=7, Criteria1:=TextBox4.Text & "*"
End If
Range("A2").CurrentRegion.Copy sh.Range("A2")
sat = sh.Cells(Rows.Count, "C").End(xlUp).Row
If sat > 2 Then
    ListBox1.RowSource = "sayfa2!A3:G" & sat
End If
Range("A2").AutoFilter
End Sub

Üstad,
bir yardım daha rica edeceğim,
Şöyleki;

Üstte kod içinde kırmızı ile belirttiğim yerde,
Yani listbox içinde yedi tane sütun mevcut ancak sütunlar standart genişlikte.
Mesela; S.No ile TC Kimlik No sütun genişliği aynı.
S.No için genişlik çok büyük, TC Kimlik No için genişlik az rakamların tamamı gözükmüyor.
Bunu nasıl isteğime göre ayarlayabilirim.

İkincisi userforma bir buton attım butona tıklayınca bir türlü sayfa2'ye (RAPOR)gidemedim. Çok uğraştım ama her defasında debug hatası aldım.
Bu butona nasıl bir kod yazmalıyım ki Sayfa2'ye (RAPOR) gitsin.
User form üzerine bir buton yaptım sonra aşağıdaki kodu yazdım butona ama hep hata veriyor; sayfanın adı RAPOR, bilgileri aldığı sayfa DATA

Private Sub CommandButton3_Click()

Sheets("RAPOR").Select


End Sub

Şimdidien yardım edecek herkese teşekkürler

 

[erselonur]

Güncelleme

Yardımlarınızı bekliyorum,
Bu konuda yardımlarınızı esirgemeyin.