AccessTr.neT

Tam Versiyon: Birden Fazla Private Sub Worksheet_Selectionchange Kullanılması
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
(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.
If Not Intersect(Target, Range("B2:B65536")) Is Nothing Then
Selection.SpecialCells(xlCellTypeLastCell).Row

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

Cells.Find("*", , , , xlByRows, xlPrevious).Row
(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.
Rica ederiz,Amin cümlemizin.
Sayfalar: 1 2