Birden Fazla Private Sub Worksheet_Selectionchange Kullanılması

1 2
13/04/2023, 15:15

HORZUM

(13/04/2023, 14:49)berduş yazdı: ilk mesajınızda açıklama yapmadınız, kodun ne yapması gerektiğinden bahsetmediniz sadece çalışmıyor dediniz ben de hatayı düzelttim.
ayrıca kabalığınızı da anlamıyorum, karşınızda uşağınız yada emir eriniz yok.
o kadar emek ve zaman harcıyoruz en azından, işinize yaramasa bile, bir teşekkür hak ediyoruz.

Bir hatam olduysa özür dilerim. Amacım sizi kırmak değil sadece konuları kısa olarak anlatayım diye açıklama yaptım. Teşekkür çin ise konunun sonuçlanmasını bekledim. Yardım edip etmemek size kalmış birşey. Ben kimseyi zorlamam zorlayamam da.
13/04/2023, 23:26

feraz

If Not Intersect(Target, Range("B2:B65536")) Is Nothing Then
13/04/2023, 23:50

feraz

Selection.SpecialCells(xlCellTypeLastCell).Row

Ayrıca ilerde sorun yaşamamanız için yukardaki yerine alttaki kodu kullanın.

Cells.Find("*", , , , xlByRows, xlPrevious).Row
14/04/2023, 10:01

HORZUM

(13/04/2023, 23:50)feraz yazdı:
Selection.SpecialCells(xlCellTypeLastCell).Row

Ayrıca ilerde sorun yaşamamanız için yukardaki yerine alttaki kodu kullanın.

Cells.Find("*", , , , xlByRows, xlPrevious).Row

BERDUŞ ve FAREZ çok teşekkür ederim. Allah ne muradınız varsa versin. İyiki varsınız.
14/04/2023, 15:34

feraz

Rica ederiz,Amin cümlemizin.
1 2