+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Excel (https://accesstr.net/forum-microsoft-excel.html)
+--- Forum: Excel Cevaplanmış Soruları (https://accesstr.net/forum-excel-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Birden Fazla Private Sub Worksheet_Selectionchange Kullanılması (/konu-birden-fazla-private-sub-worksheet-selectionchange-kullanilmasi.html)
Sayfalar:
1
2
RE: Birden Fazla Private Sub Worksheet_Selectionchange Kullanılması - HORZUM - 13/04/2023
(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.
RE: Birden Fazla Private Sub Worksheet_Selectionchange Kullanılması - feraz - 13/04/2023
If Not Intersect(Target, Range("B2:B65536")) Is Nothing Then
RE: Birden Fazla Private Sub Worksheet_Selectionchange Kullanılması - feraz - 13/04/2023
Selection.SpecialCells(xlCellTypeLastCell).RowAyrıca ilerde sorun yaşamamanız için yukardaki yerine alttaki kodu kullanın.
Cells.Find("*", , , , xlByRows, xlPrevious).RowRE: Birden Fazla Private Sub Worksheet_Selectionchange Kullanılması - HORZUM - 14/04/2023
(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.
RE: Birden Fazla Private Sub Worksheet_Selectionchange Kullanılması - feraz - 14/04/2023
Rica ederiz,Amin cümlemizin.