Makro İle Yer Değiştirme

[ormann]

İyi günler
Aynı Buton ile B ile C sütünundaki verilerin yerlerini değiştirip,A1 hücresindeki veriyi ve son satırı tamamen makro ile nasıl silebiliriz.Yardımcı olurmu sunuz ?

http://dosya.co/vtr26kvoabrm/Örnek.xls.html

 

[Orion1]

Buyurun.

Sub degistir59()
Dim liste(), sonsat As Long
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
liste = Range("B2:B" & sonsat).Value
Range("B2:B" & sonsat).Value = Range("C2:C" & sonsat).Value
Range("C2").Resize(UBound(liste), 1) = liste
Range("A1").ClearContents
Range("A" & sonsat & ":C" & sonsat).ClearContents
MsgBox "İşlem bitti."
End Sub

 

[ormann]

Çok teşekkür ederim hocam

 

[Orion1]

Çok teşekkür ederim hocam

Rica ederim.
İyi çalışmalar.

 

[ormann]

Sayın hocam son satırı silerken şöyle bir şart konabilir mi?. Eğer B2 ve C2 hücresindeki verinin aynısı son satırda varsa B ve C hücresinde varsa son satırı silsin yoksa son satır kalsın.

 

[Orion1]

Sayın hocam son satırı silerken şöyle bir şart konabilir mi?. Eğer B2 ve C2 hücresindeki verinin aynısı son satırda varsa B ve C hücresinde varsa son satırı silsin yoksa son satır kalsın.

Buyurun.

Sub degistir59()
Dim liste(), sonsat As Long
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
liste = Range("B2:B" & sonsat).Value
Range("B2:B" & sonsat).Value = Range("C2:C" & sonsat).Value
Range("C2").Resize(UBound(liste), 1) = liste
Range("A1").ClearContents
If Range("B2").Value = Range("B" & sonsat).Value And _
        Range("C2").Value = Range("C" & sonsat) Then
    Range("A" & sonsat & ":C" & sonsat).ClearContents
End If
MsgBox "İşlem bitti."
End Sub

 

[ormann]

Çok Teşekkür ederim. Ellerinize sağlık hocam