Kayıt makrosu düzenleme

[konace]

Ekteki dosyada dilim döndüğünce sorunumu anlatmaya çalıştım. Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.

 

[vardar07]

Deneyiniz.

Sub aktar()
Sheets("DBS KAYIT").Select
son = WorksheetFunction.CountIf(Sheets("DBS KAYIT").Range("B3:B50"), ">" & 0) + 11
    Range("B12:I" & son).Select
    Selection.Copy
    Sheets("VERİ DEPO").Select
  son1 = Sheets("VERİ DEPO").Range("A" & Rows.Count).End(3).Row + 1
    Range("A" & son1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("DBS KAYIT").Select
    Range("C2:C9").Select
    Selection.ClearContents
    Range("C2").Select
End Sub

 

[konace]

Deneyiniz.

Sub aktar()
Sheets("DBS KAYIT").Select
son = WorksheetFunction.CountIf(Sheets("DBS KAYIT").Range("B3:B50"), ">" & 0) + 11
    Range("B12:I" & son).Select
    Selection.Copy
    Sheets("VERİ DEPO").Select
  son1 = Sheets("VERİ DEPO").Range("A" & Rows.Count).End(3).Row + 1
    Range("A" & son1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("DBS KAYIT").Select
    Range("C2:C9").Select
    Selection.ClearContents
    Range("C2").Select
End Sub

Emeğinize sağlık. Tam istediğim gibi olmuş.