sıralama

[atak05]

ekteki dosyada
sayfa 1 de 3 adet departman var.
restoran- cafe- disko
Sayfa 1 den Restoran ları alıp restoran sayfasına sıralayacak

Sayfa 1 den Cafe leri alıp Cafe sayfasına sıralayacak.

sayfa 1 den disko ları alıp disko sayfasına sıralayacak.

şimdiden teşekkürler yardım ederseniz sevinirim.

 

[apocalyt]

merhaba..bir modüle kopyalayıp çalıştırın..

Sub daylight()
Application.ScreenUpdating = False
For y = 2 To 4
Sheets(y).Range("b9:l1000").ClearContents
Next y
For x = 4 To Sheets(1).[c1000].End(3).Row
If Sheets(1).Cells(x, "c") = "Restoran" Then
Sheets(1).Range("b" & x & ":l" & x).Copy
Sheets(2).Cells(Sheets(2).[b1000].End(3).Row + 1, 2).PasteSpecial
ElseIf Sheets(1).Cells(x, "c") = "Cafe" Then
Sheets(1).Range("b" & x & ":l" & x).Copy
Sheets(3).Cells(Sheets(3).[b1000].End(3).Row + 1, 2).PasteSpecial
Else
Sheets(1).Range("b" & x & ":l" & x).Copy
Sheets(4).Cells(Sheets(4).[b1000].End(3).Row + 1, 2).PasteSpecial
End If
Next x
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "İşleminiz bitmiştir.", vbInformation
End Sub

 

[atak05]

merhaba modüle kopyalayıp işlemi yapamadım size zahmet ekteki dosyaya yapıp ekleyebilirmisiniz. teşekkür ederim.

 

[Vedat Özer]

Merhabalar,

Kodları çalışma sayfasına ekledim kontrol edermisiniz.

 

[atak05]

teşekkür

sayın apocalyt ve vedat bey çok teşekkürler tam istediğim gibi olmuş iyiki varsınız.