Sağdan Kelime Alma

[askm]

Kolay gelsin.
Aşağıdaki kodda Makroyu Kopyala kısmından sonrasını almak istiyorum.
Mümkün mü?
"""a1:m8"" hücrelerinin arka planı yanıp söner
Makroyu Kopyala
Sub FlashBack()
'Make cell range Background color, flash x times, x fast, in x color,
'when Ctrl-a is pressed.
Dim newColor As Integer
Dim myCell As Range
Dim x As Integer
Dim fSpeed
'Make this cell range background flash!
Set myCell = Range(""A1:M8"")
Application.DisplayStatusBar = True
Application.StatusBar = ""... Select Cell to Stop and Edit or Wait for Flashing to Stop! ""
'Make cell background flash to this color!
'Black 25, Magenta 26, Yellow 27, Cyan 28, Violet 29, Dark Red 30,
'Teal 31, Blue 32, White 2, Red 3, Light Blue 41, Dark Blue 11,
'Gray-50% 16, Gray-25% 15, Bright Cyan 8.
newColor = 11
'Make the cell range flash fast: 0.01 to slow: 0.99
fSpeed = 0.2
'Make cell flash, this many times!
Do Until x = 2
'Run loop!
DoEvents
Start = Timer
Delay = Start + fSpeed
Do Until Timer > Delay
DoEvents
myCell.Interior.ColorIndex = newColor
Loop
Start = Timer
Delay = Start + fSpeed
Do Until Timer > Delay
DoEvents
myCell.Interior.ColorIndex = xlNone
Loop
x = x + 1
Loop
Application.StatusBar = False
Application.DisplayStatusBar = Application.DisplayStatusBar
End Sub"

 

[Korhan Ayhan]

Tam olarak ne istediğiniz anlaşılmıyor.

Mesajınızdaki kodu aşağıdaki şekilde çalıştırabilirsiniz.

Ayrıca başlığınızla mesaj içeriğinizi bağdaştıramadım. Ben yazdıklarınızı yanlış anlamışta olabilirim.

Sub FlashBack()
    'Make cell range Background color, flash x times, x fast, in x color,
    'when Ctrl-a is pressed.
    Dim newColor As Integer
    Dim myCell As Range
    Dim x As Integer
    Dim fSpeed
    'Make this cell range background flash!
    Set myCell = Range("A1:M8")
    Application.DisplayStatusBar = True
    Application.StatusBar = "... Select Cell to Stop and Edit or Wait for Flashing to Stop! "
    'Make cell background flash to this color!
    'Black 25, Magenta 26, Yellow 27, Cyan 28, Violet 29, Dark Red 30,
    'Teal 31, Blue 32, White 2, Red 3, Light Blue 41, Dark Blue 11,
    'Gray-50% 16, Gray-25% 15, Bright Cyan 8.
    newColor = 11
    'Make the cell range flash fast: 0.01 to slow: 0.99
    fSpeed = 0.2
    'Make cell flash, this many times!
    Do Until x = 2
    'Run loop!
    DoEvents
    Start = Timer
    Delay = Start + fSpeed
    Do Until Timer > Delay
    DoEvents
    myCell.Interior.ColorIndex = newColor
    Loop
    Start = Timer
    Delay = Start + fSpeed
    Do Until Timer > Delay
    DoEvents
    myCell.Interior.ColorIndex = xlNone
    Loop
    x = x + 1
    Loop
    Application.StatusBar = False
    Application.DisplayStatusBar = Application.DisplayStatusBar
End Sub