Macro İle Sıralama Yaparken onay kutusunu sıralamıyor

[fealdown]

resimdeki gibi bir listem var her yeni değer girdiğimde sıralaya butonuna basıyorum fakat onay kutusunu almıyor ve sıralama tam olarak olmuyor veri sekmesinden sırala yaptığımda onay kutusunuda sıralıyor sorunu nasıl çözebilirim

 

[cems]

Makro'yu nasıl göreceğiz ?

 

[fealdown]

Sub Makro22()
'
' Makro22 Makro
'

'
Range("H5:H8").Select
ActiveWorkbook.Worksheets("Sayfa1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sayfa1").Sort.SortFields.Add(Range("H5:H300"), _
xlSortOnCellColor, xlAscending, , xlSortNormal).SortOnValue.Color = RGB(146, _
208, 80)
ActiveWorkbook.Worksheets("Sayfa1").Sort.SortFields.Add(Range("H5:H300"), _
xlSortOnCellColor, xlDescending, , xlSortNormal).SortOnValue.Color = RGB(242, _
242, 242)
ActiveWorkbook.Worksheets("Sayfa1").Sort.SortFields.Add Key:=Range("H5:H300"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sayfa1").Sort
.SetRange Range("C4:L300")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub

 

[fealdown]

dosyayıda gönderbilirim isterseniz

 

[askm]

Dosya paylaşırsanız yardım almanız daha kolay olur. Koda göre tablo yapmaktansa hazır tabloya göre kod yapmak daha akıllıca olur.

 

[fealdown]

http://s9.dosya.tc/server2/uasti7/is_programi_tablosu.rar.html

 

[alicimri]

1 . Onay kutusu olarak Form Denetimi yerine Active X Denetimini kulanın.
2. Onay kuyusu üzerinde sağ tıklayın, Denetim Biçimlendir>Özellikler>Hücrelerle taşı ve boyutlandır. işaretleyin.

 

[fealdown]

ama ben onaykutusunu elle değil yeni bi satır girdiğimde seçili hücreye kod ile ekliyorum. yeni satıra veri girişini eklemeyi bitirdiğimde sıralama yapmasını istiyorum fakat onaykutusu sabit yerinde kalıyor.

 

[alicimri]

Aşağıdaki kodu deneyip kendinize uyarlayın.

  ActiveSheet.OLEObjects.Add(ClassType:="Forms.CheckBox.1", Link:=False, _
        DisplayAsIcon:=False, Left:=ActiveCell.Left + 2, Top:=ActiveCell.Top + 2, _
        Width:=11, Height:=9).Select
    With Selection
        .Placement = xlMoveAndSize
        .PrintObject = True
    End With

 

[fealdown]

ALLAH razı olsun işe yaradı kolay gelsin teşekkür ederim.