Skip to main content

AccessTr.neT


Birden Fazla Private Sub Worksheet_Selectionchange Kullanılması

Birden Fazla Private Sub Worksheet_Selectionchange Kullanılması

#7
(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.
Cevapla
#8
If Not Intersect(Target, Range("B2:B65536")) Is Nothing Then
Cevapla
#9
Selection.SpecialCells(xlCellTypeLastCell).Row

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

Cells.Find("*", , , , xlByRows, xlPrevious).Row
Cevapla
#10
(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.
Son Düzenleme: 14/04/2023, 10:02, Düzenleyen: HORZUM.
Cevapla
#11
Rica ederiz,Amin cümlemizin.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da