2007 süz ve birkaç ek soru

[Erdem Akdemir]

Sub SÜZ()
 Dim HATA As Variant, VERİ As String
 
    If IsError(ActiveCell.Value) Then
 
        HATA = ActiveCell.Value
 
        Select Case HATA
            Case CVErr(xlErrDiv0)
                VERİ = "#DIV/0!"
            Case CVErr(xlErrNA)
                VERİ = "#N/A"
            Case CVErr(xlErrName)
                VERİ = "#NAME?"
            Case CVErr(xlErrNull)
                VERİ = "#NULL!"
            Case CVErr(xlErrNum)
                VERİ = "#NUM!"
            Case CVErr(xlErrRef)
                VERİ = "#REF!"
            Case CVErr(xlErrValue)
                VERİ = "#VALUE!"
        End Select
 
    ActiveSheet.Cells.CurrentRegion.AutoFilter Field:=ActiveCell.End(3).Column, Criteria1:=VERİ
 
    Else
 
    On Error Resume Next
 
    If IsDate(ActiveCell) Then
 
    ActiveSheet.Cells.CurrentRegion.AutoFilter Field:=ActiveCell.End(3).Column, Criteria1:=CDate(ActiveCell)
 
    Else
 
    ActiveSheet.Cells.CurrentRegion.AutoFilter Field:=ActiveCell.End(3).Column, Criteria1:=ActiveCell
 
    End If
 
    If Err = 1004 Then
    MsgBox "Bu sütuna filtre uygulayamazsınız!" & vbCrLf & _
    "Lütfen tablonuzun bulunduğu alandan bir hücre seçiniz!", vbExclamation, "Dİkkat !"
    Exit Sub
    End If
 
    On Error GoTo 0
 
    End If
    End Sub

2007'de hücrenin üstüne gelip kısayoltuşu ile süzme olmadığından bir süzme makrosu yapmıştım, bazı değerleri süzmemişti.

üstadlardan birisi yukardaki makroyu göndermişti, bundada bazı değerleri süzmüyor, bazı formül sonuçlarını ve sayısal değerleri

diğer sorum ise fonksiyonlarda en alttaki satırdaki değeri bulduran bir formül vardı.ara fonkisyonu ile yapılıyordu, onu çok aradım ama bulamadım.

süzme işleminde seçtiğimen değerin , excel hücrelerinden birinde görünmesini sağlamak istiyorum, bunu nasıl yapabilirim.

iyi çalışmalar

 

[Erdem Akdemir]

ustalar yardımlarınızı esirgemeyin