Sıralama

[manisali50]

Arkadaşlar merhaba..
Forumda bu konuda örnek çok ama isteğime uygun bulamadığım için yazıyorum..
Sıralama sorunu ile ilgili ekteki dosyamı inceler ve yanıtlarsanız sevinirim..
Şimdiden teşekkürler

 

[Ömer]

Merhaba,

Aktar kodlarını aşağıdaki gibi değiştiriniz..

Private Sub CommandButton1_Click()
 
Set Sa = Sheets("Arıza bildirim formu")
Set Sx = Sheets("" & Sa.Range("K6").Value & "")
 
Application.ScreenUpdating = False
Range("A1").Copy
Range("A6").PasteSpecial Paste:=xlPasteAll, Operation:=xlAdd
Sx.Select
With Sx
    sat = .Cells(29, "C").End(xlUp).Row + 1
 
    .Cells(sat, "C") = Sa.Range("A6")
    .Cells(sat, "G") = Sa.Range("B21")
    .Cells(sat, "N") = Sa.Range("B28")
 
    .Range("C10:AC29").MergeCells = False
    .Range("C10:AC29").Sort .Range("C10")
    .Range("C10:F10,G10:M10,N10:Y10,Z10:AC10").MergeCells = True
 
     .Range("C10:AC10").Copy
     .Range("C11:AC29").PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone
     Application.CutCopyMode = False
 
End With
Sx.[C9].Select
Application.ScreenUpdating = True
End Sub

.

 

[manisali50]

Hocam merhaba..
Süper olmuş..Tam da istediğim gibi..Çok ufak bir sorun var..
Aktar dedikten sonra aktarıyor fakat aktardığı sayfaya gitmiyor..Aktardığı sayfayı açtığımda da 2.satırdan (yani C11'den) son satıra kadar (C29 a kadar) seçili hale getiriyor..Bunu halledebilirseniz daha da harika olacak.Şimdiden teşekkürler

 

[Ömer]

#2 nolu mesajı güncelledim. Tekrar denermisiniz..

.

 

[manisali50]

Hocam tekrar merhaba..
Hocam gerçekten çok güzel ama sizi şimdi kızdırma zamanı galiba..
Arıza bildirim formu sayfasına tarihleri doğru aktarıyor..Ancak,ilgili tezgah sayfasına ay ve günleri yer değiştirmiş olarak (mesela;06/12/2010 yerine,12/06/2010 şeklinde) aktarıyor..

 

[Ömer]

#2 nolu mesajı tekrar güncelledim.

 

[manisali50]

Tek kelime ile;MUHTEŞEM...
İlgine,bilgine,emeğine sağlık hocam..
Herşey için çok çok teşekkürler..