Kopyalamadan sonra renk değiştirme

[quantum32]

MERHABALAR,

A SÜTUNUNDA VE B SÜTUNUNDA 1'den 230'a KADAR VERİLERİM VAR. BUNLARI TEK TEK KOPYALAYARAK BAŞKA BİR PROGRAMA YAPIŞTIRIYORUM.

SORUNUM ŞU;

A SÜTUNUNDAN HERHANGİBİR HÜCREYİ CTRL C İLE KOPYALAYINCA O ALANDAKİ METİN KIRMIZI OLSUN, B SÜTUNUNDAN HERHANGİBİR HÜCREYİ KOPYALAYINCA O ALAN KIRMIZI OLSUN.

TEŞEKKÜRLER KOLAY GELSİN...

 

[Korhan Ayhan]

Selamlar,

Ekteki örnek dosyayı incelermisiniz. CTRL+C ile kopyalama yaptığınızda renklendirme işlemi yapılacaktır.


Kullanılan kod; (Boş bir modüle uygulayınız.)

Option Explicit
 
Sub AUTO_OPEN()
    Application.OnKey "^c", "RENKLENDİR"
End Sub
 
Sub RENKLENDİR()
    If ActiveCell.Column = 1 Then
    ActiveCell.Font.ColorIndex = 3
    ElseIf ActiveCell.Column = 2 Then
    ActiveCell.Interior.ColorIndex = 3
    End If
    Application.SendKeys ("^{INSERT}")
End Sub

Aşağıdaki kodları Thisworkbook bölümüne uygulayınız.

Option Explicit
 
Private Sub Workbook_Activate()
    AUTO_OPEN
End Sub
 
Private Sub Workbook_Deactivate()
    Application.OnKey "^c"
End Sub

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki dosyayı güncelledim. İncelermisiniz.