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]

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.