Alfabetik sıralama

[Mdemir63]

Selamlar

Sayfa 3 de B sütununda B2 den itibaren çok uzun isim listem var. Bu listemi buton yardımıyla alfabetik sıralamak istiyorum. Aşağıdaki kodlarla yaptırmaya çalıştım ama beceremedim.

Saygılar


Sub Makro1()
Range("B3:B65536").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("B3"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("C13").Select
ActiveWindow.SmallScroll Down:=0
End Sub

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki şekilde denermisiniz.

Sub SIRALA()
    Range("B3:B" & [B65536].End(3).Row).Sort Key1:=Range("B2"), Order1:=xlAscending
End Sub

 

[conari]

Selamlar

Sayfa 3 de B sütununda B2 den itibaren çok uzun isim listem var. Bu listemi buton yardımıyla alfabetik sıralamak istiyorum. Aşağıdaki kodlarla yaptırmaya çalıştım ama beceremedim.

Saygılar


Sub Makro1()
Range("B3:B65536").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Sort Key1:=Range("B3"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Range("C13").Select
ActiveWindow.SmallScroll Down:=0
End Sub

Key1:=Range("B3"), Key hatasından dolayı sıralatmamıştır.

 

[Mdemir63]

Teşekkür ederim

Kolay gelsin

 

[Mdemir63]

Selamlar
Arkadaşlar çok özür dileyerek bu listemde silmek istediğim ismi arattırıp bulduktan sonra silmek istiyorum.

Örnek:
User form üzerinde 1 Textbox 1 buton
textbox 'a silmek istediğim ismi yazacağım, Butona basınca o ismi bulacak ve silmek için onay vermemi isteyecek onay verince de silecek. Nasıl yaptırabilirim.

Saygılar

 

[conari]

Public Sub SatSil()
i = InputBox("Ne arayacaksınız")
Cells.Find(What:=i, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Dim cevap
cevap = MsgBox("silinsinmi?", vbYesNo + vbDefaultButton2 + vbQuestion, "Uyarı!!")
If cevap = 6 Then
satır = ActiveCell.Row
Rows(satır).Delete
End If
End Sub

 

[Mdemir63]

Public Sub SatSil()
i = InputBox("Ne arayacaksınız")
Cells.Find(What:=i, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Dim cevap
cevap = MsgBox("silinsinmi?", vbYesNo + vbDefaultButton2 + vbQuestion, "Uyarı!!")
If cevap = 6 Then
satır = ActiveCell.Row
Rows(satır).Delete
End If
End Sub

Teşekkür ederim
Kolay gelsin