Veri Çağırma

[memduh]

Herkese Günaydın.
ekteki örneği inceleyip yardın lütfen.






Ofis 2003 Türkçe

 

[birol_mumcu]

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ı"

End Sub
bu kodlar syn NURZİYA HİÇDURMAZA aittir

 

[memduh]

Uğraşmama rağmen yapamadım.
İsim seçtiğim zaman isme ait tüm ayların verilerini sayfa1 e alsın.
yardım olursanız sevinirim.

 

[muygun]

veri-süz

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.?)

 

[baran]

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.

 

[Levent Menteşoğlu]

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.