makro atama

[esad45]

arkadaşlar sorunum ekte var çözen bi arkadaş olursa minnettar l-olurum

 

[Recep İpek]

A kolonundaki isimlere tıklayınca mı süzme işlemi yapılsın?

 

[esad45]

evet

evet aynen öyle ekte ayrıntısı var ama

 

[Recep İpek]

Aşağıdaki kodları sayfanın VBE bölümüne kopyalayabilirsiniz.
A kolonundaki isimlere çift tıklama yaparsanız seçtiğiniz ismi Sayfa2'de süzer.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
On Error Resume Next
Sheets("Sayfa2").Select
Selection.AutoFilter Field:=1, Criteria1:=Target
Range("A1").Select
End Sub

 

[esad45]

olmuyor

olmuyor olmuyor kafayı yiyeceğim

 

[Recep İpek]

Verdiğim kodları dosyanıza uyguladım.İnceleyiniz.

 

[esad45]

neye göre yapacağız?

sevgili dostum teşekkürler uğraşmışssın ama ben bunun mantığını anlamam lazım ki kendi dosyama da uygulayayım yoksa bi işe yaramayacak
bunun mantığı veya formulü ne ki ramazan.sari@hotmail.com msn m

 

[Recep İpek]

Bu kodların mantığını anlamanız için, makrolar hakkında biraz bilginizin olması gerekmektedir.

 

[esad45]

var ama malesef anlayamadım

var ama malesef anlayamadım çünkü alt f8 den girip bakıyorum sizin makro yok orda

 

[Recep İpek]

Sayfada Alt+F11 yapın.Açılan ekranda resimdeki işaretli yere (Sheet1 ) çift tıklayınız.Kodları sağdaki ekranda göreceksiniz.