Komple satır kopyalamak.

[sanall]

Hayırlı sabahlar kolay gelsin....
Arkadaşlar B sütunundaki dolu en son hücreyi bulmak ve bu dolu hücrenin olduğu satırı komple kopyalamak ve yine aynı satıra kopyalanan değerleri değer olarak yapıştırmak istiyorum. Bunu makro ile nasıl yapabilirim.

 

[hamitcan]

Nereye yapıştıracak sınız ?

 

[sanall]

Yine dolu olan en son satıra yapıştırmak istiyorum.

 

[YUSUF44]

Aşağıdaki kodları deneyiniz:

Sub kopya()
    son = Cells(Rows.Count, "B").End(3).Row
    Rows(son).Copy
    Rows(son).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
    Range("B" & son).Select
End Sub

 

[sanall]

Teşekkür ederim. Emeğinize sağlık.