Aynı Sayfada İki Private Sub Makrosu

[akhsahbaz]

Sn.Sertkaya kodlar hata vermiyor zaten. Fakat kodların çalışıp çalışmadığını denediğimde kodların çalışmadığını görüyorum.Bu kodlar ilk olarak benim verdiğim şekilde ayrı ayrı uygulandığında tam olarak çalışıyorlar. Sanırım Sn.hsayar a yapmış olduğum açıklamadakileri çalışmanızda denerseniz kodların çalışmadığını görürsünüz. Teşekkürler.

Sn.hsayar,

1.Kod: Bulunduğu sayfanın k sütununda herhangi bir hücreye enter yapıldığında a sütunundaki tarihler küçükten büyüğe doğru A3 hücresinden başlayarak sıralatıyor.(Kod Enter ile çalışıyor)

2.Kod: Bulunduğu sayfanın("Form") A3 hücresine değer(tarih) girildiğinde bu hücredeki tarihi önce "Kontrol" sayfasının A4 hücresine kopyalıyor, sonrada "Kontrol" sayfası A4 hücresindeki tarihden otomatik olarak sütunun sonuna kadar(A65536) tarih sıralatıyor. (Kod "Form" sayfasının A3 Hücresine değer girilmesi ile çalışıyor)

 

[Skorpiyon]

Sayın akhsahbaz,

Gece gece sürekli yanlış anlıyorum. Sanırım istediğiniz şekil bu.
Kodları deneyin, yine olmadı derseniz uğraşmaya devam

Private Sub Worksheet_Change(ByVal Target As Range) 'Otomatik Sıralama Makrosu
On Error Resume Next
If Intersect(Target, [k3:k65536]) Is Nothing Then Exit Sub
If Target.Value = "" Then Exit Sub
Range(Cells(3, "a"), Cells(Target.Row, "k")).Select
Selection.Sort Key1:=Range("a3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Target.Offset(1, -10).Select
a = ActiveCell.Value

If Sheets("Form").[A3] = "" Or Sheets("Form").[A3] > Date Then Exit Sub
Satır = 3
For X = a To Date
Sheets("Kontrol").Cells(Satır, 1) = X
Satır = Satır + 1
Next
Sheets("Kontrol").Select
MsgBox "İşlem tamam"
End Sub

 

[akhsahbaz]

Sn.Sertkaya, kodlar gene işe yaramadı. Ama sabahın 4:30 larına kadar bana yardım etmek istemeniz beni çok etkiledi. Sayın Hocam allah sizleri başımızdan eksik etmesin.

 

[akhsahbaz]

Dosyayı yeniden düzenleyip konuyu anlatmaya çalıştım.

Dosyayı daha basite indirip sadece yapmak istediklerimi örnekleyerek anlatmaya çalıştım.

 

[Skorpiyon]

Sayın akhsahbaz,

Ek'li dosyayı inceleyiniz.

 

[akhsahbaz]

Sn.Sertkaya,

Tam olarak istediğim buydu. İlginiz ve yardımlarınız için çok teşekkür ederim. Ellerinize sağlık.

 

[Skorpiyon]

Rica ederim, kolay gelsin.