Başka Sayfaya Satır Atlayarak Sıralama

[kegat28]

Herkese iyi akşamlar,
Sayfa1 deki listeyi örnek dosyadaki A kolonunda yer alan 168 değerlerini içeren satırlar olmadan, Sayfa2 ye nasıl aktarabilirim.
Şimdiden teşekküler.

 

[asi_kral]

Herkese iyi akşamlar,
Sayfa1 deki listeyi örnek dosyadaki A kolonunda yer alan 168 değerlerini içeren satırlar olmadan, Sayfa2 ye nasıl aktarabilirim.
Şimdiden teşekküler.

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub aktar_1967()
Dim SATIR As Long, SAYFA1 As Worksheet, SAYFA2 As Worksheet
Set SAYFA1 = Sheets("Sayfa1")
Set SAYFA2 = Sheets("Sayfa2")
Application.ScreenUpdating = False
SATIR = SAYFA1.Range("A" & Rows.Count).End(xlUp).Row
SAYFA2.Range("A2:J" & Rows.Count).ClearContents
SAYFA1.Range("A1:J" & SATIR).AutoFilter field:=1, Criteria1:="<>168"
SAYFA1.Range("A2:J" & SATIR).Copy Destination:=SAYFA2.Range("A2")
SAYFA1.Range("A1:J" & SATIR).AutoFilter
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı" & vbLf & Application.UserName, _
vbInformation, "asi_kral_1967"
End Sub

Dosyanız Ekte.

 

[kegat28]

asi_kral_1967



Toprağum çoook teşekkürler.. Klavyene sağlık..

 

[Korhan Ayhan]

Merhaba,

Sorunuz fonksiyonlar bölümünde olduğu için bende alternatif bir çözüm hazırladım. İncelermisiniz.

Ben mantığını anlamanız için yardımcı sütun kullanılarak diğer sayfaya bilgiler aktardım. Dilerseniz dizi formüllerle yardımcı sütun kullanılmadanda listeleme yapılabilir.

 

[baydeniro]

Teşekkürler sayın Asi_kral_1967 ve sayın Korhan Ayhan.

 

[asi_kral]

asi_kral_1967



Toprağum çoook teşekkürler.. Klavyene sağlık..

Kolay Gelsin.