Bir önceki seçim. Before işlemi hakkında

[Carpintero]

Merhaba arkadaşlar.

Birinci işlem A1:A10 aralığını seçiyoruz
İkinci işlem B1 i seçiyoruz.

B1 Seçili iken ben bir önceki seçili alanı yani
A1:A10 aralığını silmek boyamak vs istiyorum.

bu işlemi makro ile nasıl yapabilirim acaba ?

 

[Muzaffer Ali]

Aşağıdaki kodları sayfanın kod kısmına kopyalayın ve sayfada seçimler yapın.

Option Explicit

Dim OncekiSeciliAlan As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not OncekiSeciliAlan Is Nothing Then Kodlar
    Set OncekiSeciliAlan = Target
End Sub

Sub Kodlar()
    MsgBox "Bir önce seçili olan alan adresi: " & OncekiSeciliAlan.Address
End Sub

 

[Carpintero]

Sayın dalgalıkur;
bu işlemi butona atayabilir miyiz acaba ?

 

[Muzaffer Ali]

Aşağıdaki kodlarla olur.

Option Explicit

Dim OncekiSeciliAlan1 As Range
Dim OncekiSeciliAlan2 As Range
Dim Alan As Boolean

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Alan Then
        Set OncekiSeciliAlan1 = Target
        Alan = False
    Else
        Set OncekiSeciliAlan2 = Target
        Alan = True
    End If
End Sub

Private Sub CommandButton1_Click()
    If Alan Then
        If OncekiSeciliAlan1 Is Nothing Then Exit Sub
        MsgBox "Bir önce seçili olan alan adresi: " & OncekiSeciliAlan1.Address
    Else
        If OncekiSeciliAlan2 Is Nothing Then Exit Sub
        MsgBox "Bir önce seçili olan alan adresi: " & OncekiSeciliAlan2.Address
    End If
End Sub

 

[Carpintero]

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