Veri kopyalama ve karşılaştırarak satır açma

[drummers]

Çalışma kitabımda 2 sekme bulunmakta "data" ve "liste" şeklinde

İsteğim şudur:

data sekmesinden B2:B200 hücresindeki verileri liste sekmesindeki B2:B200 e
data sekmesinden E2:E200 hücresindeki verileri liste sekmesindeki E2:E200 e

kopyalıyacak, fakat kopyalama esnasında "liste" sekmesinde aynı isim varsa onu kopyalmıyacak eğer yeni isim varsa ona araya yeni satır açarak kopyalıyacak

"data" sıralaması ile "liste" sıralaması aynı olacak

teşekkürler

 

[Serdar SELEN]

Merhaba,

Biraz daha detaylı anlatabilirmisiniz..

Kopyalamadan kastınız nedir ?
Data sayfasındaki veriler daha sonra silinecek mi ?

Selamlar

 

[drummers]

hayır silinmiyecek ordan alıp oraya kopyalıyacak

 

[kemalist]

merhaba,

biraz daha detaylı anlatabilirmisiniz..

Kopyalamadan kastınız nedir ?
Data sayfasındaki veriler daha sonra silinecek mi ?

Selamlar

arkadaşlar c5:c15 arasındaki veriler sayfa2 den bağ olduğu için l5 e kopyalama yapmıyor.kodda nasıl bir değişiklik yapmak gerekiyor.
Dosya ektedir.yardımlarınız için şimdiden teşekkür ederim.

 

[Serdar SELEN]

Merhaba,

Aşağıdaki kodu denermisiniz.

Private Sub CommandButton1_Click()
Range("C5:C15").Select
Selection.Copy
Range("L5:L15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("A23:IV23").Copy Sheets("SAYFA2").Range("A1")
Range("A26:IV26").Copy Sheets("SAYFA3").Range("A1")
Range("A29:IV29").Copy Sheets("SAYFA4").Range("A1")
Range("A32:IV32").Copy Sheets("SAYFA5").Range("A1")
End Sub

Kolay gelsin

 

[kemalist]

merhaba,

aşağıdaki kodu denermisiniz.

Private sub commandbutton1_click()
range("c5:c15").select
selection.copy
range("l5:l15").select
selection.pastespecial paste:=xlpastevalues, operation:=xlnone, skipblanks _
:=false, transpose:=false
range("a23:ıv23").copy sheets("sayfa2").range("a1")
range("a26:ıv26").copy sheets("sayfa3").range("a1")
range("a29:ıv29").copy sheets("sayfa4").range("a1")
range("a32:ıv32").copy sheets("sayfa5").range("a1")
end sub

kolay gelsin

sayın selen soruyu ters sormuşum özür dilerim yenihali ekli dosyadadır.