Koşullu satır aktarma

[gkhnylcn]

Merhaba, iki gündür araştırmama rağmen tam olarak istediğim cevaba ulaşamadığım için bu konuyu açmak zorunda kaldım. Ekli dosyada "açık" ve "kapalı" isimli iki sheet var. sayfanın üzerindeki göz resmini tıkladığım zaman açık isimli sheet de b kolonunda "K" harfi bulunan satırları kapalı isimli sheet e altalta kopyalamasını ve açık olan sheetden silmesini istiyorum.
yardımcı olabilirseniz çok sevinirim.teşekkürler.

 

[Kemal Demir]

Merhaba,

Öncelikle forumumuza hoşgeldiniz.(Sorunuza çözüm olacak dosya/lar forumda mevcuttur.Daha dikkatli arama yapınız)

Ek'teki orneği bakınız."ACIK" sayfasındaki göz'e makta bağlanmıstır.

Sub K_Tasi()
Sheets("ACIK").Select
For x = [b65536].End(3).Row To 14 Step -1
If Cells(x, 2) = "K" Then
Rows(x & ":" & x).Select
Selection.Copy
Sheets("KAPALI").Select
say = [b65536].End(3).Row + 1
Cells(say, 1).PasteSpecial xlPasteAll
Sheets("ACIK").Select
Rows(x & ":" & x).Select
Selection.Delete
End If
Next
End Sub

 

[gkhnylcn]

üstad ben beceremedim..rica etsem ekteki dosyaya uygulayabilirmisin? teşekkür ederim..

 

[Kemal Demir]

Dosyayı ekledım ınceleyınız.