Kopyala / Yapıştırı özelleştirme

[ersoyalan]

Ustalar merhaba,

A ile H stunları arasında verilerimizin olduğunu düşünelim.Bu verileri kopyala dediğimiz zaman F stununda bulunan Deneme kelimesini ve bulunduğu kople hücreleri kopyalamasın sadece deneme yazmayan hücreleri kopyalasın bu mümkünmüdür.


Syg,
E.ALAN

 

[N.Ziya Hiçdurmaz]

Yanıt

Sub COPY()
Sheets("Sayfa2").Range("A1:H500") = Empty
For SAT = 1 To Cells(65536, "A").End(xlUp).Row
If Cells(SAT, "F") <> "DENEME" Then
Range(Cells(SAT, "A"), Cells(SAT, "H")).COPY
S = S + 1
Range(Sheets("Sayfa2").Cells(S, "A"), Sheets("Sayfa2").Cells(S, "H")).PasteSpecial
End If
Next
End Sub

 

[ersoyalan]

Hocam merhaba,

Çok teşekkürederim.Tam istediğim gibi olmuş.Ellerinize sağılık..

İyi çalışmalar.

E.ALAN

 

[N.Ziya Hiçdurmaz]

Bişey değil

 

[ersoyalan]

Hocam tekrar merhaba,

Vermiş olduğunuz koda SIFRE DEGISTIRME'de eklemeye çalışıyorum (kopylama işlemine)yapamadım yardımcı olurmusunuz.

Syg,

If Cells(SAT, "F") <> "DENEME" Then
If Cells(SAT, "F") <> "SIFRE DEGISTIRME" Then gibi