manisali50
Banned
- Katılım
- 29 Ekim 2010
- Mesajlar
- 471
- Excel Vers. ve Dili
- Excel2003
Arkadaşlar merhaba..
Daha önce açtığım "İstenilen hücreye atlama" başlıklı sorum ile bu sorum iç içe kaldığı için konuyu yeni bir başlık altında açma ihtiyacı duydum..Site yöneticilerinden "istenilen hücreye atlama" başlıklı konumu kaldırmalarını rica ediyorum.
Sorunum şu :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Dim ss As Long
ss = Cells(Rows.Count, 1).End(3).Row
Select Case Target.Column
Case Is = 1: Target.Offset(, 1).Select
Case Is = 2: Target.Offset(, 1).Select
Case Is = 3: Target.Offset(, 4).Select
Case Is = 7: Target.Offset(, 2).Select
Case Is = 9:
With Target.Offset(, 2)
.FormulaR1C1 = "=IF(ISNUMBER(RC[-10]),3,IF(ISNUMBER(--LEFT(RC[-10],1)),2,1))"
.Value = .Value
End With
Range("A5:K" & ss).Sort Key1:=Range("K5"), Order1:=xlAscending, Key2:=Range("A5") _
, Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
xlSortNormal
Range("A" & ss).Offset(1, 0).Select
Case Else
End Select
End Sub
Bu kodlarla hem sayfa içerisinde kendi belirlediğim hücreler arasında geziniyorum,hem de sıralama yaptırıyorum.Ancak sıralama yaptırırken şöyle bir ihtiyaç gündeme geldi..
Yukarıdaki kodlar;
ABC
DEF
GHK
123
234
456
789 şeklinde sıralama yapıyor.Benim isteğim ise;
ABC
DEF
GHK
123
1460
2
20
21
2100
35
şeklinde sıralama yapması..
Ayrıca;
Şifre korumalı sayfalarda makroların çalışmasını sağlamak için Korhan Ayhan üstadımın gönderdiği bu kodların ilk satırından sonra
ActiveSheet.Unprotect "ŞİFRE"
ve son satırından önce
ActiveSheet.Protect "ŞİFRE"
satırlarını ekliyorum.Bu sefer kodlar hiç çalışmıyor.
Yardımlarınızı bekliyorum..
Şimdiden teşekkürler
Daha önce açtığım "İstenilen hücreye atlama" başlıklı sorum ile bu sorum iç içe kaldığı için konuyu yeni bir başlık altında açma ihtiyacı duydum..Site yöneticilerinden "istenilen hücreye atlama" başlıklı konumu kaldırmalarını rica ediyorum.
Sorunum şu :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Dim ss As Long
ss = Cells(Rows.Count, 1).End(3).Row
Select Case Target.Column
Case Is = 1: Target.Offset(, 1).Select
Case Is = 2: Target.Offset(, 1).Select
Case Is = 3: Target.Offset(, 4).Select
Case Is = 7: Target.Offset(, 2).Select
Case Is = 9:
With Target.Offset(, 2)
.FormulaR1C1 = "=IF(ISNUMBER(RC[-10]),3,IF(ISNUMBER(--LEFT(RC[-10],1)),2,1))"
.Value = .Value
End With
Range("A5:K" & ss).Sort Key1:=Range("K5"), Order1:=xlAscending, Key2:=Range("A5") _
, Order2:=xlAscending, Header:=xlNo, OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom, DataOption1:=xlSortNormal, DataOption2:= _
xlSortNormal
Range("A" & ss).Offset(1, 0).Select
Case Else
End Select
End Sub
Bu kodlarla hem sayfa içerisinde kendi belirlediğim hücreler arasında geziniyorum,hem de sıralama yaptırıyorum.Ancak sıralama yaptırırken şöyle bir ihtiyaç gündeme geldi..
Yukarıdaki kodlar;
ABC
DEF
GHK
123
234
456
789 şeklinde sıralama yapıyor.Benim isteğim ise;
ABC
DEF
GHK
123
1460
2
20
21
2100
35
şeklinde sıralama yapması..
Ayrıca;
Şifre korumalı sayfalarda makroların çalışmasını sağlamak için Korhan Ayhan üstadımın gönderdiği bu kodların ilk satırından sonra
ActiveSheet.Unprotect "ŞİFRE"
ve son satırından önce
ActiveSheet.Protect "ŞİFRE"
satırlarını ekliyorum.Bu sefer kodlar hiç çalışmıyor.
Yardımlarınızı bekliyorum..
Şimdiden teşekkürler
