Satır silme problemi.

[explain]

Ekte problemim açıklamalı bir şekilde .
Yardımlarınız için şimdiden teşekkürler.

 

[leumruk]

Sanırım aktarma işlemini eski verilerin üzerine yapıyorsunuz. Eğer böyle ise önce aktarma yapacağınız tabloyu boşaltıp, sonra aktarma işlemini yapmanız gerekir.
Tablonuza göre aşağıdaki satırı kodlarınızın en başına eklerseniz, eski verileri boşaltmış olursunuz.

[a17:g21]=""

Ya da kodlarınızın sonuna:
[a21:g21]="" satırını ekleyerek son satırdaki hücreleri boşaltabilirsiniz.

 

[explain]

Sheets("sıra").Select
Range("A7:FR250").Select
Selection.Copy
Range("A6").Select
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
IconFileName:=False
Sheets("GrafikAlaný").Select
Range("B2:F2").Select
End Sub

kodum bu 250 kişilik bir sırayı öyle bir yapabilmek istiyorum ki alttaki 249 kişiyi kopyala özel yapıştır dedikten sonra en altta kalan tekrarlanan veriler silinsin.
dediğiniz şekilde uygulamaya çalıştım ama olmadı.
Yine dediğiniz gibi aynı veriler üzerinde kopyala özel yapıştır diyorum.

 

[Ayhan Ercan]

Merhaba
Aşağıdaki gibi deneyin..

[a21:g21].ClearContents

 

[explain]

Sheets("SAYFA").Select
Range("A3:F7").Select
Range("A7").Activate
Selection.Copy
Range("A2").Select
ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
IconFileName:=False
Sheets("mAKRO").Select
Range("A1").Select
End Sub

Daha iyi anlaşılması için dosyayı yeniledim.kod da yukarıdaki gibi oluyor bunun benzerini 250 kişilik bir veri grubu için düşünüyorum
İlgilenirseniz sevinirim.

 

[leumruk]

Sub SİL()
Application.ScreenUpdating = False
    Sheets("SAYFA").Select
    Sat = [a65536].End(3).Row
    Range("A3:F7").Copy
    Range("A2").Select
    ActiveSheet.PasteSpecial Format:=3, Link:=1, DisplayAsIcon:=False, _
        IconFileName:=False
    Set a = Cells(Sat, "a")
    Set b = Cells(Sat, "a").Offset(0, 5)
    Range(a, b) = ""
    Sheets("mAKRO").Select
    Range("A1").Select
End Sub

Kodunuzu isteğinize göre düzenledim. Dosyanızdaki kodların yerine bunları yazabilirsiniz.

 

[explain]

teşekkür ederim sorunlarımızın anında çözülmesi kadar güzel birşey yok