A.S.C Filtre, Grafik ve Raporlama Eklentisi

Tablodaki Aynı Kişiye Ait Verileri Raporlama...
#1
Öncelikle herkese merhaba,
Belki daha önce sorulmuş olabilir ama maalesef işin aciliyeti nedeniyle bakamadım. Eğer tekrar oluyorsa özür dilerim. Elimde bir tablo var. Bu tabloda kişilere ait birden fazla satırda bilgiler var. Rapor almak istediğimde ID nedeniyle tek satırı görebiliyorum. Ancak benim istediğim o kişiye ait diğer satırdaki bilgileri de raporda görebilmek ve yazdırmak. Mümkünse bu konuda bana yardımcı olursanız çok sevinirim. Herkese iyi günler.



  Alıntı
Bu mesajı beğenenler:
#2
Sn trmachine; Ornek VT'nızı rar-zip derleyip, konuya eklerseniz daha fazla yardım bulursunuz.



  Alıntı
Bu mesajı beğenenler:
#3
İlginiz için teşekkür ederim. Bu tabloda aynı TC numarasına sahip kişilere ait verileri  her kişinin verileri ayrı sayfalarda olmak üzere başlıklara uygun olarak alt alta almak ve yazdırmak istiyorum. İlginiz için şimdiden teşekkür ederim


Eklenti Dosyaları
.rar   Form2.rar (Boyut: 7,78 KB / İndirilme: 2)



  Alıntı
Bu mesajı beğenenler:
#4
Sayın trmachine alttaki kodları dener misiniz?

Visual Basic
  1. Sub SayfaAktar()
  2. Dim i, j As Long, Sayfa As String, Syf As Worksheet
  3. Set Syf = Sheets("Sayfa1")
  4. Application.ScreenUpdating = False
  5. For j = 2 To Worksheets.Count
  6.    Sheets(j).Cells.Delete Shift:=xlUp
  7. Next j
  8. For i = 2 To Syf.[A65536].End(3).Row
  9.    Sayfa = Cells(i, "D")
  10.        If Not SayfaVarMi(Sayfa) Then
  11.            Sheets.Add After:=Worksheets(Worksheets.Count)
  12.            ActiveSheet.Name = Sayfa
  13.            Syf.Select
  14.        End If
  15.    Syf.Range("A1:G1").Copy Sheets(Sayfa).Range("A1")
  16.    Syf.Range("A" & i & ":G" & i).Copy Sheets(Sayfa).Range("A" & _
  17.    Sheets(Sayfa).[A65536].End(3).Row + 1)
  18.    Sheets(Sayfa).Range("A:G").EntireColumn.AutoFit
  19. Next i
  20. Set Syf = Nothing
  21. Application.ScreenUpdating = True
  22. MsgBox "...: İşlem Tamam :...", vbInformation + vbMsgBoxRight, "userx53"
  23.  
  24. End Sub
  25.  
  26. Function SayfaVarMi(SayfaAdi As String) As Boolean
  27.    On Error Resume Next
  28.    SayfaVarMi = CBool(Len(Worksheets(SayfaAdi).Name) > 0)
  29. End Function





  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  Exel Sayfasındaki Verileri Değiştirmek m_demir 0 183 16-05-2020, 02:49
Son Mesaj: m_demir
  Excel Dosyasındaki Sütunlara Access Tablosundan Açılır Listeli Verileri Almak abkbek 4 381 04-02-2020, 23:14
Son Mesaj: abkbek
  Excel sayfalarındaki bazı hücrelerdeki verileri tek sayfada toplama jaklee 0 520 05-04-2019, 10:54
Son Mesaj: jaklee
  EXCELDE BAŞKA SAYFAYA VERİLERİ GETİRME lorenzo1903 7 2.777 01-07-2016, 17:31
Son Mesaj: jon206
  sütundaki verileri satıra çevirme döndüdedöndü 5 8.761 23-07-2014, 16:49
Son Mesaj: jon206
  Excel dosyasından benzersiz verileri almak ismailmuhcu 0 2.928 08-07-2008, 17:47
Son Mesaj: ismailmuhcu

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi