Her Seferinde Command Button İle Farklı Hücreleri Kopyalama

[guter24]

Merhabalar şu şekilde bir makroya ihtiyacım var İf komutları ile yapmaya çalıştım fakat başarılı olamadım

-- Command Buttona Her Tıklandığında --
1. Basışta Aktif Sayfada Eğer "A3" Hücresi seçili değil ise aktif hücrenin "A3" hücresi olmasını sağlayacağız ve "A3" Hücresini içeriğini kopyalayacağız
2. Basışta Aktif Sayfada Eğer "A3" Hücresi seçili ise "C3" Hücresinin içeriğini kopyalayacağız
3. Basışta Aktif Sayfada Eğer "C3" Hücresi seçili ise "D3" Hücresinin içeriğini kopyalayacağız
4. Basışta Aktif Sayfada Eğer "D3" Hücresi seçili ise "F3" Hücresinin içeriğini kopyalayacağız
5. Basışta Aktif Sayfada Eğer "F3" Hücresi seçili ise 3. satırı komple sileceğiz.

Yardımlarınız için şimdiden çok teşekkür ediyorum

 

[Muzaffer Ali]

Merhaba.

Sub test()
    Select Case ActiveCell.Address(0, 0)
        Case "A3"
            Range("C3").Copy
            Range("C3").Select
        Case "C3"
            Range("D3").Copy
            Range("D3").Select
        Case "D3"
            Range("F3").Copy
            Range("F3").Select
        Case "F3"
            Rows(3).Delete
        Case Else
            Range("A3").Copy
            Range("A3").Select
    End Select
End Sub

 

[guter24]

Merhaba.

Sub test()
    Select Case ActiveCell.Address(0, 0)
        Case "A3"
            Range("C3").Copy
            Range("C3").Select
        Case "C3"
            Range("D3").Copy
            Range("D3").Select
        Case "D3"
            Range("F3").Copy
            Range("F3").Select
        Case "F3"
            Rows(3).Delete
        Case Else
            Range("A3").Copy
            Range("A3").Select
    End Select
End Sub

Merhabalar muzaffer bey cevabınız için öncelikle çok teşekkür ederim formülünüz son adıma kadar tüm sorunumu çözüyor fakat silme işlemi bittikten sonra tekrar "A3" hücresinin içeriğini kopyalamıyor sanırım ben tam olarak anlatamadığım için bu şekilde oldu k. bakmayın aslında yapılacak işlemi özetler isek 1. basmada "A3" hücresini kopyalayacak 2. basmada "C3" hücresini kopyalayacak 3.basmada "D3" hücresini kopyalayacak 4.basmada "F3" hücresini kopyalayacak 5. basmada ise "3. satırı" silip tekrar "A3" hücresini kopyalayarak döngüye kaldığı yerden devam edecek. (excel sayfasında bulunan verileri milli eğitim bakanlığının bir modülüne macro programı ile aktardığım için tüm işlemleri bu şekilde tekrarlaması gerekiyor)

 

[Muzaffer Ali]

Deneyin.

Sub test()
    Select Case ActiveCell.Address(0, 0)
        Case "A3"
            Range("C3").Copy
            Range("C3").Select
        Case "C3"
            Range("D3").Copy
            Range("D3").Select
        Case "D3"
            Range("F3").Copy
            Range("F3").Select
        Case "F3"
            Rows(3).Delete
            Range("A3").Copy
            Range("A3").Select
        Case Else
            Range("A3").Copy
            Range("A3").Select
    End Select
End Sub

 

[guter24]

Deneyin.

Sub test()
    Select Case ActiveCell.Address(0, 0)
        Case "A3"
            Range("C3").Copy
            Range("C3").Select
        Case "C3"
            Range("D3").Copy
            Range("D3").Select
        Case "D3"
            Range("F3").Copy
            Range("F3").Select
        Case "F3"
            Rows(3).Delete
            Range("A3").Copy
            Range("A3").Select
        Case Else
            Range("A3").Copy
            Range("A3").Select
    End Select
End Sub

Çok teşekkür ederim son düzenleme ile gerçekten kusursuz çalışmakta sizlere sağlıklı günler diliyorum...