Selamlar...
Öncelikle ARAÇLAR/MAKRO/VISUALBASIC DUZENLEYICI seçeneğini seçerek Visual basic düzenleyici sayfasını açınız.
INSEERT menusunden MODULES seçerek yeni bir MODUL ekleyiniz ve bumodulün kod kısmına aşağıdaki kodu kopyalayarak yapıştırınız(NOT: Ben bilgilerin olduğu sayfayı GENEL adıyla SOnucun gösterileceği sayfayıda SONUÇ olarak aldım. siz sayfa adlarını istediğiniz gibi değiştirebilirsiniz. Ayrıca GENEL sayfasında A1 hücresi aranacak kişinin bilgi giriş hücresi olarak düzenledim. siz bu düzenlemeleri istediğiniz gibi değiştirebilirsiniz.) Saygılarımla...

Ä°ÅžTE KOD:

Sub bilgilistele() ' LÄ°STELEME YAP
Sheets("SONUÇ").Select
ActiveSheet.Unprotect
Sheets("GENEL").Select
ActiveSheet.Unprotect
Dim sin, liste1
sin = Range("A1")
If Range("A1") = "" Then
MsgBox "BİLGİLERİNİ GÖRMEK İSTEDİĞİNİZ KİŞİNİN ADINI YAZINIZ."
Range("A1").Select
If sin = Cancel Then
Exit Sub
End If
End If
Range("A2:C65536").Select
Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1:C1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=sin
Sheets("GENEL").Select
Rows("2:50").Select
Selection.Copy
Sheets("SONUÇ").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("GENEL").Select
Selection.AutoFilter

Sheets("SONUÇ").Select
Range(ActiveCell, ActiveCell.End(xlDown)).Select

Dim adet As Integer
adet = Application.CountA(Selection)
liste1 = MsgBox(" Kişiye ait: " & adet & " bilgi sıralandı. ", vbOKOnly + vbInformation, "Ali ATMACA")

End Sub

Answered by Enver bey at Aug 24, 2010 12:02 AM

HAMES36
ÖNCELİKLE İLGİNİZE TEŞEKKÜR EDERİM
LÜTFEN CAHİLLİĞİMİ MAZUR GÖRÜNÜZ....BİR KAÇ SORUM OLACAK
BU KODU DEDİĞİNİZ GİBİ KOPYALADIM HATTA GİRDİĞİM İSİM SONUÇ SAYFASINDA BELİRDİ ANCAK GENEL LİSTEM BOZULDU İSİMLER KAYDI FALAN...BUNUN NEDENİ NEDİR ACABA?
AYRICA BİLGİ GİRİŞİ YAPMAK İSTEDİĞİMDE HER DEFASINDA VB YE GİDİP ÇALIŞTIRI TIKLAMAM GEREKİYOR SANIRIM. BUNUN ÖNÜNE NASIL GEÇEBİLİRİM YANİ DİREK ENTERE BASTIĞIMDA OTOMATİK OLARAK SONUÇ SAYFASINDA SONUÇ GELSE MESELA(ÇOK ŞEY İSTEMİYORUMDUR UMARIM:) ŞİMDİDEN ÇOK TEŞEKKÜR EDERİM..

Answered by Crazy Girl at Aug 24, 2010 12:02 AM

Slm.
VBA kodlarından sonuç alamazsanız e-posta adresinizdeki örn.uygulamaya bakın.

Answered by aaaaaaaaaaa at Aug 24, 2010 12:02 AM

MUYGUN
ARKADAŞIM SANA ÇOK TEŞEKKÜR EDERİM
ÇOK İŞİME YARADI
TEKRAR ÇOK TEŞEKKÜRLER..ARADA SENİ SORULARLA RAHATSIZ EDERİM :)

Answered by Crazy Girl at Aug 24, 2010 12:02 AM

MUYGUN
4. SATIR VADE SATIRINI EKLEMEK İSTEDİĞİMDE FORMÜL BOZULDU KAYMALAR MEYDANA GELDİ.BUNU NASIL ENGELLERİN 4. 5. VEYA 6. SÜTUNLARI NASIL EKLERİM...TEŞEKKÜRLER

Answered by hazan at Aug 24, 2010 12:02 AM

Selamlar...
ENTER tuÅŸu ile iÅŸlem yapmak isterseniz:
Önce Visual basic sayfasında işlem yapacağınız sayfanın kod bölümüne aşağıdaki kodu yazınız.
Sayfanın kod bölümüne yazılması gereken kod :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Application.Run "ActiveCell_EnterTab_KeyAscii"
End Sub

Ardından INSERT menüsünden MODUL ekleyerek aşağıdaki kodu aynen kopyalayarak MODULün kod bölümüne yapıştırın. Bu şekilde A1 hücresine isim yazıp ENTER tuşuna bastığınızda istediğiniz işlem gerçekleşmiş olur.
Ä°ÅŸte MODUL kodu :

Private Sub ActiveCell_EnterTab_KeyAscii() 'Enter tuşuna basılınca işlem yapar
If Tus = 13 Then
KeyAscii = 0
End If
Application.Run ("bilgilistele")
End Sub
Sub bilgilistele() ' LÄ°STELEME YAP

Sheets("SONUÇ").Select
ActiveSheet.Unprotect
Sheets("GENEL").Select
ActiveSheet.Unprotect
Dim sin, liste1, liste2
sin = Range("A1")
If Range("A1") = "" Then
MsgBox "BİLGİLERİNİ GÖRMEK İSTEDİĞİNİZ KİŞİNİN ADINI YAZINIZ."
Range("A1").Select
If sin = Cancel Then
Exit Sub
End If
End If

Range("A1:C1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=sin
Sheets("GENEL").Select
Rows("2:50").Select
Selection.Copy
Sheets("SONUÇ").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("GENEL").Select
Selection.AutoFilter

Sheets("SONUÇ").Select
Range(ActiveCell, ActiveCell.End(xlDown)).Select

Dim adet As Integer
adet = Application.CountA(Selection)
liste1 = MsgBox(" Kişiye ait: " & adet & " bilgi sıralandı. ", vbOKOnly + vbInformation, "Ali ATMACA")
Sheets("GENEL").Select
Range("A1").Select


End Sub


Saygılarımla.

Answered by at Aug 24, 2010 12:02 AM