arama butonu ve makro hakkında

[mertbey30]

slm excel web ustaları örnek vereceğim dosyanın içindeki genel sayfasında arama butonu eklenmesi ve makrolar çok kasıyor ama işlev olarak değiştirilmeden makrosunu yapabilirmisiniz sadece ek olaraksa genel e arama butonu olacak şimdiden herkesin ellerine sağlık...

 

[İhsan Tank]

arkadaşım arama yaptırması benden

 

[mertbey30]

çılgın ustam ellerine sağlık ama olmamış şimdi ben sayfalardan yönetim yapıp genele otomatik olarak yerkleşiyor onun için genel arama butonu tam olmamış istersen tam bir ilgilen sana zahmet formüllerinde kasılmamış şeklini yapan olursa çok teşekkür ediyorum...

 

[Orion1]

çılgın ustam ellerine sağlık ama olmamış şimdi ben sayfalardan yönetim yapıp genele otomatik olarak yerkleşiyor onun için genel arama butonu tam olmamış istersen tam bir ilgilen sana zahmet formüllerinde kasılmamış şeklini yapan olursa çok teşekkür ediyorum...

Dosyanız ektedir.

Sub aktar_topla()
Dim z As Object, sh As Worksheet, sat1 As Long
Dim sat2 As Long, i As Long, myarr(), n As Long, a()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Sheets("Sayfa1").Select
Range("A2:D65536").ClearContents
sat2 = 2
Set z = CreateObject("Scripting.Dictionary")
ReDim myarr(1 To 4, 1 To 65536)
For Each sh In Worksheets
    If IsNumeric(sh.Name) Then
        sat1 = sh.Cells(65536, "B").End(xlUp).Row
        a = sh.Range("B2:G" & sat1).Value
        For i = LBound(a, 1) To UBound(a, 1)
            If Not z.exists(a(i, 1)) Then
                n = n + 1
                z.Add a(i, 1), n
            End If
            myarr(1, z.Item(a(i, 1))) = n
            myarr(2, z.Item(a(i, 1))) = a(i, 1)
            myarr(3, z.Item(a(i, 1))) = myarr(3, z.Item(a(i, 1))) + a(i, 4)
            myarr(4, z.Item(a(i, 1))) = myarr(4, z.Item(a(i, 1))) + a(i, 6)
        Next i
        Erase a()
    End If
Next
Application.ScreenUpdating = True
Range("A2").Resize(n, 4) = Application.Transpose(myarr)
Application.Calculation = xlCalculationAutomatic
MsgBox "İşlem tamamdır." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[mertbey30]

ustam ellerine sağlık birde arama butonu koyabiliyormusun...

 

[Orion1]

ustam ellerine sağlık birde arama butonu koyabiliyormusun...

4 numaralı mesajda dosyada koyduğum buton için soru somadınızmı?İstediğiniz olmamışmı?
Siz nasıl bir şey istiyorsunuz?

 

[mertbey30]

evren ustam istediğim olmuşta birazdaha değişiklik var mail adresinnizden size ulaşabilirmiyim acaba ellerinize sağlık...