merhaba;
fikir vermesi açısından kodları inceleyiniz
VERİLERİ BULUR
Private Sub CommandButton6_Click()
Dim bak As Range
For Each bak In Range("B1:B" & WorksheetFunction.CountA(Range("B1:B65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(ComboBox1.Value, vbUpperCase) Then
bak.Select
TextBox1.Value = ActiveCell.Offset(0, -1).Value
TextBox2.Value = ActiveCell.Offset(0, 1).Value
TextBox3.Value = ActiveCell.Offset(0, 2).Value
Exit Sub
End If
Next bak
MsgBox "Aradığınız isimde bir kayıt bulunamadı"
End Sub
'VERİ ARATIRKEN SÜTUN SEÇİMİNİ GENİÃ TUTARSAK BÜTÜN SAYFADA VERİ ARATABİLİRİZ.
Private Sub CommandButton1_Click()
Dim bak As Range
For Each bak In Range("a1:ıv" & WorksheetFunction.CountA(Range("a1:ıv65000")))
If StrConv(bak.Value, vbUpperCase) = StrConv(ComboBox1.Value, vbUpperCase) Then
bak.Select
Exit Sub
End If
Next bak
MsgBox "Aradığınız isimde bir kayıt bulunamadı"
alternatif olması için,
her sütundaki verilerinizin isteğe göre süzülmesi için,
Not:verilerinizi 1 sayfaya birleştirdim.(neden veritabanını birkaç sayfada tutuyorsunuz.?)
her birine ait aylık tablo çıkarttğım işim aylara ait ayrı ayrı olması lazım.
sayfa1de ise bir nevi tüm ayların birleştirlmiş rapor olmasını istiyorum.
Dosyanızı inceledim. Sn muygun'un da belirttiği gibi her isme ve aya karşılık ayrı sayfa oluşturmak yerine bunları tek bir sayfada oluşturacağınız veritabanında toplamanız uygun olacaktır. Bu şekliyle verilerin değerlendirilmesi ne formüllerle nede makro ile pek mümkün değildir.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.