Makro Tetikleme Alternatif.(Filter_Criteria)

[ikikan]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim HiddenS As Long
Dim HiddenE As Long

HiddenS = WorksheetFunction.Subtotal(3, Range("A:A"))

If Not Cells(1, "B").Value = HiddenS Then

'Application.Run "Filter_CriteriaBir"
Call Filter_CriteriaBir

Cells(1, "B").Value = HiddenS

Exit Sub

End If

End Sub

Kolay gelsin arkadaşlar üsteki makroda kırmızı alana (Cells(1, "B").Value) yerine ne kullana bilirim makroyu tetiklerken sayfada hücreyi kullanmak istemiyorum nasıl bir yol izlemelitim?

 

[pys60]

bir text dosyasına kaydedip oradan alabilirsiniz veriyi

 

[Emir Hüseyin Çoban]

. . .

Inputbox ve Msgbox kullanılabilir ama kodları örnek dosyada görmek gerekir.

. . .