koşullu kopyala

[h2001]

Sayfa 1 de "d" sutununda "Plan" yazılı tüm satırlar Sayfa 2 ye, 2.satırdan itibaren koplayansın . Makrosu için şimdiden teşekkürler.

 

[Mahmut Kök]

dosyanızı gönderebilirseniz daha kolay yardımcı olabiliriz.

 

[Ali]

Sizin dediğinize biçimde küçük bir dosya hazırladım.Eki inceleyin.

 

[h2001]

Dosyam ekte ..sayfa 1 de "Plan" yazılı satırlar kopyalanıp, sayfa 2 ye A10 dan itibaren yapıştırılsın.Tşk.

 

[Ali]

Modüle aşağıdaki kodları ekleyip çalıştırınız.

Sub sayfa2yeaktar()
Dim b
Sheets("Sayfa2").Select
Range("A2:D500").Select
Selection.ClearContents
Range("A2").Select
b = 9
For Each secim In Worksheets("Sayfa1").Range("C:C")
If secim = "plan" Then
    b = b + 1
    Worksheets("Sayfa2").Cells(b, 1) = secim.Offset(0, -2)
    Worksheets("Sayfa2").Cells(b, 2) = secim.Offset(0, -1)
    Worksheets("Sayfa2").Cells(b, 3) = secim
End If
Next
MsgBox "Aktarıldı"
End Sub

 

[h2001]

teşekkürler size.